找回密码
 注册
查看: 1582|回复: 0

[求助]如何将FORTRAN77中的COMMON语句转换为FORTRAN90中的模块形

[复制链接]
发表于 2007-3-17 10:46:46 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?注册

x


有谁知道如何将FORTRAN77中的COMMON语句转换为FORTRAN90中的模块形式?
比如下面这个,这是一个FORTRAN77文件中的INCLUDE文件:      
      IMPLICIT REAL*8 (A-H,O-Z)
      PARAMETER (MS = 1000, MPOP = 500, NOP = 50)
C
      COMMON/ISEED/IS, IF,POPS
      COMMON/POP/NO(MS,MPOP), NN(MS,MPOP)
      COMMON/POP1/XYO(NOP,MPOP),XYN(NOP,MPOP),FIO(MPOP),
     #                                            FIN(MPOP)
      COMMON/STATS/SUMF, AVG, VMA, VMI
      COMMON/IMIN/IMIN
      COMMON/CO12/CO1(NOP) , CO2(NOP)
      COMMON/INITDA/ NPOP, LCH, MAXG
      COMMON/PCPM/PC, PM
      COMMON/NBIT/NBIT(NOP), NOP
      COMMON/SELE/NR(MPOP), NPI
      COMMON/LEV11/EVaL
C
      COMMON/TECHNIQUE/IFT,IFR,IFS,
     #                 IFLI,IFE,IFU
      COMMON/METHOD/CM, AL
      COMMON/NICHE/SIG, B
      COMMON/QUELMUI/IFCH
      COMMON/QUEL/IFCH
      
      非常感谢![DISABLELBCODE]
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表