getz.f90


subroutine i2mex_getZ (nt1, ns, the, psi, z, ier)

    Get Z on the (the, psi) mesh

integer, intent(in) :: nt1, ns

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

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

integer, intent(out) :: ier


subroutine i2mex_getGradZ (nt1, ns, the, psi, zt, zp, ier)

    Get (d Z/d the, d Z/ 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) :: zt(nt1, ns), zp(nt1, ns)

integer, intent(out) :: ier


subroutine i2mex_getZtt (nt1, ns, the, psi, ztt, ier)

    Get d^2 Z/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) :: ztt(nt1, ns)

integer, intent(out) :: ier


subroutine i2mex_getZtp (nt1, ns, the, psi, zpt, ier)

    Get d Z/(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) :: zpt(nt1, ns)

integer, intent(out) :: ier


subroutine i2mex_getZpt (nt1, ns, the, psi, zpt, ier)

    Get d Z/(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) :: zpt(nt1, ns)

integer, intent(out) :: ier


subroutine i2mex_getZpp (nt1, ns, the, psi, zpp, ier)

    Get d^2 Z/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) :: zpp(nt1, ns)

integer, intent(out) :: ier


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