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