This is the simplest form of directing unformatted data to the standard output channel, for example,
CHARACTER(LEN=*), PARAMETER :: &
long_name = "Llanphair...gogogoch"
REAL :: x, y, z
LOGICAL lacigol
x = 1; y = 2; z = 3
lacigol = (y .eq. x)
PRINT*, long_name
PRINT*, "Spock says ""illogical&
&Captain"" "
PRINT*, "X = ",x," Y = ",y," Z = ",z
PRINT*, "Logical val: ",lacigol
END
produces on the screen,
Llanphair...gogogoch Spock says "illogical Captain" X = 1.000 Y = 2.000 Z = 3.000 Logical val: F
For more information, click here