From 7794c7a53c36c2b5a93af435919414c6972aaa6c Mon Sep 17 00:00:00 2001
From: rlar <rlar>
Date: Sun, 28 Apr 2013 20:04:23 +0200
Subject: [PATCH] sparse/*.c, rename `eMatrix' --> `Matrix'

---
 src/maths/sparse/spalloc.c | 38 +++++++++++++++++++-------------------
 src/maths/sparse/sputils.c | 12 ++++++------
 2 files changed, 25 insertions(+), 25 deletions(-)

diff --git a/src/maths/sparse/spalloc.c b/src/maths/sparse/spalloc.c
index 56b8a31d7..0c2f846da 100644
--- a/src/maths/sparse/spalloc.c
+++ b/src/maths/sparse/spalloc.c
@@ -704,13 +704,13 @@ spDestroy(MatrixPtr Matrix)
  *  eMatrix  <input>  (void *)
  *      The matrix for which the error status is desired.  */
 int
-spError(MatrixPtr eMatrix )
+spError(MatrixPtr Matrix )
 {
     /* Begin `spError'. */
 
-    if (eMatrix != NULL) {
-	assert(eMatrix->ID == SPARSE_ID);
-        return eMatrix->Error;
+    if (Matrix != NULL) {
+	assert(Matrix->ID == SPARSE_ID);
+        return Matrix->Error;
     } else {
 	/* This error may actually be spPANIC, no way to tell. */
 	return spNO_MEMORY;
@@ -814,23 +814,23 @@ spGetSize(MatrixPtr Matrix, int External)
  */
 
 void
-spSetReal(MatrixPtr eMatrix)
+spSetReal(MatrixPtr Matrix)
 {
     /* Begin `spSetReal'. */
 
-    assert( IS_SPARSE( eMatrix ));
-    eMatrix->Complex = NO;
+    assert( IS_SPARSE( Matrix ));
+    Matrix->Complex = NO;
     return;
 }
 
 
 void
-spSetComplex(MatrixPtr eMatrix)
+spSetComplex(MatrixPtr Matrix)
 {
     /* Begin `spSetComplex'. */
 
-    assert( IS_SPARSE( eMatrix ));
-    eMatrix->Complex = YES;
+    assert( IS_SPARSE( Matrix ));
+    Matrix->Complex = YES;
     return;
 }
 
@@ -855,29 +855,29 @@ spSetComplex(MatrixPtr eMatrix)
  */
 
 int
-spFillinCount(MatrixPtr eMatrix)
+spFillinCount(MatrixPtr Matrix)
 {
     /* Begin `spFillinCount'. */
 
-    assert( IS_SPARSE( eMatrix ) );
-    return eMatrix->Fillins;
+    assert( IS_SPARSE( Matrix ) );
+    return Matrix->Fillins;
 }
 
 
 int
-spElementCount(MatrixPtr eMatrix)
+spElementCount(MatrixPtr Matrix)
 {
     /* Begin `spElementCount'. */
 
-    assert( IS_SPARSE( eMatrix ) );
-    return eMatrix->Elements;
+    assert( IS_SPARSE( Matrix ) );
+    return Matrix->Elements;
 }
 
 int
-spOriginalCount(MatrixPtr eMatrix)
+spOriginalCount(MatrixPtr Matrix)
 {
     /* Begin `spOriginalCount'. */
 
-    assert( IS_SPARSE( eMatrix ) );
-    return eMatrix->Originals;
+    assert( IS_SPARSE( Matrix ) );
+    return Matrix->Originals;
 }
diff --git a/src/maths/sparse/sputils.c b/src/maths/sparse/sputils.c
index fda322218..4fe5311f8 100644
--- a/src/maths/sparse/sputils.c
+++ b/src/maths/sparse/sputils.c
@@ -2143,17 +2143,17 @@ spRoundoff(MatrixPtr Matrix, RealNumber Rho)
  */
 
 void
-spErrorMessage(MatrixPtr eMatrix, FILE *Stream, char *Originator)
+spErrorMessage(MatrixPtr Matrix, FILE *Stream, char *Originator)
 {
     int Row, Col, Error;
 
     /* Begin `spErrorMessage'. */
-    if (eMatrix == NULL)
+    if (Matrix == NULL)
 	Error = spNO_MEMORY;
     else
     {
-	assert(eMatrix->ID == SPARSE_ID);
-	Error = eMatrix->Error;
+	assert(Matrix->ID == SPARSE_ID);
+	Error = Matrix->Error;
     }
 
     if (Error == spOKAY) return;
@@ -2172,13 +2172,13 @@ spErrorMessage(MatrixPtr eMatrix, FILE *Stream, char *Originator)
 	fprintf( Stream, "insufficient memory available.\n");
     else if (Error == spSINGULAR)
     {
-	spWhereSingular( eMatrix, &Row, &Col );
+	spWhereSingular( Matrix, &Row, &Col );
 	fprintf( Stream, "singular matrix detected at row %d and column %d.\n",
 		 Row, Col);
     }
     else if (Error == spZERO_DIAG)
     {
-	spWhereSingular( eMatrix, &Row, &Col );
+	spWhereSingular( Matrix, &Row, &Col );
 	fprintf( Stream, "zero diagonal detected at row %d and column %d.\n",
 		 Row, Col);
     }