getj.f90

subroutine i2mex_getJ (nt1, ns, the, psi, jac, ier)

Get Jacobian 'jac' on the new (the, psi) mesh

integer, intent(in) :: nt1, ns

real(i2mex_r8), intent(in) :: the(nt1), psi(ns)

real(i2mex_r8), intent(out) :: jac(nt1, ns)

integer, intent(out) :: ier

subroutine i2mex_getJt (nt1, ns, the, psi, jt, ier)

Get d Jacobian /d theta 'jt' on the new (the, psi) mesh

integer, intent(in) :: nt1, ns

real(i2mex_r8), intent(in) :: the(nt1), psi(ns)

real(i2mex_r8), intent(out) :: jt(nt1, ns)

integer, intent(out) :: ier

subroutine i2mex_getJp (nt1, ns, the, psi, jp, ier)

Get d Jacobian /d psi 'jp' on the new (the, psi) mesh

integer, intent(in) :: nt1, ns

real(i2mex_r8), intent(in) :: the(nt1), psi(ns)

real(i2mex_r8), intent(out) :: jp(nt1, ns)

integer, intent(out) :: ier

Send comments about this document to Alexander Ppletzer. Thu Jan 26 12:43:45 2006