Commit fd076755 authored by Kirill Terekhov's avatar Kirill Terekhov

Fix svd breakdown in bcgsl

parent e4076bbf
...@@ -206,6 +206,7 @@ namespace INMOST ...@@ -206,6 +206,7 @@ namespace INMOST
flag = 0; flag = 0;
break; break;
} }
if( l == 0 ) break;
if (fabs(w[nm]) + anorm == anorm) if (fabs(w[nm]) + anorm == anorm)
break; break;
} }
...@@ -698,8 +699,8 @@ namespace INMOST ...@@ -698,8 +699,8 @@ namespace INMOST
//Recompute rho1 //Recompute rho1
#else #else
reason = "r_tilde perturbation algorithm is disabled"; reason = "r_tilde perturbation algorithm is disabled";
halt = true; halt = true;
break; break;
#endif #endif
} }
#if defined(USE_OMP) #if defined(USE_OMP)
......
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