mtsdef.f90

Go to the documentation of this file.

c NLSL Version 1.9.0 beta 2/12/15
c----------------------------------------------------------------------
c                    ====================
c                       module MTSDEF
c                    ====================
c
c    Defines positions of elements of mts array used in lbasix and setmts
c    routines
c
c          mts(1)  lemx    Maximum even L
c          mts(2)  lomx    Maximum odd L
c          mts(3)  kmn     Minimum K (K<0 => jK = -1)
c          mts(4   kmx     Maximum K
c          mts(5)  mmn     Minimum M (M<0 => jM = -1)
c          mts(6)  mmx     Maximum M
c          mts(7)  ipnmx   Maximum pI
c          mts(8)  ldelta  L increment
c          mts(9)  kdelta  K increment
c          mts(10) ipsi0   Tilt angle flag
c          mts(11) in2     Nuclear spin
c          mts(12) jkmn    Minimum jK
c          mts(13) jmmn    Minimum jM
c
c----------------------------------------------------------------------
c
      module mtsdef
      implicit none
c
      integer, parameter ::
     #           nlemx=1,nlomx=2,nkmn=3,nkmx=4,nmmn=5,nmmx=6,nipnmx=7,
     #           nldel=8,nkdel=9,nipsi0=10,nin2=11,njkmn=12,njmmn=13,
     #           ntrc=7
c
      end module mtsdef