20.59 KB, 下载次数: 14
chuxf 发表于 2014-3-10 17:45
你试试先把12行的
CALL SUBROUTINE PLEPH ( ET, NTARG, NCENT, RRD )
改为
blank 发表于 2014-3-15 18:09
试过了 没什么用 还是这个原因 The storage extent of the dummy argument exceeds that of the actual a ...
real::ET,RRD(6)
改为 real(8)::ET,RRD(6)
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |