getdelstar.f90

subroutine i2mex_getDelStar (nt1, ns, the, psi, res, ier)

Return the Grad-Shafranov operator (Del^*) in res

integer, intent(in) :: nt1, ns

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

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

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

integer, intent(out) :: ier

subroutine i2mex_getXJphi (nt1, ns, the, psi, res, ier)

Return the right hand side (-p'*X^2 - g g') of the

Grad-Shafranov equation in res

integer, intent(in) :: nt1, ns

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

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

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

integer, intent(out) :: ier

subroutine i2mex_getGsError (nt1, ns, the, psi, res, ier)

Return the Grad-Shafranov equation error in res. The error

is normalized to R J_phi on axis.

integer, intent(in) :: nt1, ns

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

real(i2mex_r8), intent(in) :: psi(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:45 2006