NLSL: nlsdim.f90 Source File

NLSL

- Main Page
- Modules
- Data Types List
- Files

- File List
- File Members

nlsdim.f90
Go to the documentation of this file.
1 c NLSL Version 1.9.0 beta 2/4/15
2 c*********************************************************************
3 c =========================
4 c module NLSDIM
5 c =========================
6 c
7 c Defines array dimensioning parameters for NLS programs
8 c
9 c MXSTEP Maximum number of CG/Lanczos steps
10 c MXDIM Maximum dimension of matrix
11 c MXEL Maximum number of off-diagonal elements in matrix
12 c MXINP Maximum number of points in an input file
13 c MXSPC Maximum number of spectra that can be fit at once
14 c MXSITE Maximum number of sites that can be fit for a given spectrum
15 c MXSPT Maximum number of points in an individual spectrum
16 c NOTE: THIS SHOULD BE A POWER OF 2
17 c MXPT Maximum total number of data points
18 c MXVAR Maximum number of parameters that may be varied
19 c MXJCOL Maximum number of columns in Jacobian matrix for L-M least
20 c squares (should be MXVAR+MXSITE)
21 c MXTV Maximum number of variables in "transformed" covariance
22 c matrix
23 c MXCMT Maximum number of comment lines saved from a datafile
24 c MXTDG Maximum total length of tridiagonal matrix element arrays
25 c (upper limit needed is MXSTEP*MXSPC*MXSITE)
26 c MXTDM Maximum number of blocks in tridiagonal matrix allocation
27 c scheme (should be MXSITE*MXSPC)
28 c MXSPH Maximum number of tensors quantities in fprm array
29 c MXMTS Dimension of mts array to save truncation indices/flags
30 c MXFILE Maximum number of script files that may be open
31 c NSYMTR Number of different symmetry types currently defined
32 c NSYMBL Number of symbols currently defined
33 c*********************************************************************
34 c
35
36 module nlsdim
37 implicit none
38 c
39 integer, parameter :: mxstep=2000,
40 # mxdim=45000,mxdim1=mxdim+1,
41 # mxel=50000000,
42 # mxspc=4,
43 # mxcmt=16,
44 # mxspt=512,
45 # mxpt=mxspt*mxspc,
46 # mxvar=10,
47 # mxinp=4096,
48 # mxsite=3,
49 # mxsph=4,
50 # mxfile=4,
51 # mxtdg=mxstep*mxsite*mxspc,
52 # mxtdm=mxspc*mxsite,
53 # mxjcol=mxvar+mxsite,
54 # mxtv=mxjcol+4*mxsite,
55 # mxmts=13
56 c
57 integer, parameter :: nfprm=43,
58 # nvprm=35,
59 # niprm=24,
60 # nalias=12,
61 # nsymtr=3,
62 # nsymbl=5
63 c
64 c*********************************************************************
65 c
66 end module nlsdim
nlsdim::nvprm
integer, parameter nvprm
Definition: nlsdim.f90:57
nlsdim::mxfile
integer, parameter mxfile
Definition: nlsdim.f90:39
nlsdim::mxpt
integer, parameter mxpt
Definition: nlsdim.f90:39
nlsdim::mxstep
integer, parameter mxstep
Definition: nlsdim.f90:39
nlsdim::niprm
integer, parameter niprm
Definition: nlsdim.f90:57
nlsdim::mxvar
integer, parameter mxvar
Definition: nlsdim.f90:39
nlsdim::mxcmt
integer, parameter mxcmt
Definition: nlsdim.f90:39
nlsdim::mxspt
integer, parameter mxspt
Definition: nlsdim.f90:39
nlsdim::mxmts
integer, parameter mxmts
Definition: nlsdim.f90:39
nlsdim::mxtdm
integer, parameter mxtdm
Definition: nlsdim.f90:39
nlsdim::mxspc
integer, parameter mxspc
Definition: nlsdim.f90:39
nlsdim::mxsite
integer, parameter mxsite
Definition: nlsdim.f90:39
nlsdim::mxdim1
integer, parameter mxdim1
Definition: nlsdim.f90:39
nlsdim::mxtv
integer, parameter mxtv
Definition: nlsdim.f90:39
nlsdim::mxsph
integer, parameter mxsph
Definition: nlsdim.f90:39
nlsdim::nsymtr
integer, parameter nsymtr
Definition: nlsdim.f90:57
nlsdim::mxel
integer, parameter mxel
Definition: nlsdim.f90:39
nlsdim::nalias
integer, parameter nalias
Definition: nlsdim.f90:57
nlsdim
Definition: nlsdim.f90:36
nlsdim::mxdim
integer, parameter mxdim
Definition: nlsdim.f90:39
nlsdim::mxjcol
integer, parameter mxjcol
Definition: nlsdim.f90:39
nlsdim::mxtdg
integer, parameter mxtdg
Definition: nlsdim.f90:39
nlsdim::nfprm
integer, parameter nfprm
Definition: nlsdim.f90:57
nlsdim::nsymbl
integer, parameter nsymbl
Definition: nlsdim.f90:57
nlsdim::mxinp
integer, parameter mxinp
Definition: nlsdim.f90:39