Cantera  2.0
lapack.h
1 
2 // Copyright 2001 California Institute of Technology.
3 // All rights reserved.
4 
5 #include "cantera/base/ct_defs.h"
6 
7 #ifndef LAPACK_H
8 #define LAPACK_H
9 
10 #if defined(NEEDS_F77_TRANSLATION)
11 
12 #if defined(F77EXTERNS_UPPERCASE_NOTRAILINGBAR)
13 #define dgetrs_ DGETRS
14 #define dgetrf_ DGETRF
15 #define dgetri_ DGETRI
16 #define dvode_ DVODE
17 #define ddassl_ DDASSL
18 #define simplx_ SIMPLX
19 #define splin2_ SPLIN2
20 #define splie2_ SPLIE2
21 #endif
22 
23 #endif
24 
25 extern "C"
26 {
27 
28  void dcopy_(const integer* n, const doublereal* dx, const integer* incx, doublereal* dy, const integer* incy);
29 
30  doublereal ddot_(integer* n, doublereal* dx, integer* incx, doublereal* dy, integer* incy);
31 
32  void daxpy_(integer* n, doublereal* a, doublereal* x, integer* incx,
33  doublereal* y, integer* incy);
34 
35  void dscal_(integer* n, doublereal* da, doublereal* dx, integer* incx);
36 
37  integer idamax_(integer* n, doublereal* a, integer* incx);
38 }
39 
40 
41 #endif