XGC1
|
Functions/Subroutines | |
subroutine | fort_psi_pspline_init_tricub (eq_mr, eq_mz, eq_mp, eq_rgrid, eq_zgrid, eq_pgrid, eq_psi_rz) |
real(kind=8) function | fort_psi_pspline_tricub (r, z, p) |
subroutine | generate_tricub_coeffs (xv, yv, zv, xc, yc, zc, fval, acoef) |
Generates coefficients for tricubic interpolation xv: x coordinates of the 4x4 provided grid points yv: y coordinates of the 4x4 provided grid points xc: x coordinate of the new grid point yc: y coordinate of the new grid point fval: value of the field at the 4x4 points acoef: the 4x4 coefficients for output. More... | |
Variables | |
type(ezspline3_r8) | psi_spline |
logical | psi_spline_defined =.false. |
subroutine tricub_setup::fort_psi_pspline_init_tricub | ( | integer(c_int), intent(in), value | eq_mr, |
integer(c_int), intent(in), value | eq_mz, | ||
integer(c_int), intent(in), value | eq_mp, | ||
real(c_double), dimension(eq_mr), intent(in) | eq_rgrid, | ||
real(c_double), dimension(eq_mz), intent(in) | eq_zgrid, | ||
real(c_double), dimension(eq_mp), intent(in) | eq_pgrid, | ||
real(c_double), dimension(eq_mr,eq_mz, eq_mp), intent(in) | eq_psi_rz | ||
) |
real (kind=8) function tricub_setup::fort_psi_pspline_tricub | ( | real (kind=8), intent(in), value | r, |
real (kind=8), intent(in), value | z, | ||
real (kind=8), intent(in), value | p | ||
) |
subroutine tricub_setup::generate_tricub_coeffs | ( | real (8), dimension(0:3), intent(in) | xv, |
real (8), dimension(0:3), intent(in) | yv, | ||
real (8), dimension(0:3), intent(in) | zv, | ||
real (8), intent(in) | xc, | ||
real (8), intent(in) | yc, | ||
real (8), intent(in) | zc, | ||
real (8), dimension(0:3,0:3,0:3), intent(in) | fval, | ||
real (8), dimension(0:3,0:3,0:3), intent(out) | acoef | ||
) |
Generates coefficients for tricubic interpolation xv: x coordinates of the 4x4 provided grid points yv: y coordinates of the 4x4 provided grid points xc: x coordinate of the new grid point yc: y coordinate of the new grid point fval: value of the field at the 4x4 points acoef: the 4x4 coefficients for output.
type(ezspline3_r8) tricub_setup::psi_spline |
logical tricub_setup::psi_spline_defined =.false. |