Changeset 2563 for trunk/sources/ALGLIB/blas.cs

Timestamp:

12/17/09 17:05:22 (15 years ago)

Author:

gkronber

Message:

Updated ALGLIB to latest version. #751 (Plugin for for data-modeling with ANN (integrated into CEDMA))

File:

• trunk/sources/ALGLIB/blas.cs (modified) (8 diffs)

trunk/sources/ALGLIB/blas.cs

@@ -51 +51 @@
             for(ix=i1; ix<=i2; ix++)
             {
-                if( x[ix]!=0 )
+                if( (double)(x[ix])!=(double)(0) )
                 {
                     absxi = Math.Abs(x[ix]);
-                    if( scl<absxi )
+                    if( (double)(scl)<(double)(absxi) )
                     {
                         ssq = 1+ssq*AP.Math.Sqr(scl/absxi);
@@ -82 +82 @@
             for(i=i1+1; i<=i2; i++)
             {
-                if( Math.Abs(x[i])>Math.Abs(x[result]) )
+                if( (double)(Math.Abs(x[i]))>(double)(Math.Abs(x[result])) )
                 {
                     result = i;
@@ -104 +104 @@
             for(i=i1+1; i<=i2; i++)
             {
-                if( Math.Abs(x[i,j])>Math.Abs(x[result,j]) )
+                if( (double)(Math.Abs(x[i,j]))>(double)(Math.Abs(x[result,j])) )
                 {
                     result = i;
@@ -126 +126 @@
             for(j=j1+1; j<=j2; j++)
             {
-                if( Math.Abs(x[i,j])>Math.Abs(x[i,result]) )
+                if( (double)(Math.Abs(x[i,j]))>(double)(Math.Abs(x[i,result])) )
                 {
                     result = j;
@@ -316 +316 @@
                 // beta*y
                 //
-                if( beta==0 )
+                if( (double)(beta)==(double)(0) )
                 {
                     for(i=iy1; i<=iy2; i++)
@@ -361 +361 @@
                 // beta*y
                 //
-                if( beta==0 )
+                if( (double)(beta)==(double)(0) )
                 {
                     for(i=iy1; i<=iy2; i++)
@@ -405 +405 @@
             w = Math.Max(xabs, yabs);
             z = Math.Min(xabs, yabs);
-            if( z==0 )
+            if( (double)(z)==(double)(0) )
             {
                 result = w;
@@ -497 +497 @@
             // Prepare C
             //
-            if( beta==0 )
+            if( (double)(beta)==(double)(0) )
             {
                 for(i=ci1; i<=ci2; i++)