next up previous contents index
Next: Function ran_normal3 Up: Module linearalgebra_module Previous: Function angle   Contents   Index

Function sqrt_cut


\begin{boxedminipage}{\textwidth} \begin{verbatim}s = sqrt_cut(r)\end{verbatim} \end{boxedminipage}

Return the square root of r if it is positive, or zero otherwise.

r -- real(dp), intent(in)

Return value -- real(dp)

ran_normal3 function
gabor 2009-06-30