Mercurial > hg > octave-lyh

diff liboctave/CollocWt.cc @ 1321:64819a909ed7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-08-22 05:39:43 by jwe]
author jwe
date Tue, 22 Aug 1995 05:41:48 +0000
parents 611d403c7f3d
children 7eb93d12654c
line wrap: on
line diff
--- a/liboctave/CollocWt.cc
+++ b/liboctave/CollocWt.cc
@@ -285,29 +285,28 @@
 			  dif1, dif2, dif3, pr);
 
   int id;
-  int i, j;
 
 // First derivative weights.
 
   id = 1;
-  for (i = 1; i <= nt; i++)
+  for (int i = 1; i <= nt; i++)
     {
       F77_FCN (dfopr, DFOPR) (nt, n, inc_left, inc_right, i, id, dif1,
 			      dif2, dif3, pr, vect); 
 
-      for (j = 0; j < nt; j++)
+      for (int j = 0; j < nt; j++)
 	A (i-1, j) = vect[j];
     }
 
 // Second derivative weights.
 
   id = 2;
-  for (i = 1; i <= nt; i++)
+  for (int i = 1; i <= nt; i++)
     {
       F77_FCN (dfopr, DFOPR) (nt, n, inc_left, inc_right, i, id, dif1,
 			      dif2, dif3, pr, vect); 
 
-      for (j = 0; j < nt; j++)
+      for (int j = 0; j < nt; j++)
 	B (i-1, j) = vect[j];
     }
 
@@ -315,7 +314,7 @@
 
   id = 3;
   double *pq = q.fortran_vec ();
-  F77_FCN (dfopr, DFOPR) (nt, n, inc_left, inc_right, i, id, dif1,
+  F77_FCN (dfopr, DFOPR) (nt, n, inc_left, inc_right, id, id, dif1,
 			  dif2, dif3, pr, pq);
 
   delete [] dif1;