e_312_02.f90

Fortran77和90/95编程入门对应的程序源码

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