Fortran can't read txt files created by another program

Question

When i try to read a txt file with the following code example:

double precision inp(100)
open(1,file='whatever.txt')
do i=1,100
read(1,*) inp(i)
enddo
close(1)

The program just ends when it arrives at the read sentence. I tried alternative ways to write the loop, like

do
read(1,*) inp
enddo

but it's the same. The funny part is that if i write a txt with fortran or by hand and then i try to read it, it works!!

i'm desperate, please, help me.

Have you tried using a unit larger than 10? You're using 1, which might be already taken by something like standard in or something like that. — chw21
this should be closed as the issue was resolved and apparently unrelated to the code. — agentp

chw21 chw21 · Accepted Answer · 2017-09-04T01:26:32

Here are a few ideas:

Take a unit number of 10 or larger, 1 might be taken by something like default i/o

Use iostat and iomsg to find out why the read fails:

integer :: iostat
character(len=100) :: iomsg

read(unit=u, fmt=*, iostat=iostat, iomsg=iomsg) inp(i)
if (iostat /= 0) then
    print *, "Error reading inp"
    print *, "i was ", i
    print *, "Error was: ", trim(iomsg)
end if

Fortran can't read txt files created by another program

1 Answers