the cactus preprocessor requires that all preprocessor commands

start with # in column 1 :( :( :(
==> this change makes the code uglier and harder to read, but
    otherwise we can't compile on some platforms (eg my laptop) :( :(


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

3 files changed, 15 insertions, 15 deletions

diff --git a/src/elliptic/ilucg_wrapper.F77 b/src/elliptic/ilucg_wrapper.F77
index 03aa5ca..8e76936 100644
--- a/src/elliptic/ilucg_wrapper.F77
+++ b/src/elliptic/ilucg_wrapper.F77
@@ -16,7 +16,7 @@ c
 #include "config.h"
 
 #ifdef HAVE_ROW_SPARSE_JACOBIAN__ILUCG
-  #ifdef FP_IS_FLOAT
+#ifdef FP_IS_FLOAT
 	subroutine silucg_wrapper(n,
      $				  ia, ja, a,
      $				  b, x,
@@ -42,11 +42,11 @@ c
      $		   istatus)) ierror = 1
 	return
 	end
-  #endif /* FP_IS_FLOAT */
+#endif /* FP_IS_FLOAT */
 #endif	/* HAVE_ROW_SPARSE_JACOBIAN__ILUCG */
 
 #ifdef HAVE_ROW_SPARSE_JACOBIAN__ILUCG
-  #ifdef FP_IS_DOUBLE
+#ifdef FP_IS_DOUBLE
 	subroutine dilucg_wrapper(n,
      $				  ia, ja, a,
      $				  b, x,
@@ -72,5 +72,5 @@ c
      $		   istatus)) ierror = 1
 	return
 	end
-  #endif /* FP_IS_DOUBLE */
+#endif /* FP_IS_DOUBLE */
 #endif	/* HAVE_ROW_SPARSE_JACOBIAN__ILUCG */
diff --git a/src/elliptic/lapack_wrapper.F77 b/src/elliptic/lapack_wrapper.F77
index c9f2fa2..14f5cbf 100644
--- a/src/elliptic/lapack_wrapper.F77
+++ b/src/elliptic/lapack_wrapper.F77
@@ -15,7 +15,7 @@ c
 #include "config.h"
 
 #ifdef HAVE_DENSE_JACOBIAN__LAPACK
-  #ifdef FP_IS_FLOAT
+#ifdef FP_IS_FLOAT
 	subroutine sgecon_wrapper(norm_int,
      $	                          N, A, LDA, anorm, rcond,
      $	                          WORK, IWORK, info)
@@ -35,11 +35,11 @@ c
 	end if
 	return
 	end
-  #endif /* FP_IS_FLOAT */
+#endif /* FP_IS_FLOAT */
 #endif	/* HAVE_DENSE_JACOBIAN__LAPACK */
 
 #ifdef HAVE_DENSE_JACOBIAN__LAPACK
-  #ifdef FP_IS_DOUBLE
+#ifdef FP_IS_DOUBLE
 	subroutine dgecon_wrapper(norm_int,
      $	                          N, A, LDA, anorm, rcond,
      $	                          WORK, IWORK, info)
@@ -59,5 +59,5 @@ c
 	end if
 	return
 	end
-  #endif /* FP_IS_DOUBLE */
+#endif /* FP_IS_DOUBLE */
 #endif	/* HAVE_DENSE_JACOBIAN__LAPACK */
diff --git a/src/include/config.h b/src/include/config.h
index f810cf8..78bf89a 100644
--- a/src/include/config.h
+++ b/src/include/config.h
@@ -5,7 +5,7 @@
  * This header file is #included by C++ and C files, and also by
  * Fortran 77 files which are run through a C-like preprocessor.  Alas,
  * due to a Cactus bug on some systems, this means that all preprocessor
- * commands in Fortran sections of this file, must start in column 1. :( :(
+ * commands must start in column 1. :( :( :(
  */
 
 /*
@@ -40,11 +40,11 @@ typedef CCTK_INT integer;
 #define FP_IS_DOUBLE
 
 #if   defined(FP_IS_FLOAT)
-  #define FP_SCANF_FORMAT "%f"
+#define FP_SCANF_FORMAT "%f"
 #elif defined(FP_IS_DOUBLE)
-  #define FP_SCANF_FORMAT "%lf"
+#define FP_SCANF_FORMAT "%lf"
 #else
-  #error "don't know fp datatype!"
+#error "don't know fp datatype!"
 #endif
 
 /**************************************/
@@ -54,10 +54,10 @@ typedef CCTK_INT integer;
  * either 2nd order or 4th order, configurable here.
  */
 #ifdef FINITE_DIFF_ORDER
-  /* someone (probably a Makefile) has already defined this */
-  /* ==> leave it alone */
+/* someone (probably a Makefile) has already defined this */
+/* ==> leave it alone */
 #else
-  #define FINITE_DIFF_ORDER	4
+#define FINITE_DIFF_ORDER	4
 #endif
 
 /**************************************/