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 展开
展开全部
没有说问题啊。
追问
总是提示数组超出范围。
追答
如果是数组越界，就根据错误提示检查一下各向量的下标表达。如果数据比较大，还有可能是栈溢出，那就要把栈开大一点。
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
浙江启扬智能科技有限公司
2023-06-12 广告
Android和ARM、Linux之间存在密切的联系。Android是一种基于Linux内核的嵌入式智能操作系统，它采用了ARM处理器作为其主要处理器架构。Android的内核和许多应用程序都是基于ARM架构编写的，包括处理器和内存管理器。...
点击进入详情页
本回答由浙江启扬智能科技有限公司提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
