<Example Program 1>
Program format_example_1 Character(3) :: moji Read (*,Fmt=50) ix,moji,z 50 Format (I5,A3,F10.0) Print *,ix,moji,z End |
|
![]() QQ123ABCQQQQQ2.345 ![]() 123 ABC 2.3450000 |
<Example Program 2>
Program format_example_2 Print 60, 123,'EFG',234.567 60 Format (' Answer:',I5,A3,F8.2) End |
|
![]() QAnswer:QQ123EFGQQ234.57 |