1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
program format_06
real :: a,b,c,d
a = 123.456
b = 123.45678
c = 12.34
d = 123.45
10 format(a,a)
20 format("Success!",/,10X,A6,"World!")
30 format(4a4)
40 format(A2,4(2X,A),I3)
print *, "a", "b"
print 10, "c", "d"
print 20, "Hello 123"
write (*,30) "dancing","in","the","moonlight"
write (*,40) "ab", "cdef", "ghi", "jkl","qwerty",12
print 50 , 123,456,12345,6789
print 60, 123.456, -123.45678, 12.34, -123.45
write (*,70) -a, b, -c, d
write (*,80) -a, b, -c, d
50 format(i3,i10.5,/i6.6,2x,i3)
60 format(d10.2,d15.6,d010.2,2x,d7.2)
70 format(1pd10.2,2pd15.6,1pd010.2,2x,1pd9.2)
80 format(-1pe10.2,-2pe15.6,1pe010.2,2x,1pe9.2)
! Checking different scopes
if ( a > 0) then
print 90, "Hello "
if ( b > 0) then
write (*,100) "World!"
end if
100 format(a)
end if
90 format (a)
end program
|
