How to know that we reached EOF in Fortran 77?
问题 So let's assume that I have the following subroutine: subroutine foo(a_date) character*10 dummy, a_date open(unit=1,file='ifile.txt',status='old') read(1, 100) dummy 100 format(A10) a_date = dummy return end which only reads a line from the file. But I want to read all the lines recursively. So when I call the subroutine recursively in my main procedure, I get an error after reaching EOF. So is there a way to prevent it so that the program knows when I reach EOF? Basically, I want to be able