|
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...
|
|
subroutine tricub_setup::fort_psi_pspline_init_tricub |
( |
integer(c_int) |
eq_mr, |
|
|
integer(c_int) |
eq_mz, |
|
|
integer(c_int) |
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) |
r, |
|
|
real (kind=8) |
z, |
|
|
real (kind=8) |
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. |
The documentation for this module was generated from the following file: