normalisations_subroutine Subroutine

private subroutine normalisations_subroutine(current, going_up)

Arguments

Type	Intent	Optional	Attributes		Name
type(init_type),	intent(in)			::	current
logical,	intent(in)			::	going_up

Contents