Go to the source code of this file.
|
subroutine | cooling_rate (s, mi, ni, n, m, Ti, T, chi, sigmai, alpha, rhoi, xve |
|
subroutine | mnewt (ntrial, x, s, tolx, tolf, mi, ni, n, m, chi, sigmai, alpha, rhoi) |
|
subroutine | func_jacobi_eval (X, s, FVEC, FJAC, mi, ni, n, m, chi, sigmai, alpha, rhoi) |
|
subroutine | ludcmp (a, n, np, indx, d, calledFrom) |
|
subroutine | lubksb (a, n, np, indx, b) |
|
subroutine cooling_rate |
( |
integer, intent(in) |
s, |
|
|
double precision, dimension(s) |
mi, |
|
|
double precision, dimension(s) |
ni, |
|
|
double precision |
n, |
|
|
double precision |
m, |
|
|
double precision, dimension(s) |
Ti, |
|
|
double precision |
T, |
|
|
double precision, dimension(s,s) |
chi, |
|
|
double precision, dimension(s) |
sigmai, |
|
|
double precision, dimension(s,s) |
alpha, |
|
|
double precision, dimension(s) |
rhoi, |
|
|
|
xve |
|
) |
| |
subroutine func_jacobi_eval |
( |
double precision, dimension(s) |
X, |
|
|
integer, intent(in) |
s, |
|
|
double precision, dimension(s) |
FVEC, |
|
|
double precision, dimension(s,s) |
FJAC, |
|
|
double precision, dimension(s) |
mi, |
|
|
double precision, dimension(s) |
ni, |
|
|
double precision |
n, |
|
|
double precision |
m, |
|
|
double precision, dimension(s,s) |
chi, |
|
|
double precision, dimension(s) |
sigmai, |
|
|
double precision, dimension(s,s) |
alpha, |
|
|
double precision, dimension(s) |
rhoi |
|
) |
| |
subroutine lubksb |
( |
double precision, dimension(n,n), intent(in) |
a, |
|
|
integer, intent(in) |
n, |
|
|
integer |
np, |
|
|
integer, dimension(n), intent(in) |
indx, |
|
|
double precision, dimension(n), intent(inout) |
b |
|
) |
| |
subroutine ludcmp |
( |
double precision, dimension(n,n), intent(inout) |
a, |
|
|
integer, intent(in) |
n, |
|
|
integer |
np, |
|
|
integer, dimension(n), intent(out) |
indx, |
|
|
double precision, intent(out) |
d, |
|
|
character(len=*), intent(in) |
calledFrom |
|
) |
| |
subroutine mnewt |
( |
integer, intent(in) |
ntrial, |
|
|
double precision, dimension(s) |
x, |
|
|
integer, intent(in) |
s, |
|
|
double precision, intent(in) |
tolx, |
|
|
double precision, intent(in) |
tolf, |
|
|
double precision, dimension(s) |
mi, |
|
|
double precision, dimension(s) |
ni, |
|
|
double precision |
n, |
|
|
double precision |
m, |
|
|
double precision, dimension(s,s) |
chi, |
|
|
double precision, dimension(s) |
sigmai, |
|
|
double precision, dimension(s,s) |
alpha, |
|
|
double precision, dimension(s) |
rhoi |
|
) |
| |