COPASI API  4.16.103
dgesl.h
Go to the documentation of this file.
1 /* Begin CVS Header
2  $Source: /Volumes/Home/Users/shoops/cvs/copasi_dev/copasi/odepack++/dgesl.h,v $
3  $Revision: 1.2 $
4  $Name: $
5  $Author: shoops $
6  $Date: 2006/04/27 01:29:35 $
7  End CVS Header */
8 
9 // Copyright 2005 by Pedro Mendes, Virginia Tech Intellectual
10 // Properties, Inc. and EML Research, gGmbH.
11 // All rights reserved.
12 
13 #ifndef ODEPACK_debsl
14 #define ODEPACK_debsl
15 
16 /**
17  * This maps the linpack routine dgesl to the lapack routine dgetrs.
18  */
19 
20 #define dgesl_(__a, __lda, __n, __ipvt, __b, __job) \
21  {\
22  char __T = (*__job != (C_INT) 0) ? 'T': 'N'; \
23  C_INT __info; \
24  C_INT __one = 1; \
25  dgetrs_(&__T, __n, &__one, __a, __lda, __ipvt, __b, __n, &__info); \
26  }
27 
28 #ifdef XXXX
29 C_INT dgesl_(double * a,
30  C_INT * lda,
31  C_INT * n,
32  C_INT * ipvt,
33  double * b,
34  C_INT * job);
35 
36 int dgetrs_(char *trans,
37  integer *n,
38  integer *nrhs,
39  doublereal *a,
40  integer *lda,
41  integer *ipiv,
42  doublereal *b,
43  integer * ldb,
44  integer *info);
45 #endif // XXXX
46 
47 #endif // ODEPACK_debsl
#define C_INT
Definition: copasi.h:115
C_INT integer
Definition: f2c.h:16
double doublereal
Definition: f2c.h:23
#define dgesl_(__a, __lda, __n, __ipvt, __b, __job)
Definition: dgesl.h:20
int dgetrs_(char *trans, integer *n, integer *nrhs, doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *ldb, integer *info)