MODULE approx_Module
!-----------------------------------------------------------------------
!   approx_Module
!
! censud  Set to true IF centrifugal sudden approximation is desired.
! engsud  Set to true IF energy sudden approximation is desired.
! iossud  Set to true IF infinite order sudden approximation is desired.
! pseudo  IF set to true in conjunction with one of the above approximations
!         THEN the full coupled-channel equations is solved with the
!         appropriate coupling set to zero. This option is for debugging
!         purposes only.
! lbar    Average orbital quantum number used in the centrifugal sudden
!        approximation.
! jbar    Average rotational quantum number used in the energy sudden
!         approximation.
! mbar    Average projection quantum number used in the centrifugal
!         or energy sudden approximations.
! icase=1 Exact diagonal jtot(jtot+1)+j(j+1)-2omega*omega is used.
! icase=2 Diagonal elements are lorb*(lorb+1).
! icase=3 Diagonal elements are lbar*(lbar+1).
!-----------------------------------------------------------------------
   SAVE
   LOGICAL censud, engsud, iossud, pseudo
   INTEGER lbar, jbar, mbar, icase
   NAMELIST / approx / censud, engsud, iossud, pseudo, icase, lbar,jbar, mbar
ENDMODULE approx_Module