81
0
专家
INTEGER NX,NY REAL*8 XE1,YE1 REAL*8, ALLOCATABLE :: H(:,:) OPEN(1,FILE="SUR.TXT") READ(1,*) NX,NY,XE1,YE1,DX,DY ALLOCATE(H(0:NX-1,0:NY-1)) DO I=0,NX-1 READ(1,*) H(I,:) ENDDO READ(1,*) B,C,K CLOSE(1) DXR=XE1/(NX-1) DYR=YE1/(NY-1)
使用道具 举报
zjk0112 发表于 2022-7-25 10:29 你这个I = 0,NX-1容易数组越界。你这不是C。Fortran这么干,经常在intel的编译器不报错,在别的编译器就 ...
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给完成“有规有矩”任务的网友
颁发给注册后积极发言的新人
颁发给论坛注册3年以上的网友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-11-1 07:13
Powered by Tencent X3.4
© 2013-2024 Tencent