moda_stcode.F

    MODULE moda_stcode

#ifndef NFILES_H
#define NFILES_H
      USE modv_nfiles
#endif

#ifdef DYNAMIC_ALLOCATION
      INTEGER, ALLOCATABLE :: iscodes(:)
#else
      INTEGER :: iscodes(nfiles)
#endif

    END MODULE