write_guga_list Subroutine

    subroutine write_guga_list(nunit, ilut, n_orbs)
        integer(n_int), intent(in) :: ilut(:, :)
        integer, intent(in) :: nunit
        integer, intent(in), optional :: n_orbs

        integer :: i, n_orbs_
        def_default(n_orbs_, n_orbs, nSpatorbs)

        print *, " ilut list: "
        print *, " ==========="
        do i = 1, size(ilut, 2)
            call write_det_guga(nunit, ilut(:, i), n_orbs = n_orbs_)
        end do
        print *, " ==========="

    end subroutine write_guga_list