write_ci_coeff_singles_t Subroutine

    subroutine write_ci_coeff_singles_t(unit_CIsrt, CI_coeff)
        integer, intent(in) :: unit_CIsrt
        type(singles_t), intent(in) :: CI_coeff(:)
        integer :: h

        do h = 1, size(CI_coeff)
            write (unit_CIsrt, '(G20.12,2I5)') CI_coeff(h)%x, CI_coeff(h)%i, &
                                               CI_coeff(h)%a
        end do
    end subroutine write_ci_coeff_singles_t