Fortran77的编程问题，求大神解答！
CWATERHAMMERFINITEDIMENSIONV(100),H(100)READ(5,1)DX,DT,C,HO,VO,TOL,IMAX1FORMAT(6F7.0,...
C WATER HAMMER FINITE
DIMENSION V(100),H(100)
READ(5,1) DX,DT,C,HO,VO,TOL,IMAX
1 FORMAT(6F7.0,I4)
IMAX1=IMAX-1
V(I)=VO
2 H(I)=HO
T=0
N=0
100 T=T+DT
N=N+1
IF(T.GT.TOL) GO TO 3
SR=(TOL-T)/TOL
GO TO 4
3 SR=0
4 CONTINUE
V(IMAX)=SR*SQRT(2.*9.81*HO)
DO 5 I=2,IMAX1
5 V(I)=V(I)-9.81*DT*(H(I)-H(I-1))/DX
DO 6 I=2,IMAX1
6 H(I)=H(I)-DT*C**2/9.81*(V(I+1))-V(I)/DX
WRITE (6,11) T
11 FORMAT(F10.3)
WRITE(6,12) (V(I),I=1,IMAX)
WRITE(6,12) (H(I),I=1,IMAX)
12 FORMAT (12F10.4)
IF(N.LT.200) GO TO 100
STOP
END 展开
DIMENSION V(100),H(100)
READ(5,1) DX,DT,C,HO,VO,TOL,IMAX
1 FORMAT(6F7.0,I4)
IMAX1=IMAX-1
V(I)=VO
2 H(I)=HO
T=0
N=0
100 T=T+DT
N=N+1
IF(T.GT.TOL) GO TO 3
SR=(TOL-T)/TOL
GO TO 4
3 SR=0
4 CONTINUE
V(IMAX)=SR*SQRT(2.*9.81*HO)
DO 5 I=2,IMAX1
5 V(I)=V(I)-9.81*DT*(H(I)-H(I-1))/DX
DO 6 I=2,IMAX1
6 H(I)=H(I)-DT*C**2/9.81*(V(I+1))-V(I)/DX
WRITE (6,11) T
11 FORMAT(F10.3)
WRITE(6,12) (V(I),I=1,IMAX)
WRITE(6,12) (H(I),I=1,IMAX)
12 FORMAT (12F10.4)
IF(N.LT.200) GO TO 100
STOP
END 展开
2个回答
展开全部
没有说问题啊。
追问
总是提示数组超出范围。
追答
如果是数组越界，就根据错误提示检查一下各向量的下标表达。如果数据比较大，还有可能是栈溢出，那就要把栈开大一点。
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
意法半导体(中国)投资有限公司
2023-06-12 广告
单片机，即单片微控制器，也称为单片微型计算机，是将中央处理器（CPU）、存储器（ROM，RAM）、输入/输出接口和其他功能部件集成在一块 在一个小块的集成电路上，从而实现对整个电路或系统的数字式控制。单片机不是完成某一个逻辑功能的芯片，而是...
点击进入详情页
本回答由意法半导体(中国)投资有限公司提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
