24小时热门版块排行榜    

查看: 328  |  回复: 1

海纳江河

木虫 (正式写手)

[求助] 数组维数异常变化

定义的数组在程序执行过程中,其定义维数发生变化,发生超出数组边界的错误,这是什么原因,大家有没有遇到过。
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

海纳江河

木虫 (正式写手)

write(777,"('2*',2i7)" NELEM_SHEET,NGAUS_ORD_SHEET**3
write(777,"(2i7)" size(ISSHT_PLAST,1),size(ISSHT_PLAST,2)

CALL SHELE_SHNOD_NORMV(incre,COORD_SHEET,LNODS_SHEET,coord_shtop,coord_shbtm,&
SHNOD_NORMV,SHELE_NORMV,KOUNT_SHELE,NOELE_SHEET,NONOD_SHEET,SHNOD_FLOWX,SHNOD_FLOWY,shnod_flowz)

write(777,"('2*',2i7)" NELEM_SHEET,NGAUS_ORD_SHEET**3
write(777,"(2i7)" size(ISSHT_PLAST,1),size(ISSHT_PLAST,2)

在调用一个子程序后,数组ISSHT_PLAST的维数输出结果变为0*******,致使后续用到该数组时超出数组边界,但是子程序中并没有数组ISSHT_PLAST,不知大家有没有雨过类似的情况。
2楼2016-01-07 21:35:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 海纳江河 的主题更新
信息提示
请填处理意见