      module Vparam
      use kind_spec

C...Created by Pacific-Sierra Research VAST-90 2.06G2  12:29:44   5/18/01
      integer, parameter :: nbwg = 24
      integer, parameter :: npdim = 10000
      integer, parameter :: nspectm = 11
      integer, parameter :: nspect1 = 21
      integer, parameter :: nspray = 3
      integer, parameter :: ntheta = 15
      integer, parameter :: ngdim = nspray*nspectm*ntheta
      integer, parameter :: nions = 6
      integer, parameter :: nions1 = nions
      integer, parameter :: nbesa = 201
      integer, parameter :: nuam = 65
      integer, parameter :: ntam = 65
      integer, parameter :: nwk = 1 + 3*ntam
      integer, parameter :: imaxu = nuam
      integer, parameter :: jmax = ntam
      integer, parameter :: irmax = 21
      integer, parameter :: nxa = 80
      integer, parameter :: nza = 80
      integer, parameter :: nza2 = 2*nza
      integer, parameter :: nprofm = 131
      integer, parameter :: nprofn = nprofm
      integer, parameter :: nptsdm = 263
      integer, parameter :: inoperm = 2*nptsdm*nprofm + 2*nptsdm
      integer, parameter :: lrza = 51
      integer, parameter :: nraym = 5000
      integer, parameter :: nplus = 5000
      integer, parameter :: nbitab = 10001
      integer, parameter :: nli = 101
      integer, parameter :: nwka = 2*nions + 6
      integer, parameter :: nprofm2 = 2*nprofm
      integer, parameter :: nwp0 = 50
      integer, parameter :: nthp11a = 61
      integer, parameter :: nthp00 = 1001
      integer, parameter :: npsis = 26
      integer, parameter :: npnta = 101
      integer, parameter :: mpnta = npsis
      integer, parameter :: ndim30 = npdim
      integer, parameter :: ndim20 = 10
      integer, parameter :: nfion = 10
      integer, parameter :: lmx = 51
      integer, parameter :: lmn = 0
      integer, parameter :: lbes = lmx - lmn + 1
      integer, parameter :: nbsx = 5001
      end module Vparam
