getx.f90

subroutine i2mex_getX (nt1, ns, the, psi, x, ier)

Get X on the (the, psi) mesh

integer, intent(in) :: nt1, ns

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

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

integer, intent(out) :: ier

subroutine i2mex_getGradX (nt1, ns, the, psi, xt, xp, ier)

Get (d X/d the, d X/ dpsi) 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) :: xt(nt1, ns), xp(nt1, ns)

integer, intent(out) :: ier

subroutine i2mex_getXtt (nt1, ns, the, psi, xtt, ier)

Get d^2 X/d the^2 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) :: xtt(nt1, ns)

integer, intent(out) :: ier

subroutine i2mex_getXtp (nt1, ns, the, psi, xpt, ier)

Get d X/(d psi d the) 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) :: xpt(nt1, ns)

integer, intent(out) :: ier

subroutine i2mex_getXpt (nt1, ns, the, psi, xpt, ier)

Get d X/(d psi d the) 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) :: xpt(nt1, ns)

integer, intent(out) :: ier

subroutine i2mex_getXpp (nt1, ns, the, psi, xpp, ier)

Get d^2 X/d psi^2 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) :: xpp(nt1, ns)

integer, intent(out) :: ier

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