CONTROL DE BLANCOS: (BN y BZ)
BN y BZ controlan si los blancos en una lectura son ignorados o tratados como 0.
BN → los blancos en toda la secuencia numérica posterior al BN serán ignorados en
la lectura
BZ → los blancos en toda la secuencia numérica posterior al BZ serán tratados como
0.
 BN y BZ puede usarse múltiples veces en un FORMAT.
(BN, I5, F6.2, BZ, F7.3, T25, I10)
I5 y F6.2 son afectados por BN ⇒ ignora los blancos
F7.3 e I10 son afectados por BZ ⇒ considera los blancos como 0
Ej:
PROGRAM BlankTest
IMPLICIT NONE
INTEGER :: a, b
REAL :: x, y
INTEGER :: IO
CHARACTER(LEN=60) :: Format
CHARACTER(LEN=5) :: Input
Format = "(A5, BN, T1, I5, BZ, T1, I5, BN, T1, F5.2, BZ, T1, F5.2)"
WRITE(*,"(1X,A)") "Input BN BZ BN BZ"
WRITE(*,"(1X,A)") "----- --- --- ----- -----"
DO
READ(*,Format, IOSTAT=IO) Input, a, b, x, y
IF (IO < 0) EXIT
WRITE(*,"(1X, A, 2I6, 2F8.2)") Input, a, b, x, y
END DO
END PROGRAM BlankTest
1
3
2
8
1
1
2
2
3
5
6
5
I M P U T
- - - - -
Impresión
4
7
8
0
5
0
5
0
5
B Z
- -
B N
- -
B Z
- -
1 3 5
1 0 3 0 5
1 . 3 5
1 0 3 . 0 5
2 4
2 0 4 0
0 . 2 4
2 0 . 4 0
6 8 9
6 0 8 0 9
6 . 8 9
6 0 8 . 0 9
1 1 2
1 1 2 0 0
1 . 1 2
1 1 2 . 0 0
9
2 3 9
2 3 0 9
2 . 3 9
2 3 . 0 9
8 7 8
5 8 7 8
5 0 8 7 8
5 8 . 7 8
5 0 8 . 7 8
3
5
4
8
9
1 1 2
2 3
5
9
B N
- -
2
6
Archivo de Entrada
4
6
1
5
DESCRIPTORES SP Y SS
Se usan para imprimir el signo +. En general
SP o SS
 SP → Todos los números positivos subsiguientes tendrán un signo +
 SS → Todos los números positivos subsiguientes no tendrán signo
Ej: realizar un programa que transforme los valores enteros entre -3 y 3 a reales y
los imprima con SP y SS
PROGRAM SignControl
IMPLICIT NONE
INTEGER :: i
REAL :: x
CHARACTER(LEN=*), PARAMETER :: Format = "(1X,SS,I5,SP,I5,SS,F6.1,SP,F6.1)"
CHARACTER(LEN=*), PARAMETER :: Heading = " SS SP SS SP"
WRITE(*,"(1X,A)") Heading
DO i = -3, 3
x = REAL(i)
WRITE(*,Format) i, i, x, x
END DO
END PROGRAM SignControl
5
0
5
0
S S
S P
-
3
-
3
-
3
.
0
-
3
.
0
-
2
-
2
-
2
.
0
-
2
.
0
-
1
-
1
-
1 .
0
-
1 .
0
0
+
0
0 .
0
+
0 .
0
1
+
1
1 .
0
+
1 .
0
2
+
2
2 .
0
+
2 .
0
3
+
3
3 .
0
+
3 .
0
S S
S P
CONCATENACIÓN DE CARACTERES
Para la concatenación de caracteres se utiliza la doble barra (//) sin espacios entre
ellas.
Descargar

Diapositiva 1