calcOcc_vector_int Function

    pure function calcOcc_vector_int(ilut) result(occVector)
        ! function which gives the occupation vector in integer form
        integer(n_int), intent(in) :: ilut(0:GugaBits%len_orb)
        integer :: occVector(nSpatOrbs)

        integer :: i

        do i = 1, nSpatOrbs
            occVector(i) = int(getSpatialOccupation(ilut, i))
        end do

    end function calcOcc_vector_int