moda_rdmtb.F

    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