SphinxBase
0.6
|
00001 /* -*- c-basic-offset: 4; indent-tabs-mode: nil -*- */ 00002 #ifndef __CLAPACK_LITE_H 00003 #define __CLAPACK_LITE_H 00004 00005 #include "f2c.h" 00006 00007 00008 #ifdef __cplusplus 00009 extern "C" { 00010 #endif 00011 #if 0 00012 /* Fool Emacs. */ 00013 } 00014 #endif 00015 00016 /* Subroutine */ int sgemm_(char *transa, char *transb, integer *m, integer * 00017 n, integer *k, real *alpha, real *a, integer *lda, real *b, integer * 00018 ldb, real *beta, real *c__, integer *ldc); 00019 /* Subroutine */ int sgemv_(char *trans, integer *m, integer *n, real *alpha, 00020 real *a, integer *lda, real *x, integer *incx, real *beta, real *y, 00021 integer *incy); 00022 /* Subroutine */ int ssymm_(char *side, char *uplo, integer *m, integer *n, 00023 real *alpha, real *a, integer *lda, real *b, integer *ldb, real *beta, 00024 real *c__, integer *ldc); 00025 00026 /* Subroutine */ int sposv_(char *uplo, integer *n, integer *nrhs, real *a, 00027 integer *lda, real *b, integer *ldb, integer *info); 00028 /* Subroutine */ int spotrf_(char *uplo, integer *n, real *a, integer *lda, 00029 integer *info); 00030 00031 #ifdef __cplusplus 00032 } 00033 #endif 00034 00035 00036 #endif /* __CLAPACK_LITE_H */