trim_channel_l Module Function

public impure elemental module function trim_channel_l(channel_with_l) result(channel_without_l)

Given a rotational channel with the l quantum number, return the equvalent channel without the l quantum number

Arguments

Type	Intent	Optional	Attributes		Name
type(asymtop_rot_channel_l_type),	intent(in)			::	channel_with_l

Return Value type(asymtop_rot_channel_type)