XGCa
|
#include "adios_macro.h"
Functions/Subroutines | |
subroutine | xgc_read_eq_m3dc1_dims (mpsi, mr, mz, min_r, max_r, min_z, max_z) |
subroutine | xgc_read_eq_m3dc1 (mpsi, mr, mz, min_r, max_r, min_z, max_z, axis_r, axis_z, axis_b, x_psi, x_r, x_z, psi_grid, rgrid, zgrid, eq_I, psi_rz) |
subroutine | set_fortran_equil_vals (mpsi, mr, mz, min_r, max_r, min_z, max_z, xpt_psi, xpt_r, xpt_z, axis_r, axis_z, axis_b) |
subroutine | write_eq_used (eq_psi_grid, eq_I, eq_psi_rz) |
subroutine set_fortran_equil_vals | ( | integer(c_int) | mpsi, |
integer(c_int) | mr, | ||
integer(c_int) | mz, | ||
real(8) | min_r, | ||
real(8) | max_r, | ||
real(8) | min_z, | ||
real(8) | max_z, | ||
real(8) | xpt_psi, | ||
real(8) | xpt_r, | ||
real(8) | xpt_z, | ||
real(8) | axis_r, | ||
real(8) | axis_z, | ||
real(8) | axis_b | ||
) |
subroutine write_eq_used | ( | real(8), dimension(eq_mpsi) | eq_psi_grid, |
real(8), dimension(eq_mpsi) | eq_I, | ||
real(8), dimension(eq_mr,eq_mz) | eq_psi_rz | ||
) |
subroutine xgc_read_eq_m3dc1 | ( | integer | mpsi, |
integer | mr, | ||
integer | mz, | ||
real(8) | min_r, | ||
real(8) | max_r, | ||
real(8) | min_z, | ||
real(8) | max_z, | ||
real(8) | axis_r, | ||
real(8) | axis_z, | ||
real(8) | axis_b, | ||
real(8) | x_psi, | ||
real(8) | x_r, | ||
real(8) | x_z, | ||
real(8), dimension(mpsi) | psi_grid, | ||
real(8), dimension(mr) | rgrid, | ||
real(8), dimension(mz) | zgrid, | ||
real(8), dimension(mpsi) | eq_I, | ||
real(8), dimension(mr,mz) | psi_rz | ||
) |
subroutine xgc_read_eq_m3dc1_dims | ( | integer | mpsi, |
integer | mr, | ||
integer | mz, | ||
real(8) | min_r, | ||
real(8) | max_r, | ||
real(8) | min_z, | ||
real(8) | max_z | ||
) |