/usr/include/sundials/sundials_lapack.h is in libsundials-dev 2.7.0+dfsg-2build1.
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 | /*
* -----------------------------------------------------------------
* $Revision: 4075 $
* $Date: 2014-04-24 10:46:58 -0700 (Thu, 24 Apr 2014) $
* -----------------------------------------------------------------
* Programmer: Radu Serban @ LLNL
* -----------------------------------------------------------------
* LLNS Copyright Start
* Copyright (c) 2014, Lawrence Livermore National Security
* This work was performed under the auspices of the U.S. Department
* of Energy by Lawrence Livermore National Laboratory in part under
* Contract W-7405-Eng-48 and in part under Contract DE-AC52-07NA27344.
* Produced at the Lawrence Livermore National Laboratory.
* All rights reserved.
* For details, see the LICENSE file.
* LLNS Copyright End
* -----------------------------------------------------------------
* This is the header file for a generic package of direct matrix
* operations for use with BLAS/LAPACK.
* -----------------------------------------------------------------
*/
#ifndef _SUNDIALS_LAPACK_H
#define _SUNDIALS_LAPACK_H
#ifdef __cplusplus /* wrapper to enable C++ usage */
extern "C" {
#endif
/*
* ==================================================================
* Blas and Lapack functions
* ==================================================================
*/
#if defined(SUNDIALS_F77_FUNC)
#define dcopy_f77 SUNDIALS_F77_FUNC(dcopy, DCOPY)
#define dscal_f77 SUNDIALS_F77_FUNC(dscal, DSCAL)
#define dgemv_f77 SUNDIALS_F77_FUNC(dgemv, DGEMV)
#define dtrsv_f77 SUNDIALS_F77_FUNC(dtrsv, DTRSV)
#define dsyrk_f77 SUNDIALS_F77_FUNC(dsyrk, DSKYR)
#define dgbtrf_f77 SUNDIALS_F77_FUNC(dgbtrf, DGBTRF)
#define dgbtrs_f77 SUNDIALS_F77_FUNC(dgbtrs, DGBTRS)
#define dgetrf_f77 SUNDIALS_F77_FUNC(dgetrf, DGETRF)
#define dgetrs_f77 SUNDIALS_F77_FUNC(dgetrs, DGETRS)
#define dgeqp3_f77 SUNDIALS_F77_FUNC(dgeqp3, DGEQP3)
#define dgeqrf_f77 SUNDIALS_F77_FUNC(dgeqrf, DGEQRF)
#define dormqr_f77 SUNDIALS_F77_FUNC(dormqr, DORMQR)
#define dpotrf_f77 SUNDIALS_F77_FUNC(dpotrf, DPOTRF)
#define dpotrs_f77 SUNDIALS_F77_FUNC(dpotrs, DPOTRS)
#else
#define dcopy_f77 dcopy_
#define dscal_f77 dscal_
#define dgemv_f77 dgemv_
#define dtrsv_f77 dtrsv_
#define dsyrk_f77 dsyrk_
#define dgbtrf_f77 dgbtrf_
#define dgbtrs_f77 dgbtrs_
#define dgeqp3_f77 dgeqp3_
#define dgeqrf_f77 dgeqrf_
#define dgetrf_f77 dgetrf_
#define dgetrs_f77 dgetrs_
#define dormqr_f77 dormqr_
#define dpotrf_f77 dpotrf_
#define dpotrs_f77 dpotrs_
#endif
/* Level-1 BLAS */
extern void dcopy_f77(int *n, const double *x, const int *inc_x, double *y, const int *inc_y);
extern void dscal_f77(int *n, const double *alpha, double *x, const int *inc_x);
/* Level-2 BLAS */
extern void dgemv_f77(const char *trans, int *m, int *n, const double *alpha, const double *a,
int *lda, const double *x, int *inc_x, const double *beta, double *y, int *inc_y,
int len_trans);
extern void dtrsv_f77(const char *uplo, const char *trans, const char *diag, const int *n,
const double *a, const int *lda, double *x, const int *inc_x,
int len_uplo, int len_trans, int len_diag);
/* Level-3 BLAS */
extern void dsyrk_f77(const char *uplo, const char *trans, const int *n, const int *k,
const double *alpha, const double *a, const int *lda, const double *beta,
const double *c, const int *ldc, int len_uplo, int len_trans);
/* LAPACK */
extern void dgbtrf_f77(const int *m, const int *n, const int *kl, const int *ku,
double *ab, int *ldab, int *ipiv, int *info);
extern void dgbtrs_f77(const char *trans, const int *n, const int *kl, const int *ku, const int *nrhs,
double *ab, const int *ldab, int *ipiv, double *b, const int *ldb,
int *info, int len_trans);
extern void dgeqp3_f77(const int *m, const int *n, double *a, const int *lda, int *jpvt, double *tau,
double *work, const int *lwork, int *info);
extern void dgeqrf_f77(const int *m, const int *n, double *a, const int *lda, double *tau, double *work,
const int *lwork, int *info);
extern void dgetrf_f77(const int *m, const int *n, double *a, int *lda, int *ipiv, int *info);
extern void dgetrs_f77(const char *trans, const int *n, const int *nrhs, double *a, const int *lda,
int *ipiv, double *b, const int *ldb, int *info, int len_trans);
extern void dormqr_f77(const char *side, const char *trans, const int *m, const int *n, const int *k,
double *a, const int *lda, double *tau, double *c, const int *ldc,
double *work, const int *lwork, int *info, int len_side, int len_trans);
extern void dpotrf_f77(const char *uplo, const int *n, double *a, int *lda, int *info, int len_uplo);
extern void dpotrs_f77(const char *uplo, const int *n, const int *nrhs, double *a, const int *lda,
double *b, const int *ldb, int * info, int len_uplo);
#ifdef __cplusplus
}
#endif
#endif
|