Fortran ne peut pas lire les fichiers txt créés par un autre programme

Question

Quand je tente de lire un fichier txt avec l'exemple de code suivant:

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

Le programme se termine juste au moment où il arrive à la phrase de lecture. J'ai essayé d'autres façons d'écrire la boucle, comme

do 
read(1,*) inp 
enddo 

mais c'est la même chose. La partie amusante est que si j'écris un txt avec fortran ou à la main et que j'essaie de le lire, ça marche !!

Je suis désespéré, s'il vous plaît, aidez-moi.

Answer 1

Voici quelques idées:

1. Prenez un numéro d'unité de 10 ou plus, 1 pourraient être prises par quelque chose comme défaut i/o

2. Utilisez iostat et iomsg pour savoir pourquoi la lecture échoue:

   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