Given the equation of a cubic hypersurface $C\subset\mathbb{P}^{N}_{\mathbb{C}}$ ($N\geq 4$), there is an algorithm (or better a software) that allows to determine if $C$ is factorial (i.e., all of whose local rings are unique factorization domains, and hence there is no distinction between Cartier divisors and Weil divisors), and if $\mathrm{Pic}(C)=\mathbb{Z}\langle\mathcal{O}_C(1)\rangle$ ? Of course this is trivial if $C$ is smooth.
Thanks.