NLSL: parcom.f90 Source File

NLSL

- Main Page
- Modules
- Data Types List
- Files

- File List
- File Members

parcom.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 PARCOM
5 c =========================
6 c
7 c Common block containing a list of quantities associated with
8 c each of the fitting parameters being varied (i.e. each parameter
9 c in the x array for LMDER-family programs).
10 c
11 c NOTE: this module uses nlsdim, so compile nlsdim.f90 first.
12 c
13 c prmax : Vector containing upper limits for each parameter in x array
14 c prmin : Vector containing lower limits for each parameter in x array
15 c prscl : Vector containing desired absolute accuracy for each parameter
16 c in x array
17 c xfdstp : Vector containing size of forward-difference step for each
18 c parameter in x array
19 c xerr : Vector containing uncertainty estimates for each parameter in x
20 c serval : List of values for the parameter being varied in a series
21 c wlb : List of line-broadening widths for each spectrum in a series
22 c ibnd : Flag for boundaries imposed on each parameter:
23 c 0=none, 1=minimum, 2=maximum, 3=both
24 c ixpr : Index of each variable parameter appearing in the x array
25 c into the fepr array in module eprprm
26 c ixst : Secondary index of each parameter appearing in the x array
27 c identifying which site or spectrum in a series the parameter
28 c is associated with
29 c ixx : Index of each parameter into the variable parameter array, x
30 c (0 if parameter is not being varied)
31 c iser : Index of the parameter being varied in a series of spectra
32 c nser : Number of values given for parameter <iser> in the series
33 c (should equal number of spectra in the series)
34 c nsite : Number of sites defined for a given spectrum
35 c nprm : Number of parameters being varied
36 c ptol : Parameter convergence tolerance for 1-parameter searches
37 c pftol : Function convergence tolerance for 1-parameter searches
38 c pbound : Search bound for 1-parameter searches
39 c srange : Allowed shifting range
40 c----------------------------------------------------------------------
41 c
42 module parcom
43 use nlsdim
44 implicit none
45 c
46 c double precision prmax,prmin,prscl,serval,xfdstp,xerr,fparm,
47 c # ctol,ptol,pftol,pstep,pbound,srange
48 c integer iparm,ibnd,ixpr,ixst,ixx,iser,nser,nsite,nprm,njcol,
49 c # nshift,noneg,ixp1p,ixs1p,mxpitr,itridg,iitrfl,jacobi,
50 c # output
51 c logical mtxclc
52 c character*9 tag
53 c
54 double precision, target, save :: fparm(nfprm,mxsite)
55 c
56 double precision, save :: prmax(mxvar),prmin(mxvar),
57 # prscl(mxvar),xfdstp(mxvar),xerr(mxjcol),
58 # serval(mxspc),ctol,ptol,pftol,pstep,pbound,
59 # srange
60 integer, target, save :: iparm(niprm,mxsite)
61 c
62 integer, save :: ixx(nfprm,mxsite),
63 # ibnd(mxvar),ixpr(mxvar),ixst(mxvar),
64 # iser,nser,nsite,nprm,njcol,nshift,noneg,itridg,
65 # iitrfl,jacobi,ixp1p,ixs1p,mxpitr,output
66 logical, save :: mtxclc
67 character*9, save :: tag(mxjcol)
68 c
69 end module parcom
parcom::ixst
integer, dimension(mxvar), save ixst
Definition: parcom.f90:62
parcom::noneg
integer, save noneg
Definition: parcom.f90:62
parcom::srange
double precision, save srange
Definition: parcom.f90:56
nlsdim::niprm
integer, parameter niprm
Definition: nlsdim.f90:57
parcom::iitrfl
integer, save iitrfl
Definition: parcom.f90:62
nlsdim::mxvar
integer, parameter mxvar
Definition: nlsdim.f90:39
parcom::itridg
integer, save itridg
Definition: parcom.f90:62
parcom::pstep
double precision, save pstep
Definition: parcom.f90:56
parcom::fparm
double precision, dimension(nfprm, mxsite), target, save fparm
Definition: parcom.f90:54
parcom::pftol
double precision, save pftol
Definition: parcom.f90:56
parcom::ixs1p
integer, save ixs1p
Definition: parcom.f90:62
parcom::output
integer, save output
Definition: parcom.f90:62
parcom
Definition: parcom.f90:42
parcom::serval
double precision, dimension(mxspc), save serval
Definition: parcom.f90:56
parcom::jacobi
integer, save jacobi
Definition: parcom.f90:62
parcom::xfdstp
double precision, dimension(mxvar), save xfdstp
Definition: parcom.f90:56
nlsdim::mxspc
integer, parameter mxspc
Definition: nlsdim.f90:39
parcom::ixpr
integer, dimension(mxvar), save ixpr
Definition: parcom.f90:62
parcom::nprm
integer, save nprm
Definition: parcom.f90:62
parcom::prmin
double precision, dimension(mxvar), save prmin
Definition: parcom.f90:56
parcom::nsite
integer, save nsite
Definition: parcom.f90:62
parcom::nshift
integer, save nshift
Definition: parcom.f90:62
parcom::ixp1p
integer, save ixp1p
Definition: parcom.f90:62
parcom::iparm
integer, dimension(niprm, mxsite), target, save iparm
Definition: parcom.f90:60
nlsdim::mxsite
integer, parameter mxsite
Definition: nlsdim.f90:39
parcom::mtxclc
logical, save mtxclc
Definition: parcom.f90:66
parcom::nser
integer, save nser
Definition: parcom.f90:62
parcom::xerr
double precision, dimension(mxjcol), save xerr
Definition: parcom.f90:56
parcom::prmax
double precision, dimension(mxvar), save prmax
Definition: parcom.f90:56
parcom::iser
integer, save iser
Definition: parcom.f90:62
parcom::ctol
double precision, save ctol
Definition: parcom.f90:56
parcom::ibnd
integer, dimension(mxvar), save ibnd
Definition: parcom.f90:62
parcom::pbound
double precision, save pbound
Definition: parcom.f90:56
parcom::ptol
double precision, save ptol
Definition: parcom.f90:56
nlsdim
Definition: nlsdim.f90:36
parcom::mxpitr
integer, save mxpitr
Definition: parcom.f90:62
parcom::ixx
integer, dimension(nfprm, mxsite), save ixx
Definition: parcom.f90:62
nlsdim::mxjcol
integer, parameter mxjcol
Definition: nlsdim.f90:39
parcom::tag
character *9, dimension(mxjcol), save tag
Definition: parcom.f90:67
nlsdim::nfprm
integer, parameter nfprm
Definition: nlsdim.f90:57
parcom::prscl
double precision, dimension(mxvar), save prscl
Definition: parcom.f90:56
parcom::njcol
integer, save njcol
Definition: parcom.f90:62