SUEWS API Site
Documentation of SUEWS source code
|
Go to the source code of this file.
Functions/Subroutines | |
subroutine | chkder (m, n, x, fvec, fjac, ldfjac, xp, fvecp, mode, err) |
subroutine | dogleg (n, r, lr, diag, qtb, delta, x) |
real(kind=8) function | enorm (n, x) |
real(kind=8) function | enorm2 (n, x) |
subroutine | fdjac1 (fcn, n, x, fvec, fjac, ldfjac, iflag, ml, mu, epsfcn, m, prms) |
subroutine | fdjac2 (fcn, m, n, x, xdat, ydat, fvec, fjac, ldfjac, iflag, epsfcn) |
subroutine | hybrd (fcn, n, x, fvec, xtol, maxfev, ml, mu, epsfcn, diag, mode, factor, nprint, info, nfev, fjac, ldfjac, r, lr, qtf, m, prms) |
subroutine | hybrd1 (fcn, n, x, fvec, tol, info, m, prms) |
subroutine | hybrj (fcn, n, x, fvec, fjac, ldfjac, xtol, maxfev, diag, mode, factor, nprint, info, nfev, njev, r, lr, qtf) |
subroutine | hybrj1 (fcn, n, x, fvec, fjac, ldfjac, tol, info) |
subroutine | lmder (fcn, m, n, x, fvec, fjac, ldfjac, ftol, xtol, gtol, maxfev, diag, mode, factor, nprint, info, nfev, njev, ipvt, qtf) |
subroutine | lmder1 (fcn, m, n, x, fvec, fjac, ldfjac, tol, info) |
subroutine | lmdif (fcn, m, n, x, xdat, ydat, fvec, ftol, xtol, gtol, maxfev, epsfcn, diag, mode, factor, nprint, info, nfev, fjac, ldfjac, ipvt, qtf) |
subroutine | lmdif1 (fcn, m, n, x, xdat, ydat, fvec, tol, info) |
subroutine | lmpar (n, r, ldr, ipvt, diag, qtb, delta, par, x, sdiag) |
subroutine | lmstr (fcn, m, n, x, fvec, fjac, ldfjac, ftol, xtol, gtol, maxfev, diag, mode, factor, nprint, info, nfev, njev, ipvt, qtf) |
subroutine | lmstr1 (fcn, m, n, x, fvec, fjac, ldfjac, tol, info) |
subroutine | qform (m, n, q, ldq) |
subroutine | qrfac (m, n, a, lda, pivot, ipvt, lipvt, rdiag, acnorm) |
subroutine | qrsolv (n, r, ldr, ipvt, diag, qtb, x, sdiag) |
subroutine | r1mpyq (m, n, a, lda, v, w) |
subroutine | r1updt (m, n, s, ls, u, v, w, sing) |
subroutine | r8vec_print (n, a, title) |
subroutine | rwupdt (n, r, ldr, w, b, alpha, c, s) |
subroutine | timestamp () |
subroutine chkder | ( | integer(kind=4) | m, |
integer(kind=4) | n, | ||
real(kind=8), dimension(n) | x, | ||
real(kind=8), dimension(m) | fvec, | ||
real(kind=8), dimension(ldfjac, n) | fjac, | ||
integer(kind=4) | ldfjac, | ||
real(kind=8), dimension(n) | xp, | ||
real(kind=8), dimension(m) | fvecp, | ||
integer(kind=4) | mode, | ||
real(kind=8), dimension(m) | err ) |
Definition at line 1 of file suews_util_minpack.f95.
subroutine dogleg | ( | integer(kind=4) | n, |
real(kind=8), dimension(lr) | r, | ||
integer(kind=4) | lr, | ||
real(kind=8), dimension(n) | diag, | ||
real(kind=8), dimension(n) | qtb, | ||
real(kind=8) | delta, | ||
real(kind=8), dimension(n) | x ) |
Definition at line 171 of file suews_util_minpack.f95.
References enorm().
Referenced by hybrd(), and hybrj().
real(kind=8) function enorm | ( | integer(kind=4) | n, |
real(kind=8), dimension(n) | x ) |
Definition at line 381 of file suews_util_minpack.f95.
References enorm().
Referenced by dogleg(), enorm(), hybrd(), hybrj(), lmder(), lmdif(), lmpar(), lmstr(), and qrfac().
real(kind=8) function enorm2 | ( | integer(kind=4) | n, |
real(kind=8), dimension(n) | x ) |
Definition at line 430 of file suews_util_minpack.f95.
References enorm2().
Referenced by enorm2().
subroutine fdjac1 | ( | external | fcn, |
integer(kind=4) | n, | ||
real(kind=8), dimension(n) | x, | ||
real(kind=8), dimension(n) | fvec, | ||
real(kind=8), dimension(ldfjac, n) | fjac, | ||
integer(kind=4) | ldfjac, | ||
integer(kind=4) | iflag, | ||
integer(kind=4) | ml, | ||
integer(kind=4) | mu, | ||
real(kind=8) | epsfcn, | ||
integer(kind=4) | m, | ||
real(kind=8), dimension(m) | prms ) |
Definition at line 560 of file suews_util_minpack.f95.
Referenced by hybrd().
subroutine fdjac2 | ( | external | fcn, |
integer(kind=4) | m, | ||
integer(kind=4) | n, | ||
real(kind=8), dimension(n) | x, | ||
real(kind=8), dimension(m) | xdat, | ||
real(kind=8), dimension(m) | ydat, | ||
real(kind=8), dimension(m) | fvec, | ||
real(kind=8), dimension(ldfjac, n) | fjac, | ||
integer(kind=4) | ldfjac, | ||
integer(kind=4) | iflag, | ||
real(kind=8) | epsfcn ) |
Definition at line 740 of file suews_util_minpack.f95.
Referenced by lmdif().
subroutine hybrd | ( | external | fcn, |
integer(kind=4) | n, | ||
real(kind=8), dimension(n) | x, | ||
real(kind=8), dimension(n) | fvec, | ||
real(kind=8) | xtol, | ||
integer(kind=4) | maxfev, | ||
integer(kind=4) | ml, | ||
integer(kind=4) | mu, | ||
real(kind=8) | epsfcn, | ||
real(kind=8), dimension(n) | diag, | ||
integer(kind=4) | mode, | ||
real(kind=8) | factor, | ||
integer(kind=4) | nprint, | ||
integer(kind=4) | info, | ||
integer(kind=4) | nfev, | ||
real(kind=8), dimension(ldfjac, n) | fjac, | ||
integer(kind=4) | ldfjac, | ||
real(kind=8), dimension(lr) | r, | ||
integer(kind=4) | lr, | ||
real(kind=8), dimension(n) | qtf, | ||
integer(kind=4) | m, | ||
real(kind=8), dimension(m) | prms ) |
Definition at line 862 of file suews_util_minpack.f95.
References dogleg(), enorm(), fdjac1(), qform(), qrfac(), r1mpyq(), and r1updt().
Referenced by hybrd1().
subroutine hybrd1 | ( | external | fcn, |
integer(kind=4) | n, | ||
real(kind=8), dimension(n) | x, | ||
real(kind=8), dimension(n) | fvec, | ||
real(kind=8) | tol, | ||
integer(kind=4) | info, | ||
integer(kind=4) | m, | ||
real(kind=8), dimension(m) | prms ) |
Definition at line 1413 of file suews_util_minpack.f95.
References hybrd().
Referenced by anohm_module::anohm_bo_cal().
subroutine hybrj | ( | external | fcn, |
integer(kind=4) | n, | ||
real(kind=8), dimension(n) | x, | ||
real(kind=8), dimension(n) | fvec, | ||
real(kind=8), dimension(ldfjac, n) | fjac, | ||
integer(kind=4) | ldfjac, | ||
real(kind=8) | xtol, | ||
integer(kind=4) | maxfev, | ||
real(kind=8), dimension(n) | diag, | ||
integer(kind=4) | mode, | ||
real(kind=8) | factor, | ||
integer(kind=4) | nprint, | ||
integer(kind=4) | info, | ||
integer(kind=4) | nfev, | ||
integer(kind=4) | njev, | ||
real(kind=8), dimension(lr) | r, | ||
integer(kind=4) | lr, | ||
real(kind=8), dimension(n) | qtf ) |
Definition at line 1558 of file suews_util_minpack.f95.
References dogleg(), enorm(), qform(), qrfac(), r1mpyq(), and r1updt().
Referenced by hybrj1().
subroutine hybrj1 | ( | external | fcn, |
integer(kind=4) | n, | ||
real(kind=8), dimension(n) | x, | ||
real(kind=8), dimension(n) | fvec, | ||
real(kind=8), dimension(ldfjac, n) | fjac, | ||
integer(kind=4) | ldfjac, | ||
real(kind=8) | tol, | ||
integer(kind=4) | info ) |
Definition at line 2127 of file suews_util_minpack.f95.
References hybrj().
subroutine lmder | ( | external | fcn, |
integer(kind=4) | m, | ||
integer(kind=4) | n, | ||
real(kind=8), dimension(n) | x, | ||
real(kind=8), dimension(m) | fvec, | ||
real(kind=8), dimension(ldfjac, n) | fjac, | ||
integer(kind=4) | ldfjac, | ||
real(kind=8) | ftol, | ||
real(kind=8) | xtol, | ||
real(kind=8) | gtol, | ||
integer(kind=4) | maxfev, | ||
real(kind=8), dimension(n) | diag, | ||
integer(kind=4) | mode, | ||
real(kind=8) | factor, | ||
integer(kind=4) | nprint, | ||
integer(kind=4) | info, | ||
integer(kind=4) | nfev, | ||
integer(kind=4) | njev, | ||
integer(kind=4), dimension(n) | ipvt, | ||
real(kind=8), dimension(n) | qtf ) |
Definition at line 2262 of file suews_util_minpack.f95.
References enorm(), lmpar(), and qrfac().
Referenced by lmder1().
subroutine lmder1 | ( | external | fcn, |
integer(kind=4) | m, | ||
integer(kind=4) | n, | ||
real(kind=8), dimension(n) | x, | ||
real(kind=8), dimension(m) | fvec, | ||
real(kind=8), dimension(ldfjac, n) | fjac, | ||
integer(kind=4) | ldfjac, | ||
real(kind=8) | tol, | ||
integer(kind=4) | info ) |
Definition at line 2790 of file suews_util_minpack.f95.
References lmder().
subroutine lmdif | ( | external | fcn, |
integer(kind=4) | m, | ||
integer(kind=4) | n, | ||
real(kind=8), dimension(n) | x, | ||
real(kind=8), dimension(m) | xdat, | ||
real(kind=8), dimension(m) | ydat, | ||
real(kind=8), dimension(m) | fvec, | ||
real(kind=8) | ftol, | ||
real(kind=8) | xtol, | ||
real(kind=8) | gtol, | ||
integer(kind=4) | maxfev, | ||
real(kind=8) | epsfcn, | ||
real(kind=8), dimension(n) | diag, | ||
integer(kind=4) | mode, | ||
real(kind=8) | factor, | ||
integer(kind=4) | nprint, | ||
integer(kind=4) | info, | ||
integer(kind=4) | nfev, | ||
real(kind=8), dimension(ldfjac, n) | fjac, | ||
integer(kind=4) | ldfjac, | ||
integer(kind=4), dimension(n) | ipvt, | ||
real(kind=8), dimension(n) | qtf ) |
Definition at line 2942 of file suews_util_minpack.f95.
References enorm(), fdjac2(), lmpar(), and qrfac().
Referenced by lmdif1().
subroutine lmdif1 | ( | external | fcn, |
integer(kind=4) | m, | ||
integer(kind=4) | n, | ||
real(kind=8), dimension(n) | x, | ||
real(kind=8), dimension(m) | xdat, | ||
real(kind=8), dimension(m) | ydat, | ||
real(kind=8), dimension(m) | fvec, | ||
real(kind=8) | tol, | ||
integer(kind=4) | info ) |
Definition at line 3477 of file suews_util_minpack.f95.
References lmdif().
Referenced by anohm_module::anohm_shapefit().
subroutine lmpar | ( | integer(kind=4) | n, |
real(kind=8), dimension(ldr, n) | r, | ||
integer(kind=4) | ldr, | ||
integer(kind=4), dimension(n) | ipvt, | ||
real(kind=8), dimension(n) | diag, | ||
real(kind=8), dimension(n) | qtb, | ||
real(kind=8) | delta, | ||
real(kind=8) | par, | ||
real(kind=8), dimension(n) | x, | ||
real(kind=8), dimension(n) | sdiag ) |
Definition at line 3617 of file suews_util_minpack.f95.
References enorm(), and qrsolv().
Referenced by lmder(), lmdif(), and lmstr().
subroutine lmstr | ( | external | fcn, |
integer(kind=4) | m, | ||
integer(kind=4) | n, | ||
real(kind=8), dimension(n) | x, | ||
real(kind=8), dimension(m) | fvec, | ||
real(kind=8), dimension(ldfjac, n) | fjac, | ||
integer(kind=4) | ldfjac, | ||
real(kind=8) | ftol, | ||
real(kind=8) | xtol, | ||
real(kind=8) | gtol, | ||
integer(kind=4) | maxfev, | ||
real(kind=8), dimension(n) | diag, | ||
integer(kind=4) | mode, | ||
real(kind=8) | factor, | ||
integer(kind=4) | nprint, | ||
integer(kind=4) | info, | ||
integer(kind=4) | nfev, | ||
integer(kind=4) | njev, | ||
integer(kind=4), dimension(n) | ipvt, | ||
real(kind=8), dimension(n) | qtf ) |
Definition at line 3921 of file suews_util_minpack.f95.
References enorm(), lmpar(), qrfac(), and rwupdt().
Referenced by lmstr1().
subroutine lmstr1 | ( | external | fcn, |
integer(kind=4) | m, | ||
integer(kind=4) | n, | ||
real(kind=8), dimension(n) | x, | ||
real(kind=8), dimension(m) | fvec, | ||
real(kind=8), dimension(ldfjac, n) | fjac, | ||
integer(kind=4) | ldfjac, | ||
real(kind=8) | tol, | ||
integer(kind=4) | info ) |
Definition at line 4471 of file suews_util_minpack.f95.
References lmstr().
subroutine qform | ( | integer(kind=4) | m, |
integer(kind=4) | n, | ||
real(kind=8), dimension(ldq, m) | q, | ||
integer(kind=4) | ldq ) |
Definition at line 4642 of file suews_util_minpack.f95.
Referenced by hybrd(), and hybrj().
subroutine qrfac | ( | integer(kind=4) | m, |
integer(kind=4) | n, | ||
real(kind=8), dimension(lda, n) | a, | ||
integer(kind=4) | lda, | ||
logical | pivot, | ||
integer(kind=4), dimension(lipvt) | ipvt, | ||
integer(kind=4) | lipvt, | ||
real(kind=8), dimension(n) | rdiag, | ||
real(kind=8), dimension(n) | acnorm ) |
Definition at line 4743 of file suews_util_minpack.f95.
References enorm().
Referenced by hybrd(), hybrj(), lmder(), lmdif(), and lmstr().
subroutine qrsolv | ( | integer(kind=4) | n, |
real(kind=8), dimension(ldr, n) | r, | ||
integer(kind=4) | ldr, | ||
integer(kind=4), dimension(n) | ipvt, | ||
real(kind=8), dimension(n) | diag, | ||
real(kind=8), dimension(n) | qtb, | ||
real(kind=8), dimension(n) | x, | ||
real(kind=8), dimension(n) | sdiag ) |
Definition at line 4937 of file suews_util_minpack.f95.
Referenced by lmpar().
subroutine r1mpyq | ( | integer(kind=4) | m, |
integer(kind=4) | n, | ||
real(kind=8), dimension(lda, n) | a, | ||
integer(kind=4) | lda, | ||
real(kind=8), dimension(n) | v, | ||
real(kind=8), dimension(n) | w ) |
Definition at line 5155 of file suews_util_minpack.f95.
Referenced by hybrd(), and hybrj().
subroutine r1updt | ( | integer(kind=4) | m, |
integer(kind=4) | n, | ||
real(kind=8), dimension(ls) | s, | ||
integer(kind=4) | ls, | ||
real(kind=8), dimension(m) | u, | ||
real(kind=8), dimension(n) | v, | ||
real(kind=8), dimension(m) | w, | ||
logical | sing ) |
Definition at line 5266 of file suews_util_minpack.f95.
Referenced by hybrd(), and hybrj().
subroutine r8vec_print | ( | integer(kind=4) | n, |
real(kind=8), dimension(n) | a, | ||
character(len=*) | title ) |
Definition at line 5500 of file suews_util_minpack.f95.
Referenced by anohm_module::anohm_fccal(), and anohm_module::fcnbo().
subroutine rwupdt | ( | integer(kind=4) | n, |
real(kind=8), dimension(ldr, n) | r, | ||
integer(kind=4) | ldr, | ||
real(kind=8), dimension(n) | w, | ||
real(kind=8), dimension(n) | b, | ||
real(kind=8) | alpha, | ||
real(kind=8), dimension(n) | c, | ||
real(kind=8), dimension(n) | s ) |
Definition at line 5547 of file suews_util_minpack.f95.
Referenced by lmstr().
subroutine timestamp |
Definition at line 5673 of file suews_util_minpack.f95.