diff options
| author | simon | 2008-08-28 10:06:40 +0000 |
|---|---|---|
| committer | simon | 2008-08-28 10:06:40 +0000 |
| commit | 5f2820b734ccbf5bd0f6f1d0c5b126d371bd5913 (patch) | |
| tree | 0b2676117925f7c5f0a40cc2a2719df1dec9e140 /src/includes/lapack.h | |
| parent | fdc025993e1939cc07ec074194eb52604a649cdb (diff) | |
| download | scilab2c-5f2820b734ccbf5bd0f6f1d0c5b126d371bd5913.tar.gz scilab2c-5f2820b734ccbf5bd0f6f1d0c5b126d371bd5913.tar.bz2 scilab2c-5f2820b734ccbf5bd0f6f1d0c5b126d371bd5913.zip | |
added matrix inverse computation functions and updated some comments
Diffstat (limited to 'src/includes/lapack.h')
| -rw-r--r-- | src/includes/lapack.h | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/includes/lapack.h b/src/includes/lapack.h index 1bc658ee..30cb731f 100644 --- a/src/includes/lapack.h +++ b/src/includes/lapack.h @@ -91,6 +91,9 @@ extern double dgelsy_ (int* M, int* N, int* NRHS, double* A, int* LDA, extern double dlacpy_ (char* NORM, int* M, int* N, double* A, int* LDA, double* B, int* LDB ); +extern double dgetri_ (int* N , double* A , int* LDA , int* IPIV , double* WORK, + int* LWORK , int* INFO ) ; + /****** doubleComplex fortran function ************/ extern double zgelsy_ () ; @@ -107,6 +110,8 @@ extern double zgecon_ ( ) ; extern double zgetrs_ ( ) ; extern double zlacpy_ (); + +extern double zgetri_ () ; /*extern int zgelsy_ ();*/ /*certainly have some blas functions in */ @@ -131,4 +136,10 @@ extern int C2F(drot)(); extern int C2F(intexpm) (); extern int C2F(zcopy)(); + +extern int C2F(dgemm)(); +extern int C2F(idamax)() ;/* could be transcribe easaly in c */ +extern int C2F(daxpy) () ;/* could be transcribe easaly in c */ +extern int C2F(dscal) () ;/* could be transcribe easaly in c */ +extern int C2F(dasum) () ;/* could be transcribe easaly in c */ #endif /* !__LAPACK_H__ */ |