moda_comprx.F

    MODULE moda_comprx

#ifndef MXCDV_H
#define MXCDV_H
      USE modv_mxcdv
#endif

#ifndef MXLCC_H
#define MXLCC_H
      USE modv_mxlcc
#endif

      INTEGER :: nrow
      INTEGER :: lunc
      INTEGER :: kbyt
      LOGICAL :: flush
      LOGICAL :: writ1
#ifdef DYNAMIC_ALLOCATION
      INTEGER, ALLOCATABLE :: kmin(:)
      INTEGER, ALLOCATABLE :: kmax(:) 
      LOGICAL, ALLOCATABLE :: kmis(:)
      INTEGER, ALLOCATABLE :: kbit(:)
      INTEGER, ALLOCATABLE :: ityp(:)
      INTEGER, ALLOCATABLE :: iwid(:)
      CHARACTER*(:), ALLOCATABLE :: cstr(:)
#else
      INTEGER :: kmin(mxcdv)
      INTEGER :: kmax(mxcdv) 
      LOGICAL :: kmis(mxcdv)
      INTEGER :: kbit(mxcdv)
      INTEGER :: ityp(mxcdv)
      INTEGER :: iwid(mxcdv)
      CHARACTER*(MXLCC) :: cstr(mxcdv)
#endif

    END MODULE