diff options
| author | simon | 2008-07-16 13:36:17 +0000 |
|---|---|---|
| committer | simon | 2008-07-16 13:36:17 +0000 |
| commit | 07ad3a03eaf3bb9ea745e15061c4dac52edfa5f8 (patch) | |
| tree | f562851cc6865eddbd3c418170dc2fb6c2b43ff3 /src/includes | |
| parent | 710cdab09144909ce6336fae6d605909fbee3d0b (diff) | |
| download | scilab2c-07ad3a03eaf3bb9ea745e15061c4dac52edfa5f8.tar.gz scilab2c-07ad3a03eaf3bb9ea745e15061c4dac52edfa5f8.tar.bz2 scilab2c-07ad3a03eaf3bb9ea745e15061c4dac52edfa5f8.zip | |
corrected configure , and add comment in ddiva
Diffstat (limited to 'src/includes')
| -rw-r--r-- | src/includes/lapack.h | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/src/includes/lapack.h b/src/includes/lapack.h index a094ecc9..8bc4744e 100644 --- a/src/includes/lapack.h +++ b/src/includes/lapack.h @@ -18,6 +18,13 @@ #define getOverflowThreshold() dlamch_("o", 1L) #define getUnderflowThreshold() dlamch_("u", 1L) +#define getOneNorm(lines,cols,in,work) dlange_("1", lines, cols, in, lines, work) +#define resolveSystemLinear(cols1,row2,cpytranIn1,pIpiv, transposeOfIn2,info) \ + dgetrs_ ("N" ,cols1, row2, cpytranIn1 , cols1, pIpiv,transposeOfIn2, cols1, info) ; + + + + /** * -- LAPACK auxiliary routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., @@ -62,5 +69,19 @@ **/ extern double dlamch_ (char *CMACH, unsigned long int i); +extern double dlange_ (char* NORM, int* M, int* N, double* A, int* LDA , double* WORK); + +extern double dgetrf_ (int* M, int* N , double* A , int* LDA , int* IPIV , int* INFO); + +extern double dgecon_ (char* NORM, int* N, double* A, int* LDA, double* ANORM, + double* RCOND, double* WORK , int* IWORK, int* INFO ) ; + +extern double dgetrs_ (char* TRANS, int* N, int* NRHS, double* A, int* LDA, + int* IPIV, double* B, int* LDB, int* INFO ) ; + +extern double dgelsy_ (int* M, int* N, int* NRHS, double* A, int* LDA, + double* B, int* LDB, int* JPVT, double* RCOND, int* RANK, + double* WORK, int* LWORK, int* INFO) ; + #endif /* !__LAPACK_H__ */ |