diff options
| author | simon | 2008-07-29 08:05:04 +0000 |
|---|---|---|
| committer | simon | 2008-07-29 08:05:04 +0000 |
| commit | ea392df771cf9aa7acd7ec8b38dad404fd72bfa9 (patch) | |
| tree | 094a624fc6a123d75c48786b07c07db748cf619c /src/includes | |
| parent | 96d72e22c73a591f924a3b334658cc7edb28dda1 (diff) | |
| download | scilab2c-ea392df771cf9aa7acd7ec8b38dad404fd72bfa9.tar.gz scilab2c-ea392df771cf9aa7acd7ec8b38dad404fd72bfa9.tar.bz2 scilab2c-ea392df771cf9aa7acd7ec8b38dad404fd72bfa9.zip | |
added missing files
Diffstat (limited to 'src/includes')
| -rw-r--r-- | src/includes/lapack.h | 24 |
1 files changed, 9 insertions, 15 deletions
diff --git a/src/includes/lapack.h b/src/includes/lapack.h index 5201f5d6..2751988a 100644 --- a/src/includes/lapack.h +++ b/src/includes/lapack.h @@ -89,28 +89,22 @@ extern double dlacpy_ (char* NORM, int* M, int* N, double* A, int* LDA, /****** doubleComplex fortran function ************/ -extern doubleComplex zlamch_ (char *CMACH, unsigned long int i); +extern int zlamch_ (); -extern double zlange_ (char* NORM, int* M, int* N, doubleComplex* A, int* LDA , - doubleComplex* WORK); +extern int zlange_ (); -extern doubleComplex zgetrf_ (int* M, int* N , doubleComplex* A , int* LDA , int* IPIV , - int* INFO); +extern int zgetrf_ (); -extern doubleComplex zgecon_ (char* NORM, int* N, doubleComplex* A, int* LDA, double* ANORM, - double* RCOND, doubleComplex* WORK , double* IWORK, int* INFO ) ; +extern int zgecon_ ( ) ; -extern doubleComplex zgetrs_ (char* TRANS, int* N, int* NRHS, doubleComplex* A, int* LDA, - int* IPIV, doubleComplex* B, int* LDB, int* INFO ) ; +extern int zgetrs_ ( ) ; -extern doubleComplex zgelsy_ (int* M, int* N, int* NRHS, doubleComplex* A, int* LDA, +extern int zgelsy_ (); +/*extern doubleComplex zgelsy_ (int* M, int* N, int* NRHS, doubleComplex* A, int* LDA, doubleComplex* B, int* LDB, int* JPVT, double* RCOND, int* RANK, doubleComplex* WORK, int* LWORK, double* RWORK, int* INFO) ; +*/ - - - -extern doubleComplex zlacpy_ (char* NORM, int* M, int* N, doubleComplex* A, int* LDA, - doubleComplex* B, int* LDB ); +extern int zlacpy_ (); #endif /* !__LAPACK_H__ */ |