MODULE NState_Module
   USE Numeric_Kinds_Module
   IMPLICIT NONE
   SAVE
   INTEGER(KIND=IW_Kind), PARAMETER:: NState=200   !1300  !
   INTEGER(KIND=IW_Kind)::            Nopen_Max
END MODULE NState_Module