Fortran Coder

标题: 读取数据出现forrtl:severe<24>:end-of-file during read的错误 [打印本页]

作者: 贝加尔湖湖湖湖 时间: 2017-4-10 23:18
标题: 读取数据出现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 时间: 2017-4-11 07:52

[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

作者: 金钰杰 时间: 2020-7-24 09:54

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

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

作者: 金钰杰 时间: 2020-7-24 10:00
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命令里输出的命令

问题1.jpg (35.52 KB, 下载次数: 159)

作者: vvt 时间: 2020-7-24 18:01
请提供 VN.txt 文件的内容

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)