standardize inter-function comments as 80 # signs, not 79

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinderDirect/trunk@510 f88db872-0e4f-0410-b76b-b9085cfa78c5

5 files changed, 29 insertions, 29 deletions

diff --git a/src/maple/Diff.maple b/src/maple/Diff.maple
index a4fa0e9..8755611 100644
--- a/src/maple/Diff.maple
+++ b/src/maple/Diff.maple
@@ -7,9 +7,9 @@
 # Diff/gridfn - simplifications that know about gridfns
 #
 
-###############################################################################
-###############################################################################
-###############################################################################
+################################################################################
+################################################################################
+################################################################################
 
 #
 # This function is called automatically by  simplify()  whenever
@@ -64,7 +64,7 @@ ERROR(`expr has unknown type`, `whattype(expr)=`, whattype(expr));
 
 end proc;
 
-###############################################################################
+################################################################################
 
 #
 # This function implements some of the more useful simplification
@@ -226,7 +226,7 @@ return `Diff/gridfn`(operand, op(sorted_var_list));
 
 end proc;
 
-###############################################################################
+################################################################################
 
 #
 # This function implements further simplification rules for  Diff()
diff --git a/src/maple/coeffs.maple b/src/maple/coeffs.maple
index 92181f8..f6956fa 100644
--- a/src/maple/coeffs.maple
+++ b/src/maple/coeffs.maple
@@ -4,7 +4,7 @@
 # setup_coeff_gfas - create the coordinate-transformation coefficient gfas
 #
 
-###############################################################################
+################################################################################
 
 #
 # This function sets up the coordinate-transformation gfas.
diff --git a/src/maple/coords.maple b/src/maple/coords.maple
index 82fcb6f..cd6be48 100644
--- a/src/maple/coords.maple
+++ b/src/maple/coords.maple
@@ -5,7 +5,7 @@
 # setup_coords - set up coordinates
 #
 
-###############################################################################
+################################################################################
 
 #
 # This function sets up the coordinates.
diff --git a/src/maple/gfa.maple b/src/maple/gfa.maple
index e0733b6..4a16de4 100644
--- a/src/maple/gfa.maple
+++ b/src/maple/gfa.maple
@@ -13,7 +13,7 @@
 # print_symmetric3_23 - prettyprint a symmetric3_23 array
 #
 
-###############################################################################
+################################################################################
 
 #
 # ***** gridfn arrays *****
@@ -39,7 +39,7 @@
 # the upper triangle.
 #
 
-###############################################################################
+################################################################################
 
 #
 # ***** functional dependences *****
@@ -99,7 +99,7 @@
 # this manner.
 #
 
-###############################################################################
+################################################################################
 
 #
 # This function makes the Maple representation of a single gridfn array.
@@ -174,7 +174,7 @@ end if;
 NULL;
 end proc;
 
-###############################################################################
+################################################################################
 
 #
 # This function checks that a given gridfn array functional-dependence
@@ -207,7 +207,7 @@ if (not assigned(`gfa/fnd_table`[eval(var_name,1)]))
 end if;
 end proc;
 
-###############################################################################
+################################################################################
 
 #
 # This function computes the Maple name corresponding to a given
@@ -228,9 +228,9 @@ if ((nargs = 1) or (fnd_name = 'inert'))
 end if;
 end proc;
 
-###############################################################################
-###############################################################################
-###############################################################################
+################################################################################
+################################################################################
+################################################################################
 
 #
 # This function is a Maple indexing function for a rank 3 table/array
@@ -272,9 +272,9 @@ if (nargs = 2)
 end if;
 end proc;
 
-###############################################################################
-###############################################################################
-###############################################################################
+################################################################################
+################################################################################
+################################################################################
 
 #
 # This function prettyprints a symmetric3_23 array
diff --git a/src/maple/util.maple b/src/maple/util.maple
index 4d50fc3..fe7e0ea 100644
--- a/src/maple/util.maple
+++ b/src/maple/util.maple
@@ -15,9 +15,9 @@
 # saveit - optionally save variables for debugging
 #
 
-###############################################################################
-###############################################################################
-###############################################################################
+################################################################################
+################################################################################
+################################################################################
 
 #
 # This function is identical to the standard Maple library function  sum()
@@ -64,7 +64,7 @@ expr := fn;
 return eval(expr);
 end proc;
 
-###############################################################################
+################################################################################
 
 #
 # This function computes the 4-quadrant arctangent of  arctan(y/x) .
@@ -133,9 +133,9 @@ fi;
 
 end;
 
-###############################################################################
-###############################################################################
-###############################################################################
+################################################################################
+################################################################################
+################################################################################
 
 #
 # This procedure generates a (presumably) new symbol name of the
@@ -183,7 +183,7 @@ tn := cat(base_name, `gensym/counter`);
 tn; return '%';
 end proc;
 
-###############################################################################
+################################################################################
 
 #
 # This procedure (re)initializes the gensym() global naming counter.
@@ -207,9 +207,9 @@ end if;
 NULL;
 end proc;
 
-###############################################################################
-###############################################################################
-###############################################################################
+################################################################################
+################################################################################
+################################################################################
 
 #
 # This function optionally saves a local variable to a global variable