1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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
|
