MODULE MODA_RDMTB #ifndef MAXCD_H #define MAXCD_H USE MODV_MAXCD #endif #ifndef MXMTBB_H #define MXMTBB_H USE MODV_MXMTBB #endif #ifndef MXMTBD_H #define MXMTBD_H USE MODV_MXMTBD #endif #ifdef DYNAMIC_ALLOCATION INTEGER, ALLOCATABLE :: IEFXYN(:,:) CHARACTER*4, ALLOCATABLE :: CMDSCB(:) CHARACTER*4, ALLOCATABLE :: CMDSCD(:) CHARACTER*120, ALLOCATABLE :: CEELEM(:,:) #else INTEGER :: IEFXYN(MXMTBD,MAXCD) CHARACTER*4 :: CMDSCB(MXMTBB) CHARACTER*4 :: CMDSCD(MXMTBD) CHARACTER*120 :: CEELEM(MXMTBD,MAXCD) #endif END MODULE