2005 lines
40 KiB
C
2005 lines
40 KiB
C
/*
|
|
* Copyright 1984-2020 The MathWorks, Inc.
|
|
* All Rights Reserved.
|
|
*/
|
|
|
|
/*
|
|
* Header File include/refblas.h
|
|
* Auto generated by f2h.pl, do not modify by hand
|
|
*/
|
|
|
|
#if defined(_MSC_VER)
|
|
# pragma once
|
|
#endif
|
|
#if defined(__GNUC__) && (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ > 3))
|
|
# pragma once
|
|
#endif
|
|
|
|
#ifndef refblas_h
|
|
#define refblas_h
|
|
|
|
#include <stddef.h>
|
|
|
|
#if defined(_WIN32) || defined(__hpux)
|
|
#define FORTRAN_WRAPPER(x) x
|
|
#else
|
|
#define FORTRAN_WRAPPER(x) x ## _
|
|
#endif
|
|
|
|
#ifndef COMPLEX_TYPES
|
|
#define COMPLEX_TYPES
|
|
typedef struct{float r,i;} complex;
|
|
typedef struct{double r,i;} doublecomplex;
|
|
#endif
|
|
|
|
#ifdef __cplusplus
|
|
extern "C" {
|
|
#endif
|
|
|
|
|
|
/* Source: caxpy.f */
|
|
#define caxpy FORTRAN_WRAPPER(caxpy)
|
|
extern void caxpy(
|
|
const ptrdiff_t *n,
|
|
const float *ca,
|
|
const float *cx,
|
|
const ptrdiff_t *incx,
|
|
float *cy,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: ccopy.f */
|
|
#define ccopy FORTRAN_WRAPPER(ccopy)
|
|
extern void ccopy(
|
|
const ptrdiff_t *n,
|
|
const float *cx,
|
|
const ptrdiff_t *incx,
|
|
float *cy,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: cdotc.f */
|
|
#define cdotc FORTRAN_WRAPPER(cdotc)
|
|
#ifndef FORTRAN_COMPLEX_FUNCTIONS_RETURN_VOID
|
|
extern complex cdotc(
|
|
#else
|
|
extern void cdotc(
|
|
complex* retval,
|
|
#endif
|
|
const ptrdiff_t *n,
|
|
const float *cx,
|
|
const ptrdiff_t *incx,
|
|
const float *cy,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: cdotu.f */
|
|
#define cdotu FORTRAN_WRAPPER(cdotu)
|
|
#ifndef FORTRAN_COMPLEX_FUNCTIONS_RETURN_VOID
|
|
extern complex cdotu(
|
|
#else
|
|
extern void cdotu(
|
|
complex* retval,
|
|
#endif
|
|
const ptrdiff_t *n,
|
|
const float *cx,
|
|
const ptrdiff_t *incx,
|
|
const float *cy,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: cgbmv.f */
|
|
#define cgbmv FORTRAN_WRAPPER(cgbmv)
|
|
extern void cgbmv(
|
|
const char *trans,
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *kl,
|
|
const ptrdiff_t *ku,
|
|
const float *alpha,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
const float *x,
|
|
const ptrdiff_t *incx,
|
|
const float *beta,
|
|
float *y,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: cgemm.f */
|
|
#define cgemm FORTRAN_WRAPPER(cgemm)
|
|
extern void cgemm(
|
|
const char *transa,
|
|
const char *transb,
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *k,
|
|
const float *alpha,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
const float *b,
|
|
const ptrdiff_t *ldb,
|
|
const float *beta,
|
|
float *c,
|
|
const ptrdiff_t *ldc
|
|
);
|
|
|
|
/* Source: cgemv.f */
|
|
#define cgemv FORTRAN_WRAPPER(cgemv)
|
|
extern void cgemv(
|
|
const char *trans,
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const float *alpha,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
const float *x,
|
|
const ptrdiff_t *incx,
|
|
const float *beta,
|
|
float *y,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: cgerc.f */
|
|
#define cgerc FORTRAN_WRAPPER(cgerc)
|
|
extern void cgerc(
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const float *alpha,
|
|
const float *x,
|
|
const ptrdiff_t *incx,
|
|
const float *y,
|
|
const ptrdiff_t *incy,
|
|
float *a,
|
|
const ptrdiff_t *lda
|
|
);
|
|
|
|
/* Source: cgeru.f */
|
|
#define cgeru FORTRAN_WRAPPER(cgeru)
|
|
extern void cgeru(
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const float *alpha,
|
|
const float *x,
|
|
const ptrdiff_t *incx,
|
|
const float *y,
|
|
const ptrdiff_t *incy,
|
|
float *a,
|
|
const ptrdiff_t *lda
|
|
);
|
|
|
|
/* Source: chbmv.f */
|
|
#define chbmv FORTRAN_WRAPPER(chbmv)
|
|
extern void chbmv(
|
|
const char *uplo,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *k,
|
|
const float *alpha,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
const float *x,
|
|
const ptrdiff_t *incx,
|
|
const float *beta,
|
|
float *y,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: chemm.f */
|
|
#define chemm FORTRAN_WRAPPER(chemm)
|
|
extern void chemm(
|
|
const char *side,
|
|
const char *uplo,
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const float *alpha,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
const float *b,
|
|
const ptrdiff_t *ldb,
|
|
const float *beta,
|
|
float *c,
|
|
const ptrdiff_t *ldc
|
|
);
|
|
|
|
/* Source: chemv.f */
|
|
#define chemv FORTRAN_WRAPPER(chemv)
|
|
extern void chemv(
|
|
const char *uplo,
|
|
const ptrdiff_t *n,
|
|
const float *alpha,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
const float *x,
|
|
const ptrdiff_t *incx,
|
|
const float *beta,
|
|
float *y,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: cher.f */
|
|
#define cher FORTRAN_WRAPPER(cher)
|
|
extern void cher(
|
|
const char *uplo,
|
|
const ptrdiff_t *n,
|
|
const float *alpha,
|
|
const float *x,
|
|
const ptrdiff_t *incx,
|
|
float *a,
|
|
const ptrdiff_t *lda
|
|
);
|
|
|
|
/* Source: cher2.f */
|
|
#define cher2 FORTRAN_WRAPPER(cher2)
|
|
extern void cher2(
|
|
const char *uplo,
|
|
const ptrdiff_t *n,
|
|
const float *alpha,
|
|
const float *x,
|
|
const ptrdiff_t *incx,
|
|
const float *y,
|
|
const ptrdiff_t *incy,
|
|
float *a,
|
|
const ptrdiff_t *lda
|
|
);
|
|
|
|
/* Source: cher2k.f */
|
|
#define cher2k FORTRAN_WRAPPER(cher2k)
|
|
extern void cher2k(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *k,
|
|
const float *alpha,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
const float *b,
|
|
const ptrdiff_t *ldb,
|
|
const float *beta,
|
|
float *c,
|
|
const ptrdiff_t *ldc
|
|
);
|
|
|
|
/* Source: cherk.f */
|
|
#define cherk FORTRAN_WRAPPER(cherk)
|
|
extern void cherk(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *k,
|
|
const float *alpha,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
const float *beta,
|
|
float *c,
|
|
const ptrdiff_t *ldc
|
|
);
|
|
|
|
/* Source: chpmv.f */
|
|
#define chpmv FORTRAN_WRAPPER(chpmv)
|
|
extern void chpmv(
|
|
const char *uplo,
|
|
const ptrdiff_t *n,
|
|
const float *alpha,
|
|
const float *ap,
|
|
const float *x,
|
|
const ptrdiff_t *incx,
|
|
const float *beta,
|
|
float *y,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: chpr.f */
|
|
#define chpr FORTRAN_WRAPPER(chpr)
|
|
extern void chpr(
|
|
const char *uplo,
|
|
const ptrdiff_t *n,
|
|
const float *alpha,
|
|
const float *x,
|
|
const ptrdiff_t *incx,
|
|
float *ap
|
|
);
|
|
|
|
/* Source: chpr2.f */
|
|
#define chpr2 FORTRAN_WRAPPER(chpr2)
|
|
extern void chpr2(
|
|
const char *uplo,
|
|
const ptrdiff_t *n,
|
|
const float *alpha,
|
|
const float *x,
|
|
const ptrdiff_t *incx,
|
|
const float *y,
|
|
const ptrdiff_t *incy,
|
|
float *ap
|
|
);
|
|
|
|
/* Source: crotg.f */
|
|
#define crotg FORTRAN_WRAPPER(crotg)
|
|
extern void crotg(
|
|
float *ca,
|
|
const float *cb,
|
|
float *c,
|
|
float *s
|
|
);
|
|
|
|
/* Source: cscal.f */
|
|
#define cscal FORTRAN_WRAPPER(cscal)
|
|
extern void cscal(
|
|
const ptrdiff_t *n,
|
|
const float *ca,
|
|
float *cx,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: csrot.f */
|
|
#define csrot FORTRAN_WRAPPER(csrot)
|
|
extern void csrot(
|
|
const ptrdiff_t *n,
|
|
float *cx,
|
|
const ptrdiff_t *incx,
|
|
float *cy,
|
|
const ptrdiff_t *incy,
|
|
const float *c,
|
|
const float *s
|
|
);
|
|
|
|
/* Source: csscal.f */
|
|
#define csscal FORTRAN_WRAPPER(csscal)
|
|
extern void csscal(
|
|
const ptrdiff_t *n,
|
|
const float *sa,
|
|
float *cx,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: cswap.f */
|
|
#define cswap FORTRAN_WRAPPER(cswap)
|
|
extern void cswap(
|
|
const ptrdiff_t *n,
|
|
float *cx,
|
|
const ptrdiff_t *incx,
|
|
float *cy,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: csymm.f */
|
|
#define csymm FORTRAN_WRAPPER(csymm)
|
|
extern void csymm(
|
|
const char *side,
|
|
const char *uplo,
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const float *alpha,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
const float *b,
|
|
const ptrdiff_t *ldb,
|
|
const float *beta,
|
|
float *c,
|
|
const ptrdiff_t *ldc
|
|
);
|
|
|
|
/* Source: csyr2k.f */
|
|
#define csyr2k FORTRAN_WRAPPER(csyr2k)
|
|
extern void csyr2k(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *k,
|
|
const float *alpha,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
const float *b,
|
|
const ptrdiff_t *ldb,
|
|
const float *beta,
|
|
float *c,
|
|
const ptrdiff_t *ldc
|
|
);
|
|
|
|
/* Source: csyrk.f */
|
|
#define csyrk FORTRAN_WRAPPER(csyrk)
|
|
extern void csyrk(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *k,
|
|
const float *alpha,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
const float *beta,
|
|
float *c,
|
|
const ptrdiff_t *ldc
|
|
);
|
|
|
|
/* Source: ctbmv.f */
|
|
#define ctbmv FORTRAN_WRAPPER(ctbmv)
|
|
extern void ctbmv(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const char *diag,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *k,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
float *x,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: ctbsv.f */
|
|
#define ctbsv FORTRAN_WRAPPER(ctbsv)
|
|
extern void ctbsv(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const char *diag,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *k,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
float *x,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: ctpmv.f */
|
|
#define ctpmv FORTRAN_WRAPPER(ctpmv)
|
|
extern void ctpmv(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const char *diag,
|
|
const ptrdiff_t *n,
|
|
const float *ap,
|
|
float *x,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: ctpsv.f */
|
|
#define ctpsv FORTRAN_WRAPPER(ctpsv)
|
|
extern void ctpsv(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const char *diag,
|
|
const ptrdiff_t *n,
|
|
const float *ap,
|
|
float *x,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: ctrmm.f */
|
|
#define ctrmm FORTRAN_WRAPPER(ctrmm)
|
|
extern void ctrmm(
|
|
const char *side,
|
|
const char *uplo,
|
|
const char *transa,
|
|
const char *diag,
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const float *alpha,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
float *b,
|
|
const ptrdiff_t *ldb
|
|
);
|
|
|
|
/* Source: ctrmv.f */
|
|
#define ctrmv FORTRAN_WRAPPER(ctrmv)
|
|
extern void ctrmv(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const char *diag,
|
|
const ptrdiff_t *n,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
float *x,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: ctrsm.f */
|
|
#define ctrsm FORTRAN_WRAPPER(ctrsm)
|
|
extern void ctrsm(
|
|
const char *side,
|
|
const char *uplo,
|
|
const char *transa,
|
|
const char *diag,
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const float *alpha,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
float *b,
|
|
const ptrdiff_t *ldb
|
|
);
|
|
|
|
/* Source: ctrsv.f */
|
|
#define ctrsv FORTRAN_WRAPPER(ctrsv)
|
|
extern void ctrsv(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const char *diag,
|
|
const ptrdiff_t *n,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
float *x,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: dasum.f */
|
|
#define dasum FORTRAN_WRAPPER(dasum)
|
|
extern double dasum(
|
|
const ptrdiff_t *n,
|
|
const double *dx,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: daxpy.f */
|
|
#define daxpy FORTRAN_WRAPPER(daxpy)
|
|
extern void daxpy(
|
|
const ptrdiff_t *n,
|
|
const double *da,
|
|
const double *dx,
|
|
const ptrdiff_t *incx,
|
|
double *dy,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: dcabs1.f */
|
|
#define dcabs1 FORTRAN_WRAPPER(dcabs1)
|
|
extern double dcabs1(
|
|
const double *z
|
|
);
|
|
|
|
/* Source: dcopy.f */
|
|
#define dcopy FORTRAN_WRAPPER(dcopy)
|
|
extern void dcopy(
|
|
const ptrdiff_t *n,
|
|
const double *dx,
|
|
const ptrdiff_t *incx,
|
|
double *dy,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: ddot.f */
|
|
#define ddot FORTRAN_WRAPPER(ddot)
|
|
extern double ddot(
|
|
const ptrdiff_t *n,
|
|
const double *dx,
|
|
const ptrdiff_t *incx,
|
|
const double *dy,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: dgbmv.f */
|
|
#define dgbmv FORTRAN_WRAPPER(dgbmv)
|
|
extern void dgbmv(
|
|
const char *trans,
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *kl,
|
|
const ptrdiff_t *ku,
|
|
const double *alpha,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
const double *x,
|
|
const ptrdiff_t *incx,
|
|
const double *beta,
|
|
double *y,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: dgemm.f */
|
|
#define dgemm FORTRAN_WRAPPER(dgemm)
|
|
extern void dgemm(
|
|
const char *transa,
|
|
const char *transb,
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *k,
|
|
const double *alpha,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
const double *b,
|
|
const ptrdiff_t *ldb,
|
|
const double *beta,
|
|
double *c,
|
|
const ptrdiff_t *ldc
|
|
);
|
|
|
|
/* Source: dgemv.f */
|
|
#define dgemv FORTRAN_WRAPPER(dgemv)
|
|
extern void dgemv(
|
|
const char *trans,
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const double *alpha,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
const double *x,
|
|
const ptrdiff_t *incx,
|
|
const double *beta,
|
|
double *y,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: dger.f */
|
|
#define dger FORTRAN_WRAPPER(dger)
|
|
extern void dger(
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const double *alpha,
|
|
const double *x,
|
|
const ptrdiff_t *incx,
|
|
const double *y,
|
|
const ptrdiff_t *incy,
|
|
double *a,
|
|
const ptrdiff_t *lda
|
|
);
|
|
|
|
/* Source: dnrm2.f */
|
|
#define dnrm2 FORTRAN_WRAPPER(dnrm2)
|
|
extern double dnrm2(
|
|
const ptrdiff_t *n,
|
|
const double *x,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: drot.f */
|
|
#define drot FORTRAN_WRAPPER(drot)
|
|
extern void drot(
|
|
const ptrdiff_t *n,
|
|
double *dx,
|
|
const ptrdiff_t *incx,
|
|
double *dy,
|
|
const ptrdiff_t *incy,
|
|
const double *c,
|
|
const double *s
|
|
);
|
|
|
|
/* Source: drotg.f */
|
|
#define drotg FORTRAN_WRAPPER(drotg)
|
|
extern void drotg(
|
|
double *da,
|
|
double *db,
|
|
double *c,
|
|
double *s
|
|
);
|
|
|
|
/* Source: drotm.f */
|
|
#define drotm FORTRAN_WRAPPER(drotm)
|
|
extern void drotm(
|
|
const ptrdiff_t *n,
|
|
double *dx,
|
|
const ptrdiff_t *incx,
|
|
double *dy,
|
|
const ptrdiff_t *incy,
|
|
const double *dparam
|
|
);
|
|
|
|
/* Source: drotmg.f */
|
|
#define drotmg FORTRAN_WRAPPER(drotmg)
|
|
extern void drotmg(
|
|
double *dd1,
|
|
double *dd2,
|
|
double *dx1,
|
|
const double *dy1,
|
|
double *dparam
|
|
);
|
|
|
|
/* Source: dsbmv.f */
|
|
#define dsbmv FORTRAN_WRAPPER(dsbmv)
|
|
extern void dsbmv(
|
|
const char *uplo,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *k,
|
|
const double *alpha,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
const double *x,
|
|
const ptrdiff_t *incx,
|
|
const double *beta,
|
|
double *y,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: dscal.f */
|
|
#define dscal FORTRAN_WRAPPER(dscal)
|
|
extern void dscal(
|
|
const ptrdiff_t *n,
|
|
const double *da,
|
|
double *dx,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: dsdot.f */
|
|
#define dsdot FORTRAN_WRAPPER(dsdot)
|
|
extern double dsdot(
|
|
const ptrdiff_t *n,
|
|
const float *sx,
|
|
const ptrdiff_t *incx,
|
|
const float *sy,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: dspmv.f */
|
|
#define dspmv FORTRAN_WRAPPER(dspmv)
|
|
extern void dspmv(
|
|
const char *uplo,
|
|
const ptrdiff_t *n,
|
|
const double *alpha,
|
|
const double *ap,
|
|
const double *x,
|
|
const ptrdiff_t *incx,
|
|
const double *beta,
|
|
double *y,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: dspr.f */
|
|
#define dspr FORTRAN_WRAPPER(dspr)
|
|
extern void dspr(
|
|
const char *uplo,
|
|
const ptrdiff_t *n,
|
|
const double *alpha,
|
|
const double *x,
|
|
const ptrdiff_t *incx,
|
|
double *ap
|
|
);
|
|
|
|
/* Source: dspr2.f */
|
|
#define dspr2 FORTRAN_WRAPPER(dspr2)
|
|
extern void dspr2(
|
|
const char *uplo,
|
|
const ptrdiff_t *n,
|
|
const double *alpha,
|
|
const double *x,
|
|
const ptrdiff_t *incx,
|
|
const double *y,
|
|
const ptrdiff_t *incy,
|
|
double *ap
|
|
);
|
|
|
|
/* Source: dswap.f */
|
|
#define dswap FORTRAN_WRAPPER(dswap)
|
|
extern void dswap(
|
|
const ptrdiff_t *n,
|
|
double *dx,
|
|
const ptrdiff_t *incx,
|
|
double *dy,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: dsymm.f */
|
|
#define dsymm FORTRAN_WRAPPER(dsymm)
|
|
extern void dsymm(
|
|
const char *side,
|
|
const char *uplo,
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const double *alpha,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
const double *b,
|
|
const ptrdiff_t *ldb,
|
|
const double *beta,
|
|
double *c,
|
|
const ptrdiff_t *ldc
|
|
);
|
|
|
|
/* Source: dsymv.f */
|
|
#define dsymv FORTRAN_WRAPPER(dsymv)
|
|
extern void dsymv(
|
|
const char *uplo,
|
|
const ptrdiff_t *n,
|
|
const double *alpha,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
const double *x,
|
|
const ptrdiff_t *incx,
|
|
const double *beta,
|
|
double *y,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: dsyr.f */
|
|
#define dsyr FORTRAN_WRAPPER(dsyr)
|
|
extern void dsyr(
|
|
const char *uplo,
|
|
const ptrdiff_t *n,
|
|
const double *alpha,
|
|
const double *x,
|
|
const ptrdiff_t *incx,
|
|
double *a,
|
|
const ptrdiff_t *lda
|
|
);
|
|
|
|
/* Source: dsyr2.f */
|
|
#define dsyr2 FORTRAN_WRAPPER(dsyr2)
|
|
extern void dsyr2(
|
|
const char *uplo,
|
|
const ptrdiff_t *n,
|
|
const double *alpha,
|
|
const double *x,
|
|
const ptrdiff_t *incx,
|
|
const double *y,
|
|
const ptrdiff_t *incy,
|
|
double *a,
|
|
const ptrdiff_t *lda
|
|
);
|
|
|
|
/* Source: dsyr2k.f */
|
|
#define dsyr2k FORTRAN_WRAPPER(dsyr2k)
|
|
extern void dsyr2k(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *k,
|
|
const double *alpha,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
const double *b,
|
|
const ptrdiff_t *ldb,
|
|
const double *beta,
|
|
double *c,
|
|
const ptrdiff_t *ldc
|
|
);
|
|
|
|
/* Source: dsyrk.f */
|
|
#define dsyrk FORTRAN_WRAPPER(dsyrk)
|
|
extern void dsyrk(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *k,
|
|
const double *alpha,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
const double *beta,
|
|
double *c,
|
|
const ptrdiff_t *ldc
|
|
);
|
|
|
|
/* Source: dtbmv.f */
|
|
#define dtbmv FORTRAN_WRAPPER(dtbmv)
|
|
extern void dtbmv(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const char *diag,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *k,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
double *x,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: dtbsv.f */
|
|
#define dtbsv FORTRAN_WRAPPER(dtbsv)
|
|
extern void dtbsv(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const char *diag,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *k,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
double *x,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: dtpmv.f */
|
|
#define dtpmv FORTRAN_WRAPPER(dtpmv)
|
|
extern void dtpmv(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const char *diag,
|
|
const ptrdiff_t *n,
|
|
const double *ap,
|
|
double *x,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: dtpsv.f */
|
|
#define dtpsv FORTRAN_WRAPPER(dtpsv)
|
|
extern void dtpsv(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const char *diag,
|
|
const ptrdiff_t *n,
|
|
const double *ap,
|
|
double *x,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: dtrmm.f */
|
|
#define dtrmm FORTRAN_WRAPPER(dtrmm)
|
|
extern void dtrmm(
|
|
const char *side,
|
|
const char *uplo,
|
|
const char *transa,
|
|
const char *diag,
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const double *alpha,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
double *b,
|
|
const ptrdiff_t *ldb
|
|
);
|
|
|
|
/* Source: dtrmv.f */
|
|
#define dtrmv FORTRAN_WRAPPER(dtrmv)
|
|
extern void dtrmv(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const char *diag,
|
|
const ptrdiff_t *n,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
double *x,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: dtrsm.f */
|
|
#define dtrsm FORTRAN_WRAPPER(dtrsm)
|
|
extern void dtrsm(
|
|
const char *side,
|
|
const char *uplo,
|
|
const char *transa,
|
|
const char *diag,
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const double *alpha,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
double *b,
|
|
const ptrdiff_t *ldb
|
|
);
|
|
|
|
/* Source: dtrsv.f */
|
|
#define dtrsv FORTRAN_WRAPPER(dtrsv)
|
|
extern void dtrsv(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const char *diag,
|
|
const ptrdiff_t *n,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
double *x,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: dzasum.f */
|
|
#define dzasum FORTRAN_WRAPPER(dzasum)
|
|
extern double dzasum(
|
|
const ptrdiff_t *n,
|
|
const double *zx,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: dznrm2.f */
|
|
#define dznrm2 FORTRAN_WRAPPER(dznrm2)
|
|
extern double dznrm2(
|
|
const ptrdiff_t *n,
|
|
const double *x,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: icamax.f */
|
|
#define icamax FORTRAN_WRAPPER(icamax)
|
|
extern ptrdiff_t icamax(
|
|
const ptrdiff_t *n,
|
|
const float *cx,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: idamax.f */
|
|
#define idamax FORTRAN_WRAPPER(idamax)
|
|
extern ptrdiff_t idamax(
|
|
const ptrdiff_t *n,
|
|
const double *dx,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: isamax.f */
|
|
#define isamax FORTRAN_WRAPPER(isamax)
|
|
extern ptrdiff_t isamax(
|
|
const ptrdiff_t *n,
|
|
const float *sx,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: izamax.f */
|
|
#define izamax FORTRAN_WRAPPER(izamax)
|
|
extern ptrdiff_t izamax(
|
|
const ptrdiff_t *n,
|
|
const double *zx,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: lsame.f */
|
|
#define lsame FORTRAN_WRAPPER(lsame)
|
|
extern ptrdiff_t lsame(
|
|
const char *ca,
|
|
const char *cb
|
|
);
|
|
|
|
/* Source: sasum.f */
|
|
#define sasum FORTRAN_WRAPPER(sasum)
|
|
#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
|
|
extern double sasum(
|
|
#else
|
|
extern float sasum(
|
|
#endif
|
|
const ptrdiff_t *n,
|
|
const float *sx,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: saxpy.f */
|
|
#define saxpy FORTRAN_WRAPPER(saxpy)
|
|
extern void saxpy(
|
|
const ptrdiff_t *n,
|
|
const float *sa,
|
|
const float *sx,
|
|
const ptrdiff_t *incx,
|
|
float *sy,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: scasum.f */
|
|
#define scasum FORTRAN_WRAPPER(scasum)
|
|
#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
|
|
extern double scasum(
|
|
#else
|
|
extern float scasum(
|
|
#endif
|
|
const ptrdiff_t *n,
|
|
const float *cx,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: scnrm2.f */
|
|
#define scnrm2 FORTRAN_WRAPPER(scnrm2)
|
|
#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
|
|
extern double scnrm2(
|
|
#else
|
|
extern float scnrm2(
|
|
#endif
|
|
const ptrdiff_t *n,
|
|
const float *x,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: scopy.f */
|
|
#define scopy FORTRAN_WRAPPER(scopy)
|
|
extern void scopy(
|
|
const ptrdiff_t *n,
|
|
const float *sx,
|
|
const ptrdiff_t *incx,
|
|
float *sy,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: sdot.f */
|
|
#define sdot FORTRAN_WRAPPER(sdot)
|
|
#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
|
|
extern double sdot(
|
|
#else
|
|
extern float sdot(
|
|
#endif
|
|
const ptrdiff_t *n,
|
|
const float *sx,
|
|
const ptrdiff_t *incx,
|
|
const float *sy,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: sdsdot.f */
|
|
#define sdsdot FORTRAN_WRAPPER(sdsdot)
|
|
#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
|
|
extern double sdsdot(
|
|
#else
|
|
extern float sdsdot(
|
|
#endif
|
|
const ptrdiff_t *n,
|
|
const float *sb,
|
|
const float *sx,
|
|
const ptrdiff_t *incx,
|
|
const float *sy,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: sgbmv.f */
|
|
#define sgbmv FORTRAN_WRAPPER(sgbmv)
|
|
extern void sgbmv(
|
|
const char *trans,
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *kl,
|
|
const ptrdiff_t *ku,
|
|
const float *alpha,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
const float *x,
|
|
const ptrdiff_t *incx,
|
|
const float *beta,
|
|
float *y,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: sgemm.f */
|
|
#define sgemm FORTRAN_WRAPPER(sgemm)
|
|
extern void sgemm(
|
|
const char *transa,
|
|
const char *transb,
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *k,
|
|
const float *alpha,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
const float *b,
|
|
const ptrdiff_t *ldb,
|
|
const float *beta,
|
|
float *c,
|
|
const ptrdiff_t *ldc
|
|
);
|
|
|
|
/* Source: sgemv.f */
|
|
#define sgemv FORTRAN_WRAPPER(sgemv)
|
|
extern void sgemv(
|
|
const char *trans,
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const float *alpha,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
const float *x,
|
|
const ptrdiff_t *incx,
|
|
const float *beta,
|
|
float *y,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: sger.f */
|
|
#define sger FORTRAN_WRAPPER(sger)
|
|
extern void sger(
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const float *alpha,
|
|
const float *x,
|
|
const ptrdiff_t *incx,
|
|
const float *y,
|
|
const ptrdiff_t *incy,
|
|
float *a,
|
|
const ptrdiff_t *lda
|
|
);
|
|
|
|
/* Source: snrm2.f */
|
|
#define snrm2 FORTRAN_WRAPPER(snrm2)
|
|
#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
|
|
extern double snrm2(
|
|
#else
|
|
extern float snrm2(
|
|
#endif
|
|
const ptrdiff_t *n,
|
|
const float *x,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: srot.f */
|
|
#define srot FORTRAN_WRAPPER(srot)
|
|
extern void srot(
|
|
const ptrdiff_t *n,
|
|
float *sx,
|
|
const ptrdiff_t *incx,
|
|
float *sy,
|
|
const ptrdiff_t *incy,
|
|
const float *c,
|
|
const float *s
|
|
);
|
|
|
|
/* Source: srotg.f */
|
|
#define srotg FORTRAN_WRAPPER(srotg)
|
|
extern void srotg(
|
|
float *sa,
|
|
float *sb,
|
|
float *c,
|
|
float *s
|
|
);
|
|
|
|
/* Source: srotm.f */
|
|
#define srotm FORTRAN_WRAPPER(srotm)
|
|
extern void srotm(
|
|
const ptrdiff_t *n,
|
|
float *sx,
|
|
const ptrdiff_t *incx,
|
|
float *sy,
|
|
const ptrdiff_t *incy,
|
|
const float *sparam
|
|
);
|
|
|
|
/* Source: srotmg.f */
|
|
#define srotmg FORTRAN_WRAPPER(srotmg)
|
|
extern void srotmg(
|
|
float *sd1,
|
|
float *sd2,
|
|
float *sx1,
|
|
const float *sy1,
|
|
float *sparam
|
|
);
|
|
|
|
/* Source: ssbmv.f */
|
|
#define ssbmv FORTRAN_WRAPPER(ssbmv)
|
|
extern void ssbmv(
|
|
const char *uplo,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *k,
|
|
const float *alpha,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
const float *x,
|
|
const ptrdiff_t *incx,
|
|
const float *beta,
|
|
float *y,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: sscal.f */
|
|
#define sscal FORTRAN_WRAPPER(sscal)
|
|
extern void sscal(
|
|
const ptrdiff_t *n,
|
|
const float *sa,
|
|
float *sx,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: sspmv.f */
|
|
#define sspmv FORTRAN_WRAPPER(sspmv)
|
|
extern void sspmv(
|
|
const char *uplo,
|
|
const ptrdiff_t *n,
|
|
const float *alpha,
|
|
const float *ap,
|
|
const float *x,
|
|
const ptrdiff_t *incx,
|
|
const float *beta,
|
|
float *y,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: sspr.f */
|
|
#define sspr FORTRAN_WRAPPER(sspr)
|
|
extern void sspr(
|
|
const char *uplo,
|
|
const ptrdiff_t *n,
|
|
const float *alpha,
|
|
const float *x,
|
|
const ptrdiff_t *incx,
|
|
float *ap
|
|
);
|
|
|
|
/* Source: sspr2.f */
|
|
#define sspr2 FORTRAN_WRAPPER(sspr2)
|
|
extern void sspr2(
|
|
const char *uplo,
|
|
const ptrdiff_t *n,
|
|
const float *alpha,
|
|
const float *x,
|
|
const ptrdiff_t *incx,
|
|
const float *y,
|
|
const ptrdiff_t *incy,
|
|
float *ap
|
|
);
|
|
|
|
/* Source: sswap.f */
|
|
#define sswap FORTRAN_WRAPPER(sswap)
|
|
extern void sswap(
|
|
const ptrdiff_t *n,
|
|
float *sx,
|
|
const ptrdiff_t *incx,
|
|
float *sy,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: ssymm.f */
|
|
#define ssymm FORTRAN_WRAPPER(ssymm)
|
|
extern void ssymm(
|
|
const char *side,
|
|
const char *uplo,
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const float *alpha,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
const float *b,
|
|
const ptrdiff_t *ldb,
|
|
const float *beta,
|
|
float *c,
|
|
const ptrdiff_t *ldc
|
|
);
|
|
|
|
/* Source: ssymv.f */
|
|
#define ssymv FORTRAN_WRAPPER(ssymv)
|
|
extern void ssymv(
|
|
const char *uplo,
|
|
const ptrdiff_t *n,
|
|
const float *alpha,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
const float *x,
|
|
const ptrdiff_t *incx,
|
|
const float *beta,
|
|
float *y,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: ssyr.f */
|
|
#define ssyr FORTRAN_WRAPPER(ssyr)
|
|
extern void ssyr(
|
|
const char *uplo,
|
|
const ptrdiff_t *n,
|
|
const float *alpha,
|
|
const float *x,
|
|
const ptrdiff_t *incx,
|
|
float *a,
|
|
const ptrdiff_t *lda
|
|
);
|
|
|
|
/* Source: ssyr2.f */
|
|
#define ssyr2 FORTRAN_WRAPPER(ssyr2)
|
|
extern void ssyr2(
|
|
const char *uplo,
|
|
const ptrdiff_t *n,
|
|
const float *alpha,
|
|
const float *x,
|
|
const ptrdiff_t *incx,
|
|
const float *y,
|
|
const ptrdiff_t *incy,
|
|
float *a,
|
|
const ptrdiff_t *lda
|
|
);
|
|
|
|
/* Source: ssyr2k.f */
|
|
#define ssyr2k FORTRAN_WRAPPER(ssyr2k)
|
|
extern void ssyr2k(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *k,
|
|
const float *alpha,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
const float *b,
|
|
const ptrdiff_t *ldb,
|
|
const float *beta,
|
|
float *c,
|
|
const ptrdiff_t *ldc
|
|
);
|
|
|
|
/* Source: ssyrk.f */
|
|
#define ssyrk FORTRAN_WRAPPER(ssyrk)
|
|
extern void ssyrk(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *k,
|
|
const float *alpha,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
const float *beta,
|
|
float *c,
|
|
const ptrdiff_t *ldc
|
|
);
|
|
|
|
/* Source: stbmv.f */
|
|
#define stbmv FORTRAN_WRAPPER(stbmv)
|
|
extern void stbmv(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const char *diag,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *k,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
float *x,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: stbsv.f */
|
|
#define stbsv FORTRAN_WRAPPER(stbsv)
|
|
extern void stbsv(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const char *diag,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *k,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
float *x,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: stpmv.f */
|
|
#define stpmv FORTRAN_WRAPPER(stpmv)
|
|
extern void stpmv(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const char *diag,
|
|
const ptrdiff_t *n,
|
|
const float *ap,
|
|
float *x,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: stpsv.f */
|
|
#define stpsv FORTRAN_WRAPPER(stpsv)
|
|
extern void stpsv(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const char *diag,
|
|
const ptrdiff_t *n,
|
|
const float *ap,
|
|
float *x,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: strmm.f */
|
|
#define strmm FORTRAN_WRAPPER(strmm)
|
|
extern void strmm(
|
|
const char *side,
|
|
const char *uplo,
|
|
const char *transa,
|
|
const char *diag,
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const float *alpha,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
float *b,
|
|
const ptrdiff_t *ldb
|
|
);
|
|
|
|
/* Source: strmv.f */
|
|
#define strmv FORTRAN_WRAPPER(strmv)
|
|
extern void strmv(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const char *diag,
|
|
const ptrdiff_t *n,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
float *x,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: strsm.f */
|
|
#define strsm FORTRAN_WRAPPER(strsm)
|
|
extern void strsm(
|
|
const char *side,
|
|
const char *uplo,
|
|
const char *transa,
|
|
const char *diag,
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const float *alpha,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
float *b,
|
|
const ptrdiff_t *ldb
|
|
);
|
|
|
|
/* Source: strsv.f */
|
|
#define strsv FORTRAN_WRAPPER(strsv)
|
|
extern void strsv(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const char *diag,
|
|
const ptrdiff_t *n,
|
|
const float *a,
|
|
const ptrdiff_t *lda,
|
|
float *x,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: xerbla.f */
|
|
#define xerbla FORTRAN_WRAPPER(xerbla)
|
|
extern void xerbla(
|
|
const char *srname,
|
|
const ptrdiff_t *info,
|
|
const ptrdiff_t srname_len
|
|
);
|
|
|
|
/* Source: xerbla_array.f */
|
|
#define xerbla_array FORTRAN_WRAPPER(xerbla_array)
|
|
extern void xerbla_array(
|
|
const char *srname_array,
|
|
const ptrdiff_t *srname_len,
|
|
const ptrdiff_t *info
|
|
);
|
|
|
|
/* Source: zaxpy.f */
|
|
#define zaxpy FORTRAN_WRAPPER(zaxpy)
|
|
extern void zaxpy(
|
|
const ptrdiff_t *n,
|
|
const double *za,
|
|
const double *zx,
|
|
const ptrdiff_t *incx,
|
|
double *zy,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: zcopy.f */
|
|
#define zcopy FORTRAN_WRAPPER(zcopy)
|
|
extern void zcopy(
|
|
const ptrdiff_t *n,
|
|
const double *zx,
|
|
const ptrdiff_t *incx,
|
|
double *zy,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: zdotc.f */
|
|
#define zdotc FORTRAN_WRAPPER(zdotc)
|
|
#ifndef FORTRAN_COMPLEX_FUNCTIONS_RETURN_VOID
|
|
extern doublecomplex zdotc(
|
|
#else
|
|
extern void zdotc(
|
|
doublecomplex* retval,
|
|
#endif
|
|
const ptrdiff_t *n,
|
|
const double *zx,
|
|
const ptrdiff_t *incx,
|
|
const double *zy,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: zdotu.f */
|
|
#define zdotu FORTRAN_WRAPPER(zdotu)
|
|
#ifndef FORTRAN_COMPLEX_FUNCTIONS_RETURN_VOID
|
|
extern doublecomplex zdotu(
|
|
#else
|
|
extern void zdotu(
|
|
doublecomplex* retval,
|
|
#endif
|
|
const ptrdiff_t *n,
|
|
const double *zx,
|
|
const ptrdiff_t *incx,
|
|
const double *zy,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: zdrot.f */
|
|
#define zdrot FORTRAN_WRAPPER(zdrot)
|
|
extern void zdrot(
|
|
const ptrdiff_t *n,
|
|
double *cx,
|
|
const ptrdiff_t *incx,
|
|
double *cy,
|
|
const ptrdiff_t *incy,
|
|
const double *c,
|
|
const double *s
|
|
);
|
|
|
|
/* Source: zdscal.f */
|
|
#define zdscal FORTRAN_WRAPPER(zdscal)
|
|
extern void zdscal(
|
|
const ptrdiff_t *n,
|
|
const double *da,
|
|
double *zx,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: zgbmv.f */
|
|
#define zgbmv FORTRAN_WRAPPER(zgbmv)
|
|
extern void zgbmv(
|
|
const char *trans,
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *kl,
|
|
const ptrdiff_t *ku,
|
|
const double *alpha,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
const double *x,
|
|
const ptrdiff_t *incx,
|
|
const double *beta,
|
|
double *y,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: zgemm.f */
|
|
#define zgemm FORTRAN_WRAPPER(zgemm)
|
|
extern void zgemm(
|
|
const char *transa,
|
|
const char *transb,
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *k,
|
|
const double *alpha,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
const double *b,
|
|
const ptrdiff_t *ldb,
|
|
const double *beta,
|
|
double *c,
|
|
const ptrdiff_t *ldc
|
|
);
|
|
|
|
/* Source: zgemv.f */
|
|
#define zgemv FORTRAN_WRAPPER(zgemv)
|
|
extern void zgemv(
|
|
const char *trans,
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const double *alpha,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
const double *x,
|
|
const ptrdiff_t *incx,
|
|
const double *beta,
|
|
double *y,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: zgerc.f */
|
|
#define zgerc FORTRAN_WRAPPER(zgerc)
|
|
extern void zgerc(
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const double *alpha,
|
|
const double *x,
|
|
const ptrdiff_t *incx,
|
|
const double *y,
|
|
const ptrdiff_t *incy,
|
|
double *a,
|
|
const ptrdiff_t *lda
|
|
);
|
|
|
|
/* Source: zgeru.f */
|
|
#define zgeru FORTRAN_WRAPPER(zgeru)
|
|
extern void zgeru(
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const double *alpha,
|
|
const double *x,
|
|
const ptrdiff_t *incx,
|
|
const double *y,
|
|
const ptrdiff_t *incy,
|
|
double *a,
|
|
const ptrdiff_t *lda
|
|
);
|
|
|
|
/* Source: zhbmv.f */
|
|
#define zhbmv FORTRAN_WRAPPER(zhbmv)
|
|
extern void zhbmv(
|
|
const char *uplo,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *k,
|
|
const double *alpha,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
const double *x,
|
|
const ptrdiff_t *incx,
|
|
const double *beta,
|
|
double *y,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: zhemm.f */
|
|
#define zhemm FORTRAN_WRAPPER(zhemm)
|
|
extern void zhemm(
|
|
const char *side,
|
|
const char *uplo,
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const double *alpha,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
const double *b,
|
|
const ptrdiff_t *ldb,
|
|
const double *beta,
|
|
double *c,
|
|
const ptrdiff_t *ldc
|
|
);
|
|
|
|
/* Source: zhemv.f */
|
|
#define zhemv FORTRAN_WRAPPER(zhemv)
|
|
extern void zhemv(
|
|
const char *uplo,
|
|
const ptrdiff_t *n,
|
|
const double *alpha,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
const double *x,
|
|
const ptrdiff_t *incx,
|
|
const double *beta,
|
|
double *y,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: zher.f */
|
|
#define zher FORTRAN_WRAPPER(zher)
|
|
extern void zher(
|
|
const char *uplo,
|
|
const ptrdiff_t *n,
|
|
const double *alpha,
|
|
const double *x,
|
|
const ptrdiff_t *incx,
|
|
double *a,
|
|
const ptrdiff_t *lda
|
|
);
|
|
|
|
/* Source: zher2.f */
|
|
#define zher2 FORTRAN_WRAPPER(zher2)
|
|
extern void zher2(
|
|
const char *uplo,
|
|
const ptrdiff_t *n,
|
|
const double *alpha,
|
|
const double *x,
|
|
const ptrdiff_t *incx,
|
|
const double *y,
|
|
const ptrdiff_t *incy,
|
|
double *a,
|
|
const ptrdiff_t *lda
|
|
);
|
|
|
|
/* Source: zher2k.f */
|
|
#define zher2k FORTRAN_WRAPPER(zher2k)
|
|
extern void zher2k(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *k,
|
|
const double *alpha,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
const double *b,
|
|
const ptrdiff_t *ldb,
|
|
const double *beta,
|
|
double *c,
|
|
const ptrdiff_t *ldc
|
|
);
|
|
|
|
/* Source: zherk.f */
|
|
#define zherk FORTRAN_WRAPPER(zherk)
|
|
extern void zherk(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *k,
|
|
const double *alpha,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
const double *beta,
|
|
double *c,
|
|
const ptrdiff_t *ldc
|
|
);
|
|
|
|
/* Source: zhpmv.f */
|
|
#define zhpmv FORTRAN_WRAPPER(zhpmv)
|
|
extern void zhpmv(
|
|
const char *uplo,
|
|
const ptrdiff_t *n,
|
|
const double *alpha,
|
|
const double *ap,
|
|
const double *x,
|
|
const ptrdiff_t *incx,
|
|
const double *beta,
|
|
double *y,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: zhpr.f */
|
|
#define zhpr FORTRAN_WRAPPER(zhpr)
|
|
extern void zhpr(
|
|
const char *uplo,
|
|
const ptrdiff_t *n,
|
|
const double *alpha,
|
|
const double *x,
|
|
const ptrdiff_t *incx,
|
|
double *ap
|
|
);
|
|
|
|
/* Source: zhpr2.f */
|
|
#define zhpr2 FORTRAN_WRAPPER(zhpr2)
|
|
extern void zhpr2(
|
|
const char *uplo,
|
|
const ptrdiff_t *n,
|
|
const double *alpha,
|
|
const double *x,
|
|
const ptrdiff_t *incx,
|
|
const double *y,
|
|
const ptrdiff_t *incy,
|
|
double *ap
|
|
);
|
|
|
|
/* Source: zrotg.f */
|
|
#define zrotg FORTRAN_WRAPPER(zrotg)
|
|
extern void zrotg(
|
|
double *ca,
|
|
const double *cb,
|
|
double *c,
|
|
double *s
|
|
);
|
|
|
|
/* Source: zscal.f */
|
|
#define zscal FORTRAN_WRAPPER(zscal)
|
|
extern void zscal(
|
|
const ptrdiff_t *n,
|
|
const double *za,
|
|
double *zx,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: zswap.f */
|
|
#define zswap FORTRAN_WRAPPER(zswap)
|
|
extern void zswap(
|
|
const ptrdiff_t *n,
|
|
double *zx,
|
|
const ptrdiff_t *incx,
|
|
double *zy,
|
|
const ptrdiff_t *incy
|
|
);
|
|
|
|
/* Source: zsymm.f */
|
|
#define zsymm FORTRAN_WRAPPER(zsymm)
|
|
extern void zsymm(
|
|
const char *side,
|
|
const char *uplo,
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const double *alpha,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
const double *b,
|
|
const ptrdiff_t *ldb,
|
|
const double *beta,
|
|
double *c,
|
|
const ptrdiff_t *ldc
|
|
);
|
|
|
|
/* Source: zsyr2k.f */
|
|
#define zsyr2k FORTRAN_WRAPPER(zsyr2k)
|
|
extern void zsyr2k(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *k,
|
|
const double *alpha,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
const double *b,
|
|
const ptrdiff_t *ldb,
|
|
const double *beta,
|
|
double *c,
|
|
const ptrdiff_t *ldc
|
|
);
|
|
|
|
/* Source: zsyrk.f */
|
|
#define zsyrk FORTRAN_WRAPPER(zsyrk)
|
|
extern void zsyrk(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *k,
|
|
const double *alpha,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
const double *beta,
|
|
double *c,
|
|
const ptrdiff_t *ldc
|
|
);
|
|
|
|
/* Source: ztbmv.f */
|
|
#define ztbmv FORTRAN_WRAPPER(ztbmv)
|
|
extern void ztbmv(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const char *diag,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *k,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
double *x,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: ztbsv.f */
|
|
#define ztbsv FORTRAN_WRAPPER(ztbsv)
|
|
extern void ztbsv(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const char *diag,
|
|
const ptrdiff_t *n,
|
|
const ptrdiff_t *k,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
double *x,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: ztpmv.f */
|
|
#define ztpmv FORTRAN_WRAPPER(ztpmv)
|
|
extern void ztpmv(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const char *diag,
|
|
const ptrdiff_t *n,
|
|
const double *ap,
|
|
double *x,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: ztpsv.f */
|
|
#define ztpsv FORTRAN_WRAPPER(ztpsv)
|
|
extern void ztpsv(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const char *diag,
|
|
const ptrdiff_t *n,
|
|
const double *ap,
|
|
double *x,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: ztrmm.f */
|
|
#define ztrmm FORTRAN_WRAPPER(ztrmm)
|
|
extern void ztrmm(
|
|
const char *side,
|
|
const char *uplo,
|
|
const char *transa,
|
|
const char *diag,
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const double *alpha,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
double *b,
|
|
const ptrdiff_t *ldb
|
|
);
|
|
|
|
/* Source: ztrmv.f */
|
|
#define ztrmv FORTRAN_WRAPPER(ztrmv)
|
|
extern void ztrmv(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const char *diag,
|
|
const ptrdiff_t *n,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
double *x,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
/* Source: ztrsm.f */
|
|
#define ztrsm FORTRAN_WRAPPER(ztrsm)
|
|
extern void ztrsm(
|
|
const char *side,
|
|
const char *uplo,
|
|
const char *transa,
|
|
const char *diag,
|
|
const ptrdiff_t *m,
|
|
const ptrdiff_t *n,
|
|
const double *alpha,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
double *b,
|
|
const ptrdiff_t *ldb
|
|
);
|
|
|
|
/* Source: ztrsv.f */
|
|
#define ztrsv FORTRAN_WRAPPER(ztrsv)
|
|
extern void ztrsv(
|
|
const char *uplo,
|
|
const char *trans,
|
|
const char *diag,
|
|
const ptrdiff_t *n,
|
|
const double *a,
|
|
const ptrdiff_t *lda,
|
|
double *x,
|
|
const ptrdiff_t *incx
|
|
);
|
|
|
|
#ifdef __cplusplus
|
|
} /* extern "C" */
|
|
#endif
|
|
|
|
#endif /* refblas_h */
|