diff options
author | jthorn <jthorn@f88db872-0e4f-0410-b76b-b9085cfa78c5> | 2002-07-22 12:30:23 +0000 |
---|---|---|
committer | jthorn <jthorn@f88db872-0e4f-0410-b76b-b9085cfa78c5> | 2002-07-22 12:30:23 +0000 |
commit | dc3dc6380ac5aa582a2fc95d58842328d4d34b66 (patch) | |
tree | f70c0b901371eb62ae39f0cc2f3305fd20088a2c /src | |
parent | b3c9f3f1269b213537b25a1ff0123871a5e07f9f (diff) |
prototypes for LAPACK routines
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinderDirect/trunk@649 f88db872-0e4f-0410-b76b-b9085cfa78c5
Diffstat (limited to 'src')
-rw-r--r-- | src/elliptic/lapack.h | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/src/elliptic/lapack.h b/src/elliptic/lapack.h new file mode 100644 index 0000000..205bc96 --- /dev/null +++ b/src/elliptic/lapack.h @@ -0,0 +1,27 @@ +/* lapack.h -- C/C++ prototypes for (some) LAPACK routines */ +/* $Id$ */ + +/* + * prerequisites: + * "cctk.h" + * "config.hh" // for "integer" = Fortran integer + */ + +#ifdef __cplusplus +extern "C" { +#endif + +void CCTK_FCALL + CCTK_FNAME(sgesv)(const integer* N, const integer* NRHS, + float A[], const int* LDA, + integer IPIV[], + float B[], const integer* LDB, integer* info); +void CCTK_FCALL + CCTK_FNAME(dgesv)(const integer* N, const integer* NRHS, + double A[], const int* LDA, + integer IPIV[], + double B[], const integer* LDB, integer* info); + +#ifdef __cplusplus + }; /* extern "C" */ +#endif |