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