Character(3) :: moji
Read (*,Fmt=50) ix,moji,z
50 Format (I5,A3,F10.0)
Print *,ix,moji,z
End
Example Input (with Q for each blank character)QQ123ABCQQQQQ2.345
Execution Results123 ABC 2.3450000
<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 |
|
| Example Input (with Q for each blank character) QQ123ABCQQQQQ2.345 Execution Results123 ABC 2.3450000 |
|
<Example Program 2>
| Program format_example_2 Print 60, 123,'EFG',234.567 60 Format (' Answer:',I5,A3,F8.2) End |
|
| Execution Results (with Q for each blank character) QAnswer:QQ123EFGQQ234.57 |
|