write_ci_coeff_triples_t Subroutine

private subroutine write_ci_coeff_triples_t(unit_CIsrt, CI_coeff)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: unit_CIsrt
type(triples_t), intent(in) :: CI_coeff(:)

Contents

Source Code

write_ci_coeff_triples_t

Source Code

    subroutine write_ci_coeff_triples_t(unit_CIsrt, CI_coeff)
        integer, intent(in) :: unit_CIsrt
        type(triples_t), intent(in) :: CI_coeff(:)
        integer :: h

        do h = 1, size(CI_coeff)
            write (unit_CIsrt, '(G20.12,6I5)') CI_coeff(h)%x, CI_coeff(h)%i, &
                                CI_coeff(h)%a, CI_coeff(h)%j, CI_coeff(h)%b, &
                                CI_coeff(h)%k, CI_coeff(h)%c
        end do
    end subroutine write_ci_coeff_triples_t