class_comb_allowed Function

  1. ras.F90
  2. ras
  3. class_comb_allowed

public pure function class_comb_allowed(ras, class_1, class_2) result(allowed)

Arguments

Type IntentOptional Attributes Name
type(ras_parameters), intent(in) :: ras
type(ras_class_data), intent(in) :: class_1
type(ras_class_data), intent(in) :: class_2

Return Value logical


Contents

Source Code

class_comb_allowed

Source Code

    pure function class_comb_allowed(ras, class_1, class_2) result(allowed)

        type(ras_parameters), intent(in) :: ras
        type(ras_class_data), intent(in) :: class_1, class_2
        logical :: allowed

        allowed = (class_1%nelec_1 + class_2%nelec_1 >= ras%min_1 .and. &
                   class_1%nelec_3 + class_2%nelec_3 <= ras%max_3)

    end function class_comb_allowed