mapb2s Program

Variables

Type Attributes Name Initial
real(kind=real64), parameter :: RSS = 2.5d0
real(kind=real64) :: b(3)
real(kind=real64) :: b1rs(0:N_R,0:N_THETA,0:N_PHI,2)
real(kind=real64) :: bmag
real(kind=real64) :: bmag0
integer :: chunk
real(kind=real64) :: dr
real(kind=real64) :: dt
real(kind=real64) :: gbgrid(0:N_R,0:N_THETA,0:N_PHI,3)
integer :: i
integer :: j
integer :: k
integer :: lphi
integer :: lr
integer :: ltheta
real(kind=real64) :: magfieldgrid(0:N_R,0:N_THETA,0:N_PHI,3)
integer :: map(0:N_R,0:N_THETA,0:N_PHI)
integer :: n
integer :: n1
real(kind=real64) :: pol
real(kind=real64) :: r(3)
real(kind=real64) :: r0(3)
real(kind=real64) :: r1(3)
real(kind=real64) :: rmin(3)
real(kind=real64) :: rmin1(3)
real(kind=real64) :: t

Functions

function magfield(rvec) result(b)

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: rvec(3)

Return Value real(kind=real64), (3)

function vfunc(t, r, pol) result(v)

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: t
real(kind=real64), intent(in) :: r(3)
real(kind=real64), intent(in) :: pol

Return Value real(kind=real64), (3)