Changeset 789 in Sophya for trunk/SophyaProg/Tests/lpk.cc

Timestamp:

Mar 20, 2000, 7:24:31 PM (26 years ago)

Author:

ansari

Message:

Amelioration, correction prg tests array Reza 20/3/2000

File:

• trunk/SophyaProg/Tests/lpk.cc (modified) (1 diff)

trunk/SophyaProg/Tests/lpk.cc

@@ -29 +29 @@
     for(j=0; j<n; j++)  a(i,j,0) = GauRnd(0., 1.);
   
-  TArray<r_4> x(1,n), b(n,n);
+  TArray<r_4> x(n,1), b(n,1);
   r_4 sum ;
-  for(i=0; i<n; i++) x(0,i,0) = GauRnd(2., 1.5);
+  for(i=0; i<n; i++) x(i,0,0) = GauRnd(2., 1.5);
   for(i=0; i<n; i++) {
     sum = 0.;
-    for(j=0; j<n; j++) sum +=  a(j,i,0)*x(0,j,0);
-    b(0,i,0) = sum;
+    for(j=0; j<n; j++) sum +=  a(i,j,0)*x(j,0,0);
+    b(i,0,0) = sum;
   }