e_4_2_4.f90

来自「Fortran77和90_95编程入门,里面还有详细的例子。」· F90 代码 · 共 6 行

OPEN(3,FILE='UDIR',RECL=10,FORM='UNFORMATTED',ACCESS='DIRECT')
WRITE(3,REC=3) .TRUE., 'abcdef'
WRITE(3,REC=1) 2049
CLOSE(3)
END