Commit 39918a27 authored by Vadim Pisarevsky's avatar Vadim Pisarevsky

eliminated freeze in SVD.

parent e23d62b8
...@@ -69,6 +69,10 @@ static __inline void exit_(integer *rc) ...@@ -69,6 +69,10 @@ static __inline void exit_(integer *rc)
exit(*rc); exit(*rc);
} }
integer pow_ii(integer *ap, integer *bp);
double pow_ri(real *ap, integer *bp);
double pow_di(doublereal *ap, integer *bp);
static __inline double pow_dd(doublereal *ap, doublereal *bp) static __inline double pow_dd(doublereal *ap, doublereal *bp)
{ {
return pow(*ap, *bp); return pow(*ap, *bp);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment