is_spin_forbidden Interface

public interface is_spin_forbidden

Module Procedures

private pure elemental module function is_spin_forbidden_chan(channel1, channel2, spin_isomer_kind, symaxis) result(res)

Test if two rotational channels respect ortho/para symmetry

Arguments

Type IntentOptional Attributes Name
type(asymtop_rot_channel_type), intent(in) :: channel1
type(asymtop_rot_channel_type), intent(in) :: channel2
integer, intent(in) :: spin_isomer_kind
character(len=1), intent(in) :: symaxis

Return Value logical

private pure elemental module function is_spin_forbidden_qnums(nlo, kalo, kclo, nup, kaup, kcup, kind, symaxis) result(res)

Determine if the transition Nlo,Kalo,Kclo -> Nup,Kaup,Kcup is forbidden by nuclear spin symmetry selection rules

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nlo
integer, intent(in) :: kalo
integer, intent(in) :: kclo
integer, intent(in) :: nup
integer, intent(in) :: kaup
integer, intent(in) :: kcup
integer, intent(in) :: kind
character(len=1), intent(in) :: symaxis

Return Value logical