original.f90

subroutine i2mex_getOriNt1 (nt1, ier)

Return original number of poloidal rays + 1 in res

integer, intent(in) :: nt1

integer, intent(out) :: ier

subroutine i2mex_getOriNs (ns, ier)

Return original number of radial points in res

integer, intent(in) :: ns

integer, intent(out) :: ier

subroutine i2mex_getOriT (nt1, res, ier)

Return original poloidal grid in res

*NOTE* use i2mex_getoriNt1 to get nt1

integer, intent(in) :: nt1

real(i2mex_r8), intent(out) :: res(nt1)

integer, intent(out) :: ier

subroutine i2mex_getOriPsi (ns, res, ier)

Return original radial poloidal flux grid in res

*NOTE* use i2mex_getoriNs to get ns

integer, intent(in) :: ns

real(i2mex_r8), intent(out) :: res(ns)

integer, intent(out) :: ier

subroutine i2mex_getOriP (ns, res, ier)

Return pressure profile on original grid

*NOTE* use i2mex_getoriNs to get ns

integer, intent(in) :: ns

real(i2mex_r8), intent(out) :: res(ns)

integer, intent(out) :: ier

subroutine i2mex_getOriG (ns, res, ier)

Return g profile on original grid

*NOTE* use i2mex_getoriNs to get ns

integer, intent(in) :: ns

real(i2mex_r8), intent(out) :: res(ns)

integer, intent(out) :: ier

subroutine i2mex_getOriQ (ns, res, ier)

Return q profile on original grid

*NOTE* use i2mex_getoriNs to get ns

integer, intent(in) :: ns

real(i2mex_r8), intent(out) :: res(ns)

integer, intent(out) :: ier

subroutine i2mex_getOriX (nt1, ns, res, ier)

Return X in res on original grid

*NOTE* use i2mex_getOriNt1 and i2mex_getOriNs to obtain NT1 and NS

respectively.

integer, intent(in) :: nt1, ns

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

integer, intent(out) :: ier

subroutine i2mex_getOriZ (nt1, ns, res, ier)

Return Z in res on original grid

*NOTE* use i2mex_getOriNt1 and i2mex_getOriNs to obtain NT1 and NS

respectively.

integer, intent(in) :: nt1, ns

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

integer, intent(out) :: ier

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