/usr/include/sc_blas.h is in libp4est-dev 1.1-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 | /*
This file is part of the SC Library.
The SC Library provides support for parallel scientific applications.
Copyright (C) 2010 The University of Texas System
The SC Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
The SC Library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with the SC Library; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA.
*/
#ifndef SC_BLAS_H
#define SC_BLAS_H
#include <sc.h>
SC_EXTERN_C_BEGIN;
typedef int sc_bint_t; /* Integer type for all of the blas calls */
typedef unsigned int sc_buint_t; /* Unsigned Integer type for blas */
typedef enum sc_trans
{
SC_NO_TRANS,
SC_TRANS,
SC_TRANS_ANCHOR
}
sc_trans_t;
typedef enum sc_uplo
{
SC_UPPER,
SC_LOWER,
SC_UPLO_ANCHOR
}
sc_uplo_t;
typedef enum sc_cmach
{
SC_CMACH_EPS, /* relative machine precision */
SC_CMACH_SFMIN, /* safe minimum, such that 1/sfmin does not
* overflow
*/
SC_CMACH_BASE, /* base of the machine */
SC_CMACH_PREC, /* eps*base */
SC_CMACH_T, /* number of (base) digits in the mantissa */
SC_CMACH_RND, /* 1.0 when rounding occurs in addition,
* 0.0 otherwise
*/
SC_CMACH_EMIN, /* minimum exponent before (gradual)
* underflow
*/
SC_CMACH_RMIN, /* underflow threshold - base**(emin-1) */
SC_CMACH_EMAX, /* largest exponent before overflow */
SC_CMACH_RMAX, /* overflow threshold - (base**emax)*(1-eps) */
SC_CMACH_ANCHOR
}
sc_cmach_t;
extern const char sc_transchar[];
extern const char sc_antitranschar[]; /* does not work for complex */
extern const char sc_uplochar[];
extern const char sc_cmachchar[];
#ifdef SC_WITH_BLAS
#ifndef SC_F77_FUNC
#define SC_F77_FUNC(small,CAPS) small ## _
#endif
#define SC_BLAS_DLAMCH SC_F77_FUNC(dlamch,DLAMCH)
#define SC_BLAS_DSCAL SC_F77_FUNC(dscal,DSCAL)
#define SC_BLAS_DCOPY SC_F77_FUNC(dcopy,DCOPY)
#define SC_BLAS_DAXPY SC_F77_FUNC(daxpy,DAXPY)
#define SC_BLAS_DDOT SC_F77_FUNC(ddot,DDOT)
#define SC_BLAS_DGEMV SC_F77_FUNC(dgemv,DGEMV)
#define SC_BLAS_DGEMM SC_F77_FUNC(dgemm,DGEMM)
double SC_BLAS_DLAMCH (const char *cmach);
void SC_BLAS_DSCAL (const sc_bint_t * n, const double *alpha,
double *X, const sc_bint_t * incx);
void SC_BLAS_DCOPY (const sc_bint_t * n,
const double *X, const sc_bint_t * incx,
double *Y, const sc_bint_t * incy);
void SC_BLAS_DAXPY (const sc_bint_t * n, const double *alpha,
const double *X, const sc_bint_t * incx,
double *Y, const sc_bint_t * incy);
double SC_BLAS_DDOT (const sc_bint_t * n, const double *X,
const sc_bint_t * incx, const double *Y,
const sc_bint_t * incy);
void SC_BLAS_DGEMV (const char *transa, const sc_bint_t * m,
const sc_bint_t * n, const double *alpha,
const double *a, const sc_bint_t * lda,
const double *x, const sc_bint_t * incx,
const double *beta, double *y,
const sc_bint_t * incy);
void SC_BLAS_DGEMM (const char *transa, const char *transb,
const sc_bint_t * m, const sc_bint_t * n,
const sc_bint_t * k, const double *alpha,
const double *a, const sc_bint_t * lda,
const double *b, const sc_bint_t * ldb,
const double *beta, double *c,
const sc_bint_t * ldc);
#else /* !SC_WITH_BLAS */
#define SC_BLAS_DLAMCH (double) sc_blas_nonimplemented
#define SC_BLAS_DSCAL (void) sc_blas_nonimplemented
#define SC_BLAS_DCOPY (void) sc_blas_nonimplemented
#define SC_BLAS_DAXPY (void) sc_blas_nonimplemented
#define SC_BLAS_DDOT (double) sc_blas_nonimplemented
#define SC_BLAS_DGEMM (void) sc_blas_nonimplemented
#define SC_BLAS_DGEMV (void) sc_blas_nonimplemented
int sc_blas_nonimplemented ();
#endif
SC_EXTERN_C_END;
#endif /* !SC_BLAS_H */
|