e_4_2_4.f90

来自「Fortran 的一些例子」· 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