moda_idrdm.F

    MODULE moda_idrdm

#ifndef NFILES_H
#define NFILES_H
      USE modv_nfiles
#endif

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

    END MODULE