/usr/include/sundials/sundials_lapack.h is in libsundials-serial-dev 2.5.0-3+b3.
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 | /*
* -----------------------------------------------------------------
* $Revision: 1.6 $
* $Date: 2009/02/17 02:39:26 $
* -----------------------------------------------------------------
* Programmer: Radu Serban @ LLNL
* -----------------------------------------------------------------
* Copyright (c) 2006, The Regents of the University of California.
* Produced at the Lawrence Livermore National Laboratory.
* All rights reserved.
* For details, see the LICENSE file.
* -----------------------------------------------------------------
* 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
|