e_4_2_3.f90

来自「Fortran77和90/95编程入门对应的程序源码」· F90 代码 · 共 9 行

CHARACTER xyz(3)
INTEGER(4) idata(35)
DATA idata/35*-1/,xyz/'x','y','z'/
OPEN(3,FILE='USEQ',FORM='UNFORMATTED')
WRITE(3) idata
WRITE(3) xyz
CLOSE(3)
END