/usr/include/hypre/_hypre_lapack.h is in libhypre-dev 2.13.0-2.
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 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 | /*BHEADER**********************************************************************
* Copyright (c) 2008, Lawrence Livermore National Security, LLC.
* Produced at the Lawrence Livermore National Laboratory.
* This file is part of HYPRE. See file COPYRIGHT for details.
*
* HYPRE 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) version 2.1 dated February 1999.
*
* $Revision$
***********************************************************************EHEADER*/
/******************************************************************************
*
* Header file for HYPRE LAPACK
*
*****************************************************************************/
#ifndef HYPRE_LAPACK_H
#define HYPRE_LAPACK_H
#include "_hypre_utilities.h"
#include "fortran.h"
#ifdef __cplusplus
extern "C" {
#endif
/*--------------------------------------------------------------------------
* Change all 'hypre_' names based on using HYPRE or external library
*--------------------------------------------------------------------------*/
#ifndef HYPRE_USING_HYPRE_LAPACK
#define hypre_dbdsqr hypre_F90_NAME_LAPACK(dbdsqr,DBDSQR)
#define hypre_dgebd2 hypre_F90_NAME_LAPACK(dgebd2,DGEBD2)
#define hypre_dgebrd hypre_F90_NAME_LAPACK(dgebrd,DGEBRD)
#define hypre_dgelq2 hypre_F90_NAME_LAPACK(dgelq2,DGELQ2)
#define hypre_dgelqf hypre_F90_NAME_LAPACK(dgelqf,DGELQF)
#define hypre_dgels hypre_F90_NAME_LAPACK(dgels ,DGELS )
#define hypre_dgeqr2 hypre_F90_NAME_LAPACK(dgeqr2,DGEQR2)
#define hypre_dgeqrf hypre_F90_NAME_LAPACK(dgeqrf,DGEQRF)
#define hypre_dgesvd hypre_F90_NAME_LAPACK(dgesvd,DGESVD)
#define hypre_dgetf2 hypre_F90_NAME_LAPACK(dgetf2,DGETF2)
#define hypre_dgetrf hypre_F90_NAME_LAPACK(dgetrf,DGETRF)
#define hypre_dgetrs hypre_F90_NAME_LAPACK(dgetrs,DGETRS)
#define hypre_dlasq1 hypre_F90_NAME_LAPACK(dlasq1,DLASQ1)
#define hypre_dlasq2 hypre_F90_NAME_LAPACK(dlasq2,DLASQ2)
#define hypre_dlasrt hypre_F90_NAME_LAPACK(dlasrt,DLASRT)
#define hypre_dorg2l hypre_F90_NAME_LAPACK(dorg2l,DORG2L)
#define hypre_dorg2r hypre_F90_NAME_LAPACK(dorg2r,DORG2R)
#define hypre_dorgbr hypre_F90_NAME_LAPACK(dorgbr,DORGBR)
#define hypre_dorgl2 hypre_F90_NAME_LAPACK(dorgl2,DORGL2)
#define hypre_dorglq hypre_F90_NAME_LAPACK(dorglq,DORGLQ)
#define hypre_dorgql hypre_F90_NAME_LAPACK(dorgql,DORGQL)
#define hypre_dorgqr hypre_F90_NAME_LAPACK(dorgqr,DORGQR)
#define hypre_dorgtr hypre_F90_NAME_LAPACK(dorgtr,DORGTR)
#define hypre_dorm2r hypre_F90_NAME_LAPACK(dorm2r,DORM2R)
#define hypre_dormbr hypre_F90_NAME_LAPACK(dormbr,DORMBR)
#define hypre_dorml2 hypre_F90_NAME_LAPACK(dorml2,DORML2)
#define hypre_dormlq hypre_F90_NAME_LAPACK(dormlq,DORMLQ)
#define hypre_dormqr hypre_F90_NAME_LAPACK(dormqr,DORMQR)
#define hypre_dpotf2 hypre_F90_NAME_LAPACK(dpotf2,DPOTF2)
#define hypre_dpotrf hypre_F90_NAME_LAPACK(dpotrf,DPOTRF)
#define hypre_dpotrs hypre_F90_NAME_LAPACK(dpotrs,DPOTRS)
#define hypre_dsteqr hypre_F90_NAME_LAPACK(dsteqr,DSTEQR)
#define hypre_dsterf hypre_F90_NAME_LAPACK(dsterf,DSTERF)
#define hypre_dsyev hypre_F90_NAME_LAPACK(dsyev ,DSYEV )
#define hypre_dsygs2 hypre_F90_NAME_LAPACK(dsygs2,DSYGS2)
#define hypre_dsygst hypre_F90_NAME_LAPACK(dsygst,DSYGST)
#define hypre_dsygv hypre_F90_NAME_LAPACK(dsygv ,DSYGV )
#define hypre_dsytd2 hypre_F90_NAME_LAPACK(dsytd2,DSYTD2)
#define hypre_dsytrd hypre_F90_NAME_LAPACK(dsytrd,DSYTRD)
#endif
/*--------------------------------------------------------------------------
* Prototypes
*--------------------------------------------------------------------------*/
/* dbdsqr.c */
HYPRE_Int hypre_dbdsqr (const char *uplo , HYPRE_Int *n , HYPRE_Int *ncvt , HYPRE_Int *nru , HYPRE_Int *ncc , HYPRE_Real *d__ , HYPRE_Real *e , HYPRE_Real *vt , HYPRE_Int *ldvt , HYPRE_Real *u , HYPRE_Int *ldu , HYPRE_Real *c__ , HYPRE_Int *ldc , HYPRE_Real *work , HYPRE_Int *info );
/* dgebd2.c */
HYPRE_Int hypre_dgebd2 ( HYPRE_Int *m , HYPRE_Int *n , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Real *d__ , HYPRE_Real *e , HYPRE_Real *tauq , HYPRE_Real *taup , HYPRE_Real *work , HYPRE_Int *info );
/* dgebrd.c */
HYPRE_Int hypre_dgebrd ( HYPRE_Int *m , HYPRE_Int *n , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Real *d__ , HYPRE_Real *e , HYPRE_Real *tauq , HYPRE_Real *taup , HYPRE_Real *work , HYPRE_Int *lwork , HYPRE_Int *info );
/* dgelq2.c */
HYPRE_Int hypre_dgelq2 ( HYPRE_Int *m , HYPRE_Int *n , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Real *tau , HYPRE_Real *work , HYPRE_Int *info );
/* dgelqf.c */
HYPRE_Int hypre_dgelqf ( HYPRE_Int *m , HYPRE_Int *n , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Real *tau , HYPRE_Real *work , HYPRE_Int *lwork , HYPRE_Int *info );
/* dgels.c */
HYPRE_Int hypre_dgels ( char *trans , HYPRE_Int *m , HYPRE_Int *n , HYPRE_Int *nrhs , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Real *b , HYPRE_Int *ldb , HYPRE_Real *work , HYPRE_Int *lwork , HYPRE_Int *info );
/* dgeqr2.c */
HYPRE_Int hypre_dgeqr2 ( HYPRE_Int *m , HYPRE_Int *n , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Real *tau , HYPRE_Real *work , HYPRE_Int *info );
/* dgeqrf.c */
HYPRE_Int hypre_dgeqrf ( HYPRE_Int *m , HYPRE_Int *n , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Real *tau , HYPRE_Real *work , HYPRE_Int *lwork , HYPRE_Int *info );
/* dgesvd.c */
HYPRE_Int hypre_dgesvd ( char *jobu , char *jobvt , HYPRE_Int *m , HYPRE_Int *n , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Real *s , HYPRE_Real *u , HYPRE_Int *ldu , HYPRE_Real *vt , HYPRE_Int *ldvt , HYPRE_Real *work , HYPRE_Int *lwork , HYPRE_Int *info );
/* dgetf2.c */
HYPRE_Int hypre_dgetf2 ( HYPRE_Int *m , HYPRE_Int *n , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Int *ipiv , HYPRE_Int *info );
/* dgetrf.c */
HYPRE_Int hypre_dgetrf ( HYPRE_Int *m , HYPRE_Int *n , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Int *ipiv , HYPRE_Int *info );
/* dgetrs.c */
HYPRE_Int hypre_dgetrs ( const char *trans , HYPRE_Int *n , HYPRE_Int *nrhs , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Int *ipiv , HYPRE_Real *b , HYPRE_Int *ldb , HYPRE_Int *info );
/* dlasq1.c */
HYPRE_Int hypre_dlasq1 ( HYPRE_Int *n , HYPRE_Real *d__ , HYPRE_Real *e , HYPRE_Real *work , HYPRE_Int *info );
/* dlasq2.c */
HYPRE_Int hypre_dlasq2 ( HYPRE_Int *n , HYPRE_Real *z__ , HYPRE_Int *info );
/* dlasrt.c */
HYPRE_Int hypre_dlasrt (const char *id , HYPRE_Int *n , HYPRE_Real *d__ , HYPRE_Int *info );
/* dorg2l.c */
HYPRE_Int hypre_dorg2l ( HYPRE_Int *m , HYPRE_Int *n , HYPRE_Int *k , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Real *tau , HYPRE_Real *work , HYPRE_Int *info );
/* dorg2r.c */
HYPRE_Int hypre_dorg2r ( HYPRE_Int *m , HYPRE_Int *n , HYPRE_Int *k , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Real *tau , HYPRE_Real *work , HYPRE_Int *info );
/* dorgbr.c */
HYPRE_Int hypre_dorgbr (const char *vect , HYPRE_Int *m , HYPRE_Int *n , HYPRE_Int *k , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Real *tau , HYPRE_Real *work , HYPRE_Int *lwork , HYPRE_Int *info );
/* dorgl2.c */
HYPRE_Int hypre_dorgl2 ( HYPRE_Int *m , HYPRE_Int *n , HYPRE_Int *k , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Real *tau , HYPRE_Real *work , HYPRE_Int *info );
/* dorglq.c */
HYPRE_Int hypre_dorglq ( HYPRE_Int *m , HYPRE_Int *n , HYPRE_Int *k , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Real *tau , HYPRE_Real *work , HYPRE_Int *lwork , HYPRE_Int *info );
/* dorgql.c */
HYPRE_Int hypre_dorgql ( HYPRE_Int *m , HYPRE_Int *n , HYPRE_Int *k , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Real *tau , HYPRE_Real *work , HYPRE_Int *lwork , HYPRE_Int *info );
/* dorgqr.c */
HYPRE_Int hypre_dorgqr ( HYPRE_Int *m , HYPRE_Int *n , HYPRE_Int *k , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Real *tau , HYPRE_Real *work , HYPRE_Int *lwork , HYPRE_Int *info );
/* dorgtr.c */
HYPRE_Int hypre_dorgtr (const char *uplo , HYPRE_Int *n , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Real *tau , HYPRE_Real *work , HYPRE_Int *lwork , HYPRE_Int *info );
/* dorm2r.c */
HYPRE_Int hypre_dorm2r (const char *side ,const char *trans , HYPRE_Int *m , HYPRE_Int *n , HYPRE_Int *k , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Real *tau , HYPRE_Real *c__ , HYPRE_Int *ldc , HYPRE_Real *work , HYPRE_Int *info );
/* dormbr.c */
HYPRE_Int hypre_dormbr (const char *vect ,const char *side ,const char *trans , HYPRE_Int *m , HYPRE_Int *n , HYPRE_Int *k , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Real *tau , HYPRE_Real *c__ , HYPRE_Int *ldc , HYPRE_Real *work , HYPRE_Int *lwork , HYPRE_Int *info );
/* dorml2.c */
HYPRE_Int hypre_dorml2 (const char *side ,const char *trans , HYPRE_Int *m , HYPRE_Int *n , HYPRE_Int *k , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Real *tau , HYPRE_Real *c__ , HYPRE_Int *ldc , HYPRE_Real *work , HYPRE_Int *info );
/* dormlq.c */
HYPRE_Int hypre_dormlq (const char *side ,const char *trans , HYPRE_Int *m , HYPRE_Int *n , HYPRE_Int *k , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Real *tau , HYPRE_Real *c__ , HYPRE_Int *ldc , HYPRE_Real *work , HYPRE_Int *lwork , HYPRE_Int *info );
/* dormqr.c */
HYPRE_Int hypre_dormqr (const char *side ,const char *trans , HYPRE_Int *m , HYPRE_Int *n , HYPRE_Int *k , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Real *tau , HYPRE_Real *c__ , HYPRE_Int *ldc , HYPRE_Real *work , HYPRE_Int *lwork , HYPRE_Int *info );
/* dpotf2.c */
HYPRE_Int hypre_dpotf2 (const char *uplo , HYPRE_Int *n , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Int *info );
/* dpotrf.c */
HYPRE_Int hypre_dpotrf (const char *uplo , HYPRE_Int *n , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Int *info );
/* dpotrs.c */
HYPRE_Int hypre_dpotrs ( char *uplo , HYPRE_Int *n , HYPRE_Int *nrhs , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Real *b , HYPRE_Int *ldb , HYPRE_Int *info );
/* dsteqr.c */
HYPRE_Int hypre_dsteqr (const char *compz , HYPRE_Int *n , HYPRE_Real *d__ , HYPRE_Real *e , HYPRE_Real *z__ , HYPRE_Int *ldz , HYPRE_Real *work , HYPRE_Int *info );
/* dsterf.c */
HYPRE_Int hypre_dsterf ( HYPRE_Int *n , HYPRE_Real *d__ , HYPRE_Real *e , HYPRE_Int *info );
/* dsyev.c */
HYPRE_Int hypre_dsyev (const char *jobz ,const char *uplo , HYPRE_Int *n , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Real *w , HYPRE_Real *work , HYPRE_Int *lwork , HYPRE_Int *info );
/* dsygs2.c */
HYPRE_Int hypre_dsygs2 ( HYPRE_Int *itype ,const char *uplo , HYPRE_Int *n , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Real *b , HYPRE_Int *ldb , HYPRE_Int *info );
/* dsygst.c */
HYPRE_Int hypre_dsygst ( HYPRE_Int *itype ,const char *uplo , HYPRE_Int *n , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Real *b , HYPRE_Int *ldb , HYPRE_Int *info );
/* dsygv.c */
HYPRE_Int hypre_dsygv ( HYPRE_Int *itype , char *jobz , char *uplo , HYPRE_Int *n , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Real *b , HYPRE_Int *ldb , HYPRE_Real *w , HYPRE_Real *work , HYPRE_Int *lwork , HYPRE_Int *info );
/* dsytd2.c */
HYPRE_Int hypre_dsytd2 (const char *uplo , HYPRE_Int *n , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Real *d__ , HYPRE_Real *e , HYPRE_Real *tau , HYPRE_Int *info );
/* dsytrd.c */
HYPRE_Int hypre_dsytrd (const char *uplo , HYPRE_Int *n , HYPRE_Real *a , HYPRE_Int *lda , HYPRE_Real *d__ , HYPRE_Real *e , HYPRE_Real *tau , HYPRE_Real *work , HYPRE_Int *lwork , HYPRE_Int *info );
#ifdef __cplusplus
}
#endif
#endif
|