e_312_02.f90

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

CHARACTER*24 filename

PAUSE
PAUSE 'Enter DIR to see available files or press RETURN if you already know filename.'

READ(*,'(A\)') filename
OPEN(1, FILE=filename)
CLOSE(1)

END