PROGRAM MAIN
        IMPLICIT INTEGER (A-Z)

        READ *, NATP_M_, NATCLU_M_, NAT_EQ_M_, N_CL_L_M_, 
     &  NE_M_, NL_M_, LI_M_, NEMET_M_, NO_ST_M_, NDIF_M_, NSO_M_, 
     &  NTEMP_M_, NODES_EX_M_, NSPIN_M_, NTH_M_, NPH_M_, NDIM_M_, 
     &  N_TILT_M_, N_ORD_M_, NPATH_M_, NGR_M_

        CALL RUN(NATP_M_, NATCLU_M_, NAT_EQ_M_, N_CL_L_M_, 
     &  NE_M_, NL_M_, LI_M_, NEMET_M_, NO_ST_M_, NDIF_M_, NSO_M_, 
     &  NTEMP_M_, NODES_EX_M_, NSPIN_M_, NTH_M_, NPH_M_, NDIM_M_, 
     &  N_TILT_M_, N_ORD_M_, NPATH_M_, NGR_M_)
      END PROGRAM MAIN