Module Parms_Module USE NArran_Module USE DVR_Module IMPLICIT NONE SAVE INTEGER MxAng !INTEGER, PARAMETER :: MxAng= 1920 INTEGER MxBasis !INTEGER, PARAMETER :: MxBasis= 215 INTEGER MxBasiss INTEGER MxGlegn INTEGER MxHermt INTEGER Mxl INTEGER MxMega !INTEGER, PARAMETER :: MxMega= 0 INTEGER Mxn !INTEGER, PARAMETER :: Mxn= 5 INTEGER NVibRot INTEGER NVbrthrt INTEGER ndvptmax INTEGER MaxOsc INTEGER maxhermt INTEGER, PARAMETER :: npoint=300 INTEGER, PARAMETER :: mxnode=1715 INTEGER, PARAMETER :: mxelmnt=1715 INTEGER, PARAMETER :: NRhoSec= 3 INTEGER, PARAMETER :: MaxDim=200 END Module Parms_Module