MODULE RotMax_Module
   SAVE
   INTEGER jrmax    ! Maximum rotational state.
   NAMELIST/rotmax/ jrmax
END MODULE RotMax_Module