Formatos y disruptores en Fortran

program t

implicit none

! c Column number

! d Number of digits to right of decimal place for real input or output

! m Minimum number of digits to be displayed

! n Number of spaces to skip

! r Repeat count—the number of times to use a descriptor or group of descriptors

! w Field width—the number of characters to use for the input or output

! Integer: rIw or rIw.m

INTEGER :: index = -12, junk = 4, number = -12345

WRITE (*,100) index, junk, number

100 FORMAT (I0,1X,I0,1X,I0)

!will produce the output

-12 4 -12345

! Real rFw.d

REAL :: a = -12.3, b = .123, c = 123.456

WRITE (*,200) a, b, c

WRITE (*,210) a, b, c

200 FORMAT (2F6.3, F8.3 )

!will produce the output                

****** 0.123 123.456

! Exponente rEw.d w ≥ d +7

! expresses the number as a value between 0.1 and 1.0 times a power of 10.

REAL :: a = 1.2346E6, b = 0.001, c = -77.7E10 , d = -77.7E10

WRITE (*,200) a, b, c, d

200 FORMAT (2E14.4, E13.6, E11.6 )

!will produce the output                

0.1235E+07 0.1000E-02-0.777000E+12***********

! True Scientific notation rESw.d w ≥ d +7

! Conventional scientific notation expresses a number as a

! value between 1.0 and 10.0 times a power of 10

REAL :: a = 1.2346E6, b = 0.001, c = -77.7E10

WRITE (*,200) a, b, c

200 FORMAT (2ES14.4, ES12.6)

!will produce the output

1.2346E+06 1.0000E-03************

! Logical rLw

LOGICAL :: output = .TRUE., debug

WRITE (*,"(2L5 )") output, debug

!will produce the output

T F

! Character rA or Aw

CHARACTER(len=17) :: string = 'This is a string.'

WRITE (*,10) string

WRITE (*,11) string

WRITE (*,12) string

10 FORMAT (' ', A)

11 FORMAT (' ', A20)

12 FORMAT (' ', A6)

!will produce the output

This is a string.

This is a string.

This i

! Horizontal Positioning. nX and Tc

! X Inserta n espacios

! T Tabs para una columna c específica

CHARACTER(len=10) :: first_name = 'James'

CHARACTER :: initial = 'R'

CHARACTER(len=16) :: last_name = 'Johnson'

CHARACTER(len=9) :: class = 'COSC 2301'

INTEGER :: grade = 92

WRITE (*,100) first_name, initial, last_name, grade, class

100 FORMAT (A10, 1X, A1, 1X, A10, 4X, I3, T51, A9)

!will produce the output

James R Johnson 92 COSC 2301

----|----|----|----|----|----|----|----|----|----|----|----|

5 10 15 20 25 30 35 40 45 50 55 60

! El diruptor Slash /

! Agrega lineas

! The slash (/) descriptor causes the current output buffer

! to be sent to the printer, and a new output buffer to be started.

WRITE (*,100) index, time, depth, amplitude, phase

100 FORMAT (T20,'Results for Test Number ',I3,///, &

'Time= ',F7.0/, &

'Depth= ',F7.1,' meters',/, &

'Amplitude = ',F8.2/ &,

'Phase= ',F7.1)

! Repitiendo descriptores

320 FORMAT (I6, 2(I6, 2F10.2) )

! Repite2 veces I6 y 2F10.2

end program t