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
9extern "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 */