moda_rlccmn.F

    MODULE moda_rlccmn

#ifndef MXRST_H
#define MXRST_H
      USE modv_mxrst
#endif

      INTEGER :: nrst
#ifdef DYNAMIC_ALLOCATION
      INTEGER, ALLOCATABLE :: irnch(:) 
      INTEGER, ALLOCATABLE :: irbit(:) 
      CHARACTER*10, ALLOCATABLE :: crtag(:)
#else
      INTEGER :: irnch(mxrst) 
      INTEGER :: irbit(mxrst) 
      CHARACTER*10 :: crtag(mxrst)
#endif

    END MODULE