NLSL: lmcom.f90 Source File

NLSL

- Main Page
- Modules
- Data Types List
- Files

- File List
- File Members

lmcom.f90
Go to the documentation of this file.
1 c NLSL Version 1.9.0 beta 2/13/15
2 c----------------------------------------------------------------------
3 c =========================
4 c module LMCOM
5 c =========================
6 c Work arrays for Levenberg-Marquardt least squares fitting
7 c procedure and parameters controlling termination criteria.
8 c
9 c NOTE: This module uses the nlsdim.inc module.
10 c
11 c----------------------------------------------------------------------
12 c
13 module lmcom
14 use nlsdim
15 implicit none
16 c
17 double precision, save ::
18 # fjac(mxpt,mxjcol), fvec(mxpt), x(mxjcol),
19 # diag(mxjcol), qtf(mxjcol), corr(mxjcol,mxjcol),
20 # work1(mxjcol), work2(mxjcol), work3(mxjcol),
21 # work4(mxpt), gnvec(mxjcol), gradf(mxjcol),
22 # tcov(mxtv,mxtv)
23 c
24 integer, save :: ipvt(mxjcol), nprint, lmflag
25 c
26 integer, parameter :: nflmpr=4, nilmpr=4
27 c
28 double precision, target, save :: flmprm(nflmpr)
29 double precision, pointer, save :: ftol, gtol, xtol, factor
30 c
31 integer, target, save :: ilmprm(nilmpr)
32 integer, pointer, save :: maxev, maxitr, mode, info
33 c
34 contains
35 c
36 subroutine lmcom_init
37 implicit none
38 c
39 ftol => flmprm(1)
40 gtol => flmprm(2)
41 xtol => flmprm(3)
42 factor => flmprm(4)
43 c
44 maxev => ilmprm(1)
45 maxitr => ilmprm(2)
46 mode => ilmprm(3)
47 info => ilmprm(4)
48 c
49 end subroutine lmcom_init
50 c
51 end module lmcom
nlsdim::mxpt
integer, parameter mxpt
Definition: nlsdim.f90:39
info
char info[81]
Definition: genio.c:45
lmcom::ilmprm
integer, dimension(nilmpr), target, save ilmprm
Definition: lmcom.f90:31
lmcom::tcov
double precision, dimension(mxtv, mxtv), save tcov
Definition: lmcom.f90:17
lmcom::ftol
double precision, pointer, save ftol
Definition: lmcom.f90:29
lmcom::work2
double precision, dimension(mxjcol), save work2
Definition: lmcom.f90:17
lmcom::nflmpr
integer, parameter nflmpr
Definition: lmcom.f90:26
lmcom::nilmpr
integer, parameter nilmpr
Definition: lmcom.f90:26
lmcom::gtol
double precision, pointer, save gtol
Definition: lmcom.f90:29
lmcom::maxev
integer, pointer, save maxev
Definition: lmcom.f90:32
lmcom::work4
double precision, dimension(mxpt), save work4
Definition: lmcom.f90:17
lmcom::corr
double precision, dimension(mxjcol, mxjcol), save corr
Definition: lmcom.f90:17
lmcom::qtf
double precision, dimension(mxjcol), save qtf
Definition: lmcom.f90:17
lmcom::flmprm
double precision, dimension(nflmpr), target, save flmprm
Definition: lmcom.f90:28
lmcom::lmcom_init
subroutine lmcom_init
Definition: lmcom.f90:37
lmcom::fjac
double precision, dimension(mxpt, mxjcol), save fjac
Definition: lmcom.f90:17
lmcom::fvec
double precision, dimension(mxpt), save fvec
Definition: lmcom.f90:17
factor
double factor
Definition: genio.c:44
nlsdim::mxtv
integer, parameter mxtv
Definition: nlsdim.f90:39
lmcom::lmflag
integer, save lmflag
Definition: lmcom.f90:24
lmcom::gradf
double precision, dimension(mxjcol), save gradf
Definition: lmcom.f90:17
lmcom::nprint
integer, save nprint
Definition: lmcom.f90:24
lmcom::xtol
double precision, pointer, save xtol
Definition: lmcom.f90:29
lmcom
Definition: lmcom.f90:13
lmcom::diag
double precision, dimension(mxjcol), save diag
Definition: lmcom.f90:17
nlsdim
Definition: nlsdim.f90:36
lmcom::work1
double precision, dimension(mxjcol), save work1
Definition: lmcom.f90:17
lmcom::gnvec
double precision, dimension(mxjcol), save gnvec
Definition: lmcom.f90:17
lmcom::maxitr
integer, pointer, save maxitr
Definition: lmcom.f90:32
nlsdim::mxjcol
integer, parameter mxjcol
Definition: nlsdim.f90:39
lmcom::mode
integer, pointer, save mode
Definition: lmcom.f90:32
lmcom::work3
double precision, dimension(mxjcol), save work3
Definition: lmcom.f90:17
lmcom::x
double precision, dimension(mxjcol), save x
Definition: lmcom.f90:17