MODULE COMNP
USE COMPAR
COMPLEX CFFS(NP)
COMMON /STRDIS/ CFF,CFFS
END MODULE COMNP
SUBROUTINE GETSLN(IL,NSLOW)
USE COMPAR
USE COMNP
DIMENSION X(NP2,3)
equivalence (X(1,1),CFF(1,1))
……
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |