Mercurial > hg > octave-nkf

diff liboctave/CollocWt.cc @ 1360:7eb93d12654c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-09-05 21:51:54 by jwe]
author jwe
date Tue, 05 Sep 1995 21:51:54 +0000
parents 64819a909ed7
children dc527156c38c
line wrap: on
line diff
--- a/liboctave/CollocWt.cc
+++ b/liboctave/CollocWt.cc
@@ -249,7 +249,7 @@
 void
 CollocWt::init (void)
 {
-// Check for possible errors.
+  // Check for possible errors.
 
   double wid = rb - lb;
   if (wid <= 0.0)
@@ -279,14 +279,14 @@
 
   double *pr = r.fortran_vec ();
 
-// Compute roots.
+  // Compute roots.
 
   F77_FCN (jcobi, JCOBI) (nt, n, inc_left, inc_right, Alpha, Beta,
 			  dif1, dif2, dif3, pr);
 
   int id;
 
-// First derivative weights.
+  // First derivative weights.
 
   id = 1;
   for (int i = 1; i <= nt; i++)
@@ -298,7 +298,7 @@
 	A (i-1, j) = vect[j];
     }
 
-// Second derivative weights.
+  // Second derivative weights.
 
   id = 2;
   for (int i = 1; i <= nt; i++)
@@ -310,7 +310,7 @@
 	B (i-1, j) = vect[j];
     }
 
-// Gaussian quadrature weights.
+  // Gaussian quadrature weights.
 
   id = 3;
   double *pq = q.fortran_vec ();