SphinxBase  5prealpha
clapack_lite.h
1 /* -*- c-basic-offset: 4; indent-tabs-mode: nil -*- */
2 #ifndef __CLAPACK_LITE_H
3 #define __CLAPACK_LITE_H
4 
5 #include "f2c.h"
6 
7 
8 #ifdef __cplusplus
9 extern "C" {
10 #endif
11 #if 0
12 /* Fool Emacs. */
13 }
14 #endif
15 
16 /* Subroutine */ int sgemm_(char *transa, char *transb, integer *m, integer *
17  n, integer *k, real *alpha, real *a, integer *lda, real *b, integer *
18  ldb, real *beta, real *c__, integer *ldc);
19 /* Subroutine */ int sgemv_(char *trans, integer *m, integer *n, real *alpha,
20  real *a, integer *lda, real *x, integer *incx, real *beta, real *y,
21  integer *incy);
22 /* Subroutine */ int ssymm_(char *side, char *uplo, integer *m, integer *n,
23  real *alpha, real *a, integer *lda, real *b, integer *ldb, real *beta,
24  real *c__, integer *ldc);
25 
26 /* Subroutine */ int sposv_(char *uplo, integer *n, integer *nrhs, real *a,
27  integer *lda, real *b, integer *ldb, integer *info);
28 /* Subroutine */ int spotrf_(char *uplo, integer *n, real *a, integer *lda,
29  integer *info);
30 
31 #ifdef __cplusplus
32 }
33 #endif
34 
35 
36 #endif /* __CLAPACK_LITE_H */