SphinxBase  0.6
include/sphinxbase/clapack_lite.h
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 */