dyn_sort_ci_coeff Subroutine

private subroutine dyn_sort_ci_coeff(CI_coeff)

Arguments

Type IntentOptional Attributes Name
class(CI_coefficients_t), intent(inout) :: CI_coeff(:)

Contents

Source Code

dyn_sort_ci_coeff

Source Code

    subroutine dyn_sort_ci_coeff(CI_coeff)
        class(CI_coefficients_t), intent(inout) :: CI_coeff(:)
        character(*), parameter :: this_routine = 'dyn_sort_ci_coeff'

        select type (CI_coeff)
        type is(singles_t)
            call sorting(CI_coeff)
        type is(doubles_t)
            call sorting(CI_coeff)
        type is(triples_t)
            call sorting(CI_coeff)
        class default
            call stop_all(this_routine, 'Invalid CI_coefficients_t.')
        end select
    end subroutine dyn_sort_ci_coeff