write_ci_coeff_doubles_t Subroutine

private subroutine write_ci_coeff_doubles_t(unit_CIsrt, CI_coeff)

Arguments

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

Contents


Source Code

    subroutine write_ci_coeff_doubles_t(unit_CIsrt, CI_coeff)
        integer, intent(in) :: unit_CIsrt
        type(doubles_t), intent(in) :: CI_coeff(:)
        integer :: h

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