fortran77程序的某行代码, 第一个字符是d代表什么?
开头是C代表注释,那么d代表什么?gfortran好像遇到这样的语句就出问题。…………COMMON/EIGEN/H(NDMX,NDMX),WORK(NDMX),EGVC3...
开头是C代表注释,那么d代表什么?gfortran好像遇到这样的语句就出问题。
…………
COMMON/EIGEN/H(NDMX,NDMX),WORK(NDMX),EGVC3(KDMX,9)
1,NBR(2),VECTPR(10,5041,KDMX,9)
c!(J+1)^2=5041 is for J=70, 6561 is for J=80 (miguel)
COMMON/TOR/A(9,NTORMX,KDMX,NN,ISIGMA),ETOR(KDMX,9)
d COMMON/DAT/CONV,IBUG1,IBUG2,IBUG3,IBUG4,KTRONC,KTRON1 ,
d * IBGTME,IBGVTD ,EVIB(2),IRMW,TERM
COMMON/DAT/TERM,CONV,IBUG1,IBUG2,IBUG3,IBUG4,KTRONC,KTRON1 ,
* IBGTME,IBGVTD ,EVIB(2),IRMW
COMMON/ROTOR/NROTOR,NDIMTO
d COMMON/PAR/IND(2,65),NP(2),X(65),ITO
COMMON/PAR/IND(2,80),NP(2),X(160),ITO !changed by MCZ (02/05/2006)
d COMMON/BIG2/DERIV(10,5041,65),ENER(10,5041) !(J+1)^2=5041 is for J=70, 6561 is for J=80 (miguel)
COMMON/BIG2/DERIV1(10,5041,80),ENER(10,5041)
COMMON/EXPDAT / ETRANS(NDTA),IVOBS(2,NDTA),
………… 展开
…………
COMMON/EIGEN/H(NDMX,NDMX),WORK(NDMX),EGVC3(KDMX,9)
1,NBR(2),VECTPR(10,5041,KDMX,9)
c!(J+1)^2=5041 is for J=70, 6561 is for J=80 (miguel)
COMMON/TOR/A(9,NTORMX,KDMX,NN,ISIGMA),ETOR(KDMX,9)
d COMMON/DAT/CONV,IBUG1,IBUG2,IBUG3,IBUG4,KTRONC,KTRON1 ,
d * IBGTME,IBGVTD ,EVIB(2),IRMW,TERM
COMMON/DAT/TERM,CONV,IBUG1,IBUG2,IBUG3,IBUG4,KTRONC,KTRON1 ,
* IBGTME,IBGVTD ,EVIB(2),IRMW
COMMON/ROTOR/NROTOR,NDIMTO
d COMMON/PAR/IND(2,65),NP(2),X(65),ITO
COMMON/PAR/IND(2,80),NP(2),X(160),ITO !changed by MCZ (02/05/2006)
d COMMON/BIG2/DERIV(10,5041,65),ENER(10,5041) !(J+1)^2=5041 is for J=70, 6561 is for J=80 (miguel)
COMMON/BIG2/DERIV1(10,5041,80),ENER(10,5041)
COMMON/EXPDAT / ETRANS(NDTA),IVOBS(2,NDTA),
………… 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询