mirror of
https://github.com/cmusphinx/sphinxtrain.git
synced 2026-06-16 13:14:30 +00:00
David Huggins-Daines
dc157d12e7
Note that most of it is not at all useful. We also had to use an older version than what's in PocketSphinx because SphinxTrain has different needs. Another reorganization will be done soon.
37 lines
1.2 KiB
C
37 lines
1.2 KiB
C
/* -*- c-basic-offset: 4; indent-tabs-mode: nil -*- */
|
|
#ifndef __CLAPACK_LITE_H
|
|
#define __CLAPACK_LITE_H
|
|
|
|
#include "f2c.h"
|
|
|
|
|
|
#ifdef __cplusplus
|
|
extern "C" {
|
|
#endif
|
|
#if 0
|
|
/* Fool Emacs. */
|
|
}
|
|
#endif
|
|
|
|
/* Subroutine */ int sgemm_(char *transa, char *transb, integer *m, integer *
|
|
n, integer *k, real *alpha, real *a, integer *lda, real *b, integer *
|
|
ldb, real *beta, real *c__, integer *ldc);
|
|
/* Subroutine */ int sgemv_(char *trans, integer *m, integer *n, real *alpha,
|
|
real *a, integer *lda, real *x, integer *incx, real *beta, real *y,
|
|
integer *incy);
|
|
/* Subroutine */ int ssymm_(char *side, char *uplo, integer *m, integer *n,
|
|
real *alpha, real *a, integer *lda, real *b, integer *ldb, real *beta,
|
|
real *c__, integer *ldc);
|
|
|
|
/* Subroutine */ int sposv_(char *uplo, integer *n, integer *nrhs, real *a,
|
|
integer *lda, real *b, integer *ldb, integer *info);
|
|
/* Subroutine */ int spotrf_(char *uplo, integer *n, real *a, integer *lda,
|
|
integer *info);
|
|
|
|
#ifdef __cplusplus
|
|
}
|
|
#endif
|
|
|
|
|
|
#endif /* __CLAPACK_LITE_H */
|