NLSL: tridag.f90 Source File

NLSL

- Main Page
- Modules
- Data Types List
- Files

- File List
- File Members

tridag.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 TRIDAG
5 c =========================
6 c
7 c Defines arrays for storage of Lanczos tridiagonal matrix and
8 c calculated spectra. Also includes storage for individual spectra
9 c calculated during the process of nonlinear least-squares fitting.
10 c
11 c alpha : Array containing diagonal of tridiagonal matrix for all
12 c spectral calculations
13 c beta : Array containing off-diagonal of tridiag. matrix for all
14 c spectral calculations
15 c ixtd : Starting index in alpha and beta for each spectral
16 c calculation
17 c ltd : Dimension of tridiagonal matrix for each spectral calculation
18 c
19 c NOTE: This module uses the nlsdim module.
20 c
21 c David Budil 13 May 1992 Cornell University
22 c----------------------------------------------------------------------
23 c
24 module tridag
25 use nlsdim
26 implicit none
27 c
28 integer, save :: ixtd(mxsite,mxspc), ltd(mxsite,mxspc),
29 # modtd(mxsite,mxspc), tdspec(mxtdm),
30 # tdsite(mxtdm), nexttd, ntd
31 c
32 double complex, save :: alpha(mxtdg), beta(mxtdg),
33 # stv(mxdim),y(mxdim)
34 c
35 end module tridag
36
tridag::stv
double complex, dimension(mxdim), save stv
Definition: tridag.f90:32
tridag::alpha
double complex, dimension(mxtdg), save alpha
Definition: tridag.f90:32
tridag::tdspec
integer, dimension(mxtdm), save tdspec
Definition: tridag.f90:28
tridag::nexttd
integer, save nexttd
Definition: tridag.f90:28
tridag::modtd
integer, dimension(mxsite, mxspc), save modtd
Definition: tridag.f90:28
tridag::y
double complex, dimension(mxdim), save y
Definition: tridag.f90:32
nlsdim::mxtdm
integer, parameter mxtdm
Definition: nlsdim.f90:39
tridag::tdsite
integer, dimension(mxtdm), save tdsite
Definition: tridag.f90:28
nlsdim::mxspc
integer, parameter mxspc
Definition: nlsdim.f90:39
tridag::ltd
integer, dimension(mxsite, mxspc), save ltd
Definition: tridag.f90:28
nlsdim::mxsite
integer, parameter mxsite
Definition: nlsdim.f90:39
tridag::ixtd
integer, dimension(mxsite, mxspc), save ixtd
Definition: tridag.f90:28
nlsdim
Definition: nlsdim.f90:36
nlsdim::mxdim
integer, parameter mxdim
Definition: nlsdim.f90:39
tridag::beta
double complex, dimension(mxtdg), save beta
Definition: tridag.f90:32
nlsdim::mxtdg
integer, parameter mxtdg
Definition: nlsdim.f90:39
tridag::ntd
integer, save ntd
Definition: tridag.f90:28
tridag
Definition: tridag.f90:24