include/sphinxbase/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 */