diff options
| author | jthorn <jthorn@f88db872-0e4f-0410-b76b-b9085cfa78c5> | 2002-09-16 14:16:40 +0000 |
|---|---|---|
| committer | jthorn <jthorn@f88db872-0e4f-0410-b76b-b9085cfa78c5> | 2002-09-16 14:16:40 +0000 |
| commit | 5b9e4994d6ef4ed504aa35699d3471f509bdb814 (patch) | |
| tree | 0202a01b3c4a862b8d8c6c998b0c54433b2be3a9 /src/elliptic | |
| parent | 3936e30b144fd1cb0d0463839d7d50521df93ac9 (diff) | |
* change from $Id: to $Header:
* put LAPACK wrapper functions inside #ifdef HAVE_DENSE_JACOBIAN
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinderDirect/trunk@747 f88db872-0e4f-0410-b76b-b9085cfa78c5
Diffstat (limited to 'src/elliptic')
| -rw-r--r-- | src/elliptic/Jacobian.hh | 2 | ||||
| -rw-r--r-- | src/elliptic/gecon_wrapper.F77 | 6 | ||||
| -rw-r--r-- | src/elliptic/lapack.h | 2 |
3 files changed, 7 insertions, 3 deletions
diff --git a/src/elliptic/Jacobian.hh b/src/elliptic/Jacobian.hh index 2fcdcc6..3faf2d1 100644 --- a/src/elliptic/Jacobian.hh +++ b/src/elliptic/Jacobian.hh @@ -147,7 +147,7 @@ private: integer *iwork_; fp *rwork_; }; -#endif +#endif // HAVE_DENSE_JACOBIAN //****************************************************************************** diff --git a/src/elliptic/gecon_wrapper.F77 b/src/elliptic/gecon_wrapper.F77 index 6feb1e8..962dec1 100644 --- a/src/elliptic/gecon_wrapper.F77 +++ b/src/elliptic/gecon_wrapper.F77 @@ -1,5 +1,5 @@ c gecon_wrapper.f -- wrapper routines for LAPACK [sd]gecon() -c $Id$ +c $Header$ c c These subroutines are wrappers around the LAPACK [sd]gecon() subroutines. @@ -12,6 +12,7 @@ c norm_int = (in) 0 ==> infinity-norm c 1 ==> 1-norm c +#ifdef HAVE_DENSE_JACOBIAN subroutine sgecon_wrapper(norm_int, $ N, A, LDA, anorm, rcond, $ WORK, IWORK, info) @@ -31,7 +32,9 @@ c end if return end +#endif // HAVE_DENSE_JACOBIAN +#ifdef HAVE_DENSE_JACOBIAN subroutine dgecon_wrapper(norm_int, $ N, A, LDA, anorm, rcond, $ WORK, IWORK, info) @@ -51,3 +54,4 @@ c end if return end +#endif // HAVE_DENSE_JACOBIAN diff --git a/src/elliptic/lapack.h b/src/elliptic/lapack.h index f0582c9..f82d9d4 100644 --- a/src/elliptic/lapack.h +++ b/src/elliptic/lapack.h @@ -1,5 +1,5 @@ /* lapack.h -- C/C++ prototypes for (some) BLAS+LAPACK+wrapper routines */ -/* $Id$ */ +/* $Header$ */ /* * prerequisites: |