代码搜索：CLOSE
找到约 10,000 项符合「CLOSE」的源代码
代码结果 10,000
www.eeworm.com/read/399279/7875848
f90 e_4_2_4.f90
OPEN(3,FILE='UDIR',RECL=10,FORM='UNFORMATTED',ACCESS='DIRECT')
WRITE(3,REC=3) .TRUE., 'abcdef'
WRITE(3,REC=1) 2049
CLOSE(3)
END
www.eeworm.com/read/399279/7875855
f90 e_7_2_2.f90
OPEN(3,FILE='FDIR',FORM='FORMATTED',ACCESS='DIRECT',RECL=10)
WRITE(3,'(A10)',REC=1) 'RECORD ONE'
WRITE(3,'(I5)',REC=3) 30303
CLOSE(3)
END
www.eeworm.com/read/399279/7875882
f90 e_7_2_3.f90
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
www.eeworm.com/read/399279/7875903
f90 e_7_2_4.f90
OPEN(3,FILE='UDIR',RECL=10,FORM='UNFORMATTED',ACCESS='DIRECT')
WRITE(3,REC=3) .TRUE., 'abcdef'
WRITE(3,REC=1) 2049
CLOSE(3)
END
www.eeworm.com/read/399279/7875909
f90 e_4_2_1.f90
OPEN(3,FILE='FSEQ')
! FSEQ is a formatted sequential fife by default.
WRITE(3,'(A,I3)') 'RECORD',1
WRITE(3, '()')
WRITE(3, '(A11) ') 'The 3rd one'
CLOSE(3)
END
www.eeworm.com/read/399161/7885466
c stdinredir2.c
/* stdinredir2.c
* shows two more methods for redirecting standard input
* use #define to set one or the other
*/
#include
#include
/* #define CLOSE_DUP /* open, close, dup,