MODULE MaxNstate_Module
   IMPLICIT NONE
   SAVE
   INTEGER, PARAMETER::  maxnstate=500   !
END MODULE MaxNstate_Module