nlsdim.f90

Go to the documentation of this file.

c NLSL Version 1.9.0 beta 2/4/15
c*********************************************************************
c                    =========================
c                          module NLSDIM
c                    =========================
c
c  Defines array dimensioning parameters for NLS programs
c
c MXSTEP  Maximum number of CG/Lanczos steps
c MXDIM   Maximum dimension of matrix
c MXEL    Maximum number of off-diagonal elements in matrix
c MXINP   Maximum number of points in an input file
c MXSPC   Maximum number of spectra that can be fit at once
c MXSITE  Maximum number of sites that can be fit for a given spectrum
c MXSPT   Maximum number of points in an individual spectrum
c         NOTE: THIS SHOULD BE A POWER OF 2
c MXPT    Maximum total number of data points
c MXVAR   Maximum number of parameters that may be varied
c MXJCOL  Maximum number of columns in Jacobian matrix for L-M least
c         squares (should be MXVAR+MXSITE)
c MXTV    Maximum number of variables in "transformed" covariance
c         matrix
c MXCMT   Maximum number of comment lines saved from a datafile
c MXTDG   Maximum total length of tridiagonal matrix element arrays
c         (upper limit needed is MXSTEP*MXSPC*MXSITE)
c MXTDM   Maximum number of blocks in tridiagonal matrix allocation
c         scheme (should be MXSITE*MXSPC) 
c MXSPH   Maximum number of tensors quantities in fprm array
c MXMTS   Dimension of mts array to save truncation indices/flags
c MXFILE  Maximum number of script files that may be open
c NSYMTR  Number of different symmetry types currently defined
c NSYMBL  Number of symbols currently defined
c*********************************************************************
c

      module nlsdim
      implicit none
c
      integer, parameter :: mxstep=2000,
     #           mxdim=45000,mxdim1=mxdim+1,
     #           mxel=50000000,
     #           mxspc=4,
     #           mxcmt=16,
     #           mxspt=512,
     #           mxpt=mxspt*mxspc,
     #           mxvar=10,
     #           mxinp=4096,
     #           mxsite=3,
     #           mxsph=4,
     #           mxfile=4,
     #           mxtdg=mxstep*mxsite*mxspc,
     #           mxtdm=mxspc*mxsite,
     #           mxjcol=mxvar+mxsite,
     #           mxtv=mxjcol+4*mxsite,
     #           mxmts=13
c
      integer, parameter :: nfprm=43,
     #           nvprm=35,
     #           niprm=24,
     #           nalias=12,
     #           nsymtr=3,
     #           nsymbl=5
c
c*********************************************************************
c
      end module nlsdim