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

贝加尔湖湖湖湖

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

查看代码

打印?

01	program lxj

02	implicit none

03	real a(1201,103),b(1200,102)

04	integer::i,j,p=0,k=1

05	open(7,file='d:\bylw\out4\3.txt')

06	do j=1,1200

07	do i=1,102

08	read(7,*) a(j,i)

09

end do

10

end do

11

close(7)

12	do j=1,102

13	do i=1,1200

14	if(a(i,j)<-0.5)then

15

p=p+1

16

b(k,j)=p

17

else

18

p=0

19

k=k+1

20

b(k,j)=0

21

end if

22

end do

23

end do

24	open(9,file='d\bylw\out5\3.txt')

25	write(9,*) b(k,102)

26

close(9)

27

end

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

fcode

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

查看代码

打印?

1	do j=1,1200

2	do i=1,102

3	read(7,*) a(j,i)

4

end do

5

end do

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

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

查看代码

打印?

1	do j=1,1200

2	read(7,*) a(j,:)

3

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 文件的内容