Question

Fortran77 如何从文本中读取一段字符串，然后打开以这串字符为文件名的文件？

比如有一个文本文件
a.txt
文件内容如下
a123
b456
c789
我现在想打开第二行的文件（比如b456.txt），应该怎么写？

Answer 1

character*64 inname

open(10,file='a.txt')
read(10,*)inname
read(10,*)inname
write(*,*)inname
close(10)

open (20,file=inname)
read (20,*) test
write(*,*)test
close(20)