fortran读取文件内容

关于 fortran 读取文件的注意事项（嵌套读取）

事情是这样的：我有40个文件，每个文件里面是一列数字，找出每个文件内数字的最大值。
做法：先将40个文件文件名提取到一个文件中，命名为file1。根据file1的内容，遍历每个文件进行操作，如下：

open(22,file=file1)
open(33,file=file2)!将每个文件的最大值找出放到这个文件内
do i=1,40
	read(22,*)file_single
	open(44,file=file_single)
	max=0
	do j=1,line_num!假设file_single的行数已知
		read(44,*)num
		if(num>max)max=num
	enddo
	close(44)
	write(33,)max
enddo
close(33)
close(22)

结果发生了错误：读取file1时，只有第一行读取出来了，即 i=1 时，read(22,)file_single* 读取正确，当进入第二次循环时，即 i=2 时发生了错误：