COPASI API  4.16.103
dgbsl.h
Go to the documentation of this file.
1 /* Begin CVS Header
2  $Source: /Volumes/Home/Users/shoops/cvs/copasi_dev/copasi/odepack++/dgbsl.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_dgbsl
14 #define ODEPACK_dgbsl
15 
16 /**
17  * This maps the linpack routine dgbsl to the lapack routine dgbtrs.
18  */
19 
20 #define dgbsl_(__ab, __lda, __n, __ml, __mu, __ipvt, __b, __job) \
21  {\
22  char __T = (*__job != (C_INT) 0) ? 'T': 'N'; \
23  C_INT __info; \
24  C_INT __one = 1; \
25  dgbtrs_(&__T, __n, __ml, __mu, &__one, __ab, __lda, __ipvt, __b, __n, &__info); \
26  }
27 
28 #ifdef XXXX
29 C_INT dgbsl_(double * abd,
30  C_INT * lda,
31  C_INT * n,
32  C_INT * ml,
33  C_INT * mu,
34  C_INT * ipvt,
35  double * b,
36  C_INT * job);
37 
38 int dgbtrs_(char *trans,
39  integer *n,
40  integer *kl,
41  integer * ku,
42  integer *nrhs,
43  doublereal *ab,
44  integer *ldab,
45  integer *ipiv,
46  doublereal *b,
47  integer *ldb,
48  integer *info);
49 #endif // XXXX
50 
51 #endif // ODEPACK_dgbsl
#define C_INT
Definition: copasi.h:115
C_INT integer
Definition: f2c.h:16
double doublereal
Definition: f2c.h:23
int dgbtrs_(char *trans, integer *n, integer *kl, integer *ku, integer *nrhs, doublereal *ab, integer *ldab, integer *ipiv, doublereal *b, integer *ldb, integer *info)
#define dgbsl_(__ab, __lda, __n, __ml, __mu, __ipvt, __b, __job)
Definition: dgbsl.h:20