- 372 名前：デフォルトの名無しさん [2007/03/25(日) 20:01:53 ]
- PROGRAM omanko
IMPLICIT NONE
CHARACTER (LEN = 80):: fmt
INTEGER :: iy, im, id, idat(17)
fmt = '(i4, 2("/", i2.0), 17i4 )'
iy = 1964
im = 3
id = 24
idat = (/115, 89, 80, 81, 104, 154, 209, 256, 287, 298, 285, 260, 229, 199, 176, 170, 189/)
WRITE(*, fmt) iy, im, id, idat
STOP
END PROGRAM omanko
