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) | enorm (n, x) |
| real(kind=8) | enorm2 (n, x) |
| subroutine | fdjac1 (fcn, n, x, fvec, fjac, ldfjac, iflag, ml, mu, epsfcn) |
| subroutine | fdjac2 (fcn, m, n, x, 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) |
| subroutine | hybrd1 (fcn, n, x, fvec, tol, info) |
| 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, fvec, ftol, xtol, gtol, maxfev, epsfcn, diag, mode, factor, nprint, info, nfev, fjac, ldfjac, ipvt, qtf) |
| subroutine | lmdif1 (fcn, m, n, x, 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 | |||
| ) |
| 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 | |||
| ) |
| real ( kind = 8 ) enorm | ( | integer ( kind = 4 ) | n, | |
| real ( kind = 8 ),dimension(n) | x | |||
| ) |
| real ( kind = 8 ) enorm2 | ( | integer ( kind = 4 ) | n, | |
| real ( kind = 8 ),dimension(n) | x | |||
| ) |
| subroutine fdjac1 | ( | 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 | |||
| ) |
| subroutine fdjac2 | ( | 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, | |||
| integer ( kind = 4 ) | iflag, | |||
| real ( kind = 8 ) | epsfcn | |||
| ) |
| subroutine hybrd | ( | 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 | |||
| ) |
| subroutine hybrd1 | ( | 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 | |||
| ) |
| subroutine hybrj | ( | 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 | |||
| ) |
| subroutine hybrj1 | ( | 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 | |||
| ) |
| subroutine lmder | ( | 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 | |||
| ) |
| subroutine lmder1 | ( | 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 | |||
| ) |
| subroutine lmdif | ( | fcn | , | |
| integer ( kind = 4 ) | m, | |||
| integer ( kind = 4 ) | n, | |||
| real ( kind = 8 ),dimension(n) | x, | |||
| 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 | |||
| ) |
| subroutine lmdif1 | ( | fcn | , | |
| integer ( kind = 4 ) | m, | |||
| integer ( kind = 4 ) | n, | |||
| real ( kind = 8 ),dimension(n) | x, | |||
| real ( kind = 8 ),dimension(m) | fvec, | |||
| real ( kind = 8 ) | tol, | |||
| integer ( kind = 4 ) | info | |||
| ) |
| 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 | |||
| ) |
| subroutine lmstr | ( | 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 | |||
| ) |
| subroutine lmstr1 | ( | 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 | |||
| ) |
| subroutine qform | ( | integer ( kind = 4 ) | m, | |
| integer ( kind = 4 ) | n, | |||
| real ( kind = 8 ),dimension(ldq,m) | q, | |||
| integer ( kind = 4 ) | ldq | |||
| ) |
| 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 | |||
| ) |
| 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 | |||
| ) |
| 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 | |||
| ) |
| 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 | |||
| ) |
| subroutine r8vec_print | ( | integer ( kind = 4 ) | n, | |
| real ( kind = 8 ),dimension(n) | a, | |||
| character ( len = * ) | title | |||
| ) |
| 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 | |||
| ) |
| subroutine timestamp | ( | ) |
1.7.1