moda_usrint.F

    MODULE moda_usrint

#ifndef MAXSS_H
#define MAXSS_H
      USE modv_maxss
#endif

#ifndef NFILES_H
#define NFILES_H
      USE modv_nfiles
#endif

#ifdef DYNAMIC_ALLOCATION
      INTEGER, ALLOCATABLE :: nval(:)
      INTEGER, ALLOCATABLE :: inv(:,:)
      INTEGER, ALLOCATABLE :: nrfelm(:,:)
      REAL*8, ALLOCATABLE :: val(:,:)
#else
      INTEGER :: nval(nfiles)
      INTEGER :: inv(maxss,nfiles)
      INTEGER :: nrfelm(maxss,nfiles)
      REAL*8 :: val(maxss,nfiles)
#endif

    END MODULE