作者iammyfriend (台南玄野计!)
站内Fortran
标题[问题] 执行这段程式後 为什麽会跳出T=0?
时间Wed Dec 3 01:06:24 2014
DISPERSION PROGRAM
C 1-D, EXPLICIT SCHEME
real C(182),F(182),CN(182),E(182),Z,ZNDA
+DX,DT,K
integer INDX
c DIMENSION
C OPEN (5, FILE='A5.DAT', STATUS='NEW')
OPEN (6, FILE='A6.OUT', STATUS='OLD')
C READ(5,*) DX, DT, K
DX=1.0
DT=1.0
K=0.1
WRITE(6,*) INDX, I, DX, DT, K
INDX=0
20 DO 40,I=1,9
C(I)=0
40 CONTINUE
C(5)=10
DX=1.0
DT=1.0
K=0.1
ZNDA=K*DT/(DX)**2
A=-ZNDA
110 B=1+2*ZNDA
Z=-ZNDA
130 WRITE(*,*)"t=",INDX
INDX=INDX+1
E(2)=0
F(2)=C(1)
DO 210, I=3,9
D=C(I)
E(I)=-0.1/(A*E(I-1)+B)
F(I)=(D-A*F(I-1))/(A*E(I-1)+B)
210 CONTINUE
220 DO 250,I=1,7
J=9-I
CN(J)=E(J+1)*C(J+1)+F(J+1)
250 CONTINUE
DO 280,I=1,9
C(I)=CN(I)
280 CONTINUE
cc WRITE(*,*)"t=",INDX
290 IF(MOD (INDX+60,60).NE.0)GO TO 220
WRITE(1,*)(C(I),I=2,8)
310 IF(INDX.LT.1440)GO TO 110
STOP
END
按CTRL+F5执行之後
它跳出t=0
并且下面也跳出 forrtl: error (200): program aborting due to control-C event
请问我会是哪一段写错Q_Q
请各位高手、大侠帮忙
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 125.230.80.155
※ 文章网址: http://webptt.com/cn.aspx?n=bbs/Fortran/M.1417539987.A.97A.html
1F：→ fcuiii: 这语法很久勒，看起来有点乱。 12/03 11:54
2F：→ dudu1005: 7月在毕业 谢谢 12/08 09:35
3F：推 NBAdog: NO 要先去当兵 嘟嘟 12/08 14:58
4F：→ NBAdog: 已解决A_A 12/08 14:58