dmumu Module

163 statements

Uses

- param
- iso_fortran_env

Functions

public function dmumuAH(p, pa, bm, ddu)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	p
real(kind=real64),	intent(in)			::	pa
real(kind=real64),	intent(in)			::	bm
real(kind=real64),	intent(out)			::	ddu

Return Value real(kind=real64)

public function dmumuBK(p, pa, v, bm, ddu)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	p
real(kind=real64),	intent(in)			::	pa
real(kind=real64),	intent(in)			::	v
real(kind=real64),	intent(in)			::	bm
real(kind=real64),	intent(out)			::	ddu

Return Value real(kind=real64)

public function dmumuDG(v, rmu0, ddmumuDG)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	v
real(kind=real64),	intent(inout)			::	rmu0
real(kind=real64),	intent(out)			::	ddmumuDG

Return Value real(kind=real64)

public function dmumuDG1(v, rmu, ddmumuDG1)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	v
real(kind=real64),	intent(inout)			::	rmu
real(kind=real64),	intent(out)			::	ddmumuDG1

Return Value real(kind=real64)

public pure elemental function sign_my(x)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	x

Return Value real(kind=real64)

Subroutines

public subroutine cofdu(p, pa, beta, bm, du, ddu, ndmumu)

subroutine to calculate pitch angle diffusion coefficient and its derivative with respect to pa = cos().

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	p
real(kind=real64),	intent(inout)			::	pa
real(kind=real64),	intent(in)			::	beta
real(kind=real64),	intent(in)			::	bm
real(kind=real64),	intent(out)			::	du
real(kind=real64),	intent(out)			::	ddu
integer,	intent(in)			::	ndmumu

public subroutine preparedmumu(ndmumu)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ndmumu

public subroutine read_dmumuAH()

Arguments

None

public subroutine read_dmumuBK()

Arguments

None

public subroutine read_dmumuDG()

Arguments

None

public subroutine set_du0AH(du0rt, du0)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	du0rt
real(kind=real64),	intent(inout)			::	du0

public subroutine set_du0BK(du0rt, du0)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	du0rt
real(kind=real64),	intent(inout)			::	du0

public subroutine set_du0DG(du0rt, du0)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	du0rt
real(kind=real64),	intent(inout)			::	du0