MODULE MODA_S01CM #ifndef MXS01V_H #define MXS01V_H USE MODV_MXS01V #endif #ifdef DYNAMIC_ALLOCATION INTEGER, ALLOCATABLE :: IVMNEM(:) CHARACTER*8, ALLOCATABLE :: CMNEM(:) #else INTEGER :: IVMNEM(MXS01V) CHARACTER*8 :: CMNEM(MXS01V) #endif INTEGER :: NS01V = 0 END MODULE