set_magnetic_1_funcs Subroutine

private subroutine set_magnetic_1_funcs(this, B01_func)

Type Bound

background_t

Arguments

Type	Intent	Optional	Attributes		Name
class(background_t),	intent(inout)			::	this
procedure(real(dp))				::	B01_func