diff options
author | jthorn <jthorn@f88db872-0e4f-0410-b76b-b9085cfa78c5> | 2003-01-23 20:32:29 +0000 |
---|---|---|
committer | jthorn <jthorn@f88db872-0e4f-0410-b76b-b9085cfa78c5> | 2003-01-23 20:32:29 +0000 |
commit | c13e54071288428f33064e351e32139c7f00108c (patch) | |
tree | f332484dec7a5d9f071820b9fe0446b42fb3bacd /src/elliptic | |
parent | 8ad52055332769c098b02406cc93cc21e6ddb926 (diff) |
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
Diffstat (limited to 'src/elliptic')
-rw-r--r-- | src/elliptic/ilucg_wrapper.F77 | 8 | ||||
-rw-r--r-- | src/elliptic/lapack_wrapper.F77 | 8 |
2 files changed, 8 insertions, 8 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 */ |