dyn_write_ci_coeff Subroutine

private subroutine dyn_write_ci_coeff(CI_coeff)

Arguments

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

Contents

Source Code

dyn_write_ci_coeff

Source Code

    subroutine dyn_write_ci_coeff(CI_coeff)
        class(CI_coefficients_t), allocatable, intent(inout) :: CI_coeff(:)
        integer :: unit_CIsrt

        open (newunit=unit_CIsrt, file=get_filename(CI_coeff), status='replace')
            select type (CI_coeff)
            type is(singles_t)
                call write_ci_coeff(unit_CIsrt, CI_coeff)
            type is(doubles_t)
                call write_ci_coeff(unit_CIsrt, CI_coeff)
            type is(triples_t)
                call write_ci_coeff(unit_CIsrt, CI_coeff)
            end select
        close (unit_CIsrt)
    end subroutine dyn_write_ci_coeff