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 | ( | ) |