get_filename Function

private pure function get_filename(CI_coeff) result(res)

Arguments

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

Return Value character(len=:), allocatable


Source Code

    pure function get_filename(CI_coeff) result(res)
        class(CI_coefficients_t), allocatable, intent(in) :: CI_coeff(:)
        character(:), allocatable :: res
        select type(CI_coeff)
        type is(singles_t)
            res = 'ci_coeff_1'
        type is(doubles_t)
            res = 'ci_coeff_2'
        type is(triples_t)
            res = 'ci_coeff_3'
        end select
    end function get_filename