COPASI API
4.16.103
Main Page
Namespaces
Classes
Files
File List
File Members
copasi
odepack++
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
C_INT
#define C_INT
Definition:
copasi.h:115
integer
C_INT integer
Definition:
f2c.h:16
doublereal
double doublereal
Definition:
f2c.h:23
dgbtrs_
int dgbtrs_(char *trans, integer *n, integer *kl, integer *ku, integer *nrhs, doublereal *ab, integer *ldab, integer *ipiv, doublereal *b, integer *ldb, integer *info)
dgbsl_
#define dgbsl_(__ab, __lda, __n, __ml, __mu, __ipvt, __b, __job)
Definition:
dgbsl.h:20
Generated on Thu Jul 2 2015 14:50:41 for COPASI API by
1.8.6