1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
program format_32
implicit none
print "(E0.5)", 1/3.0d99
print "(E9.5)", 1/3.0d99
print "(E10.5)", 1/3.0d99
print "(E11.5)", 1/3.0d99
print "(E12.5)", 1/3.0d99
print "(E13.5)", 1/3.0d99
print "(E0.5)", 3.0d200
print "(E9.5)", 3.0d200
print "(E10.5)", 3.0d200
print "(E11.5)", 3.0d200
print "(E12.5)", 3.0d200
print "(E13.5)", 3.0d200
print "(E0.5)", 1/3.0d200
print "(E9.5)", 1/3.0d200
print "(E10.5)", 1/3.0d200
print "(E11.5)", 1/3.0d200
print "(E12.5)", 1/3.0d200
print "(E13.5)", 1/3.0d200
print "(ES6.2E1)", 3e20
print "(ES9.2)", 3e20
print "(ES9.2E1)", 3e20
end program format_32
|
