读取数据出现forrtl:severe<24>:end-of-file during read的错误

贝加尔湖湖湖湖

[Fortran] 纯文本查看 复制代码

program lxj
implicit none
real a(1201,103),b(1200,102)
integer::i,j,p=0,k=1
open(7,file='d:\bylw\out4\3.txt')
do j=1,1200
   do i=1,102
   read(7,*) a(j,i)
   end do
end do
close(7)
do j=1,102
   do i=1,1200
      if(a(i,j)<-0.5)then
          p=p+1
      b(k,j)=p
          else
          p=0
          k=k+1
          b(k,j)=0
          end if
end do
end do 
open(9,file='d\bylw\out5\3.txt')
write(9,*) b(k,102)
close(9)
end

但是TXT文件里确实是1200行，102列数据啊，不知道问题出在了哪里QAQ，快哭了

fcode

[Fortran] 纯文本查看 复制代码

do j=1,1200
   do i=1,102
   read(7,*) a(j,i)
   end do
end do

你这样写，则要求文件是 122400 行，一列。
改为

[Fortran] 纯文本查看 复制代码

do j=1,1200
   read(7,*) a(j,:)
end do

金钰杰

fcode 发表于 2017-4-11 07:52
[mw_shl_code=fortran,true]do j=1,1200
   do i=1,102
   read(7,*) a(j,i)

您好，我想请教您一个问题，我也遇见这个问题了，检查了很久也么有解决，您能看一下吗，谢谢

金钰杰

SOLVE
FINISH
/POST1                                             
*SET,D,NG/2+1
*DIM,C,ARRAY,D,1
*DO,J,1,D   
  *GET,C(J,1),NODE,J,VOLT                  
*ENDDO     
*CFOPEN,VN,TXT
*VWRITE,C(J,1),
(F18.1)
*CFCLOS
这是ansys命令里输出的命令

vvt

请提供 VN.txt 文件的内容