Fortranは、私は次のコード例でtxtファイルを読み込むしようとすると、別のプログラム

Question

によって作成されたTXTファイルを読み込むことができません：それは読み取り文に到着したとき

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

プログラムがちょうど終了します。私は、ループを書く別の方法を試しました。

do 
read(1,*) inp 
enddo 

しかし、それは同じです。面白いのは、私がfortranや手でtxtを書いて、それを読もうとすると、うまくいくということです！

私は絶望的です、助けてください。ここで

Answer 1

はいくつかのアイデアです：

1. 10以上のユニット番号を取り、1はなぜ読み取りを見つけるために/ O

2. 使用iostatとiomsg Iデフォルトのようなもので取られるかもしれません失敗：

   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