[photran] Refactoring F77 global common blocks into F90 modules

[Carl Slater <ce.slater@xxxxxxxxx>]

So I want to convert:

 

COMMON/NC1/ NVARY , STALM , NSHRD , MAT , EFPOLT , NPAGE , MINI

 

into something that looks like:

 

 

Module NC1   
    implicit none
    INTEGER     (KIND=4),   PUBLIC :: NVARY
    REAL        (KIND=4),   PUBLIC :: STALM
    INTEGER     (KIND=4),   PUBLIC :: NSHRD
    INTEGER     (KIND=4),   PUBLIC :: MAT
    REAL        (KIND=4),   PUBLIC :: EFPOLT
    INTEGER     (KIND=4),   PUBLIC :: NPAGE
    INTEGER     (KIND=4),   PUBLIC :: MINI

    data NVARY/-1/
    data STALM/1/
    data NSHRD/-1/
    data MAT/-1/
    data EFPOLT/1/
    data NPAGE/-1/
    data MINI/-1/

END Module NCI

 

My guess is this is a fairly common refactor..... so the question is how?

 

Regards

Carl