/usr/lib/petscdir/3.4.2/include/petscblaslapack_uscore.h is in libpetsc3.4.2-dev 3.4.2.dfsg1-8.1+b1.
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 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 | /*
This file deals with underscore Fortran 77 naming conventions and those from the f2cblaslapack distribution.
*/
#if !defined(_BLASLAPACK_USCORE_H)
#define _BLASLAPACK_USCORE_H
#if !defined(PETSC_USE_COMPLEX)
# if defined(PETSC_USE_REAL_SINGLE)
/* Real single precision with no character string arguments */
# define LAPACKgeqrf_ sgeqrf_
# define LAPACKungqr_ sorgqr_
# define LAPACKgetrf_ sgetrf_
# define BLASdot_ sdot_
# define BLASdotu_ sdot_
# define BLASnrm2_ snrm2_
# define BLASscal_ sscal_
# define BLAScopy_ scopy_
# define BLASswap_ sswap_
# define BLASaxpy_ saxpy_
# define BLASasum_ sasum_
# define LAPACKpttrf_ spttrf_
# define LAPACKpttrs_ spttrs_
# define LAPACKstein_ sstein_
# define LAPACKgesv_ sgesv_
# define LAPACKgelss_ sgelss_
# define LAPACKgerfs_ sgerfs_
# define LAPACKtgsen_ stgsen_
/* Real single precision with character string arguments. */
# define LAPACKpotrf_ spotrf_
# define LAPACKpotrs_ spotrs_
# define BLASgemv_ sgemv_
# define LAPACKgetrs_ sgetrs_
# define BLAStrmv_ strmv_
# define BLASgemm_ sgemm_
# define BLAStrsm_ strsm_
# define LAPACKgesvd_ sgesvd_
# define LAPACKgeev_ sgeev_
# define LAPACKsyev_ ssyev_
# define LAPACKsyevx_ ssyevx_
# define LAPACKsygv_ ssygv_
# define LAPACKsygvx_ ssygvx_
# define LAPACKstebz_ sstebz_
# define LAPACKsteqr_ ssteqr_
# define LAPACKhseqr_ shseqr_
# define LAPACKgges_ sgges_
# define LAPACKtrsen_ strsen_
# define LAPACKormqr_ sormqr_
# define LAPACKhgeqz_ shgeqz_
# define LAPACKtrtrs_ strtrs_
# elif defined(PETSC_USE_REAL_DOUBLE)
/* Real double precision with no character string arguments */
# define LAPACKgeqrf_ dgeqrf_
# define LAPACKungqr_ dorgqr_
# define LAPACKgetrf_ dgetrf_
# define BLASdot_ ddot_
# define BLASdotu_ ddot_
# define BLASnrm2_ dnrm2_
# define BLASscal_ dscal_
# define BLAScopy_ dcopy_
# define BLASswap_ dswap_
# define BLASaxpy_ daxpy_
# define BLASasum_ dasum_
# define LAPACKpttrf_ dpttrf_
# define LAPACKpttrs_ dpttrs_
# define LAPACKstein_ dstein_
# define LAPACKgesv_ dgesv_
# define LAPACKgelss_ dgelss_
# define LAPACKgerfs_ dgerfs_
# define LAPACKtgsen_ dtgsen_
/* Real double precision with character string arguments. */
# define LAPACKpotrf_ dpotrf_
# define LAPACKpotrs_ dpotrs_
# define BLASgemv_ dgemv_
# define LAPACKgetrs_ dgetrs_
# define BLAStrmv_ dtrmv_
# define BLASgemm_ dgemm_
# define BLAStrsm_ dtrsm_
# define LAPACKgesvd_ dgesvd_
# define LAPACKgeev_ dgeev_
# define LAPACKsyev_ dsyev_
# define LAPACKsyevx_ dsyevx_
# define LAPACKsygv_ dsygv_
# define LAPACKsygvx_ dsygvx_
# define LAPACKstebz_ dstebz_
# define LAPACKsteqr_ dsteqr_
# define LAPACKhseqr_ dhseqr_
# define LAPACKgges_ dgges_
# define LAPACKtrsen_ dtrsen_
# define LAPACKormqr_ dormqr_
# define LAPACKhgeqz_ dhgeqz_
# define LAPACKtrtrs_ dtrtrs_
# else
/* Real quad precision with no character string arguments */
# define LAPACKgeqrf_ qgeqrf_
# define LAPACKungqr_ qorgqr_
# define LAPACKgetrf_ qgetrf_
# define BLASdot_ qdot_
# define BLASdotu_ qdot_
# define BLASnrm2_ qnrm2_
# define BLASscal_ qscal_
# define BLAScopy_ qcopy_
# define BLASswap_ qswap_
# define BLASaxpy_ qaxpy_
# define BLASasum_ qasum_
# define LAPACKpttrf_ qpttrf_
# define LAPACKpttrs_ qpttrs_
# define LAPACKstein_ qstein_
# define LAPACKgesv_ qgesv_
# define LAPACKgelss_ qgelss_
# define LAPACKgerfs_ qgerfs_
# define LAPACKtgsen_ qtgsen_
/* Real quad precision with character string arguments. */
# define LAPACKpotrf_ qpotrf_
# define LAPACKpotrs_ qpotrs_
# define BLASgemv_ qgemv_
# define LAPACKgetrs_ qgetrs_
# define BLAStrmv_ qtrmv_
# define BLASgemm_ qgemm_
# define BLAStrsm_ qtrsm_
# define LAPACKgesvd_ qgesvd_
# define LAPACKgeev_ qgeev_
# define LAPACKsyev_ qsyev_
# define LAPACKsyevx_ qsyevx_
# define LAPACKsygv_ qsygv_
# define LAPACKsygvx_ qsygvx_
# define LAPACKstebz_ qstebz_
# define LAPACKsteqr_ qsteqr_
# define LAPACKhseqr_ qhseqr_
# define LAPACKgges_ qgges_
# define LAPACKtrsen_ qtrsen_
# define LAPACKormqr_ qormqr_
# define LAPACKhgeqz_ qhgeqz_
# define LAPACKtrtrs_ qtrtrs_
# endif
#else
# if defined(PETSC_USE_REAL_SINGLE)
/* Complex single precision with no character string arguments */
# define LAPACKgeqrf_ cgeqrf_
# define LAPACKungqr_ cungqr_
# define LAPACKgetrf_ cgetrf_
/* # define BLASdot_ cdotc_ */
/* # define BLASdotu_ cdotu_ */
# define BLASnrm2_ scnrm2_
# define BLASscal_ cscal_
# define BLAScopy_ ccopy_
# define BLASswap_ cswap_
# define BLASaxpy_ caxpy_
# define BLASasum_ scasum_
# define LAPACKpttrf_ cpttrf_
# define LAPACKstein_ cstein_
# define LAPACKgelss_ cgelss_
# define LAPACKgerfs_ cgerfs_
# define LAPACKtgsen_ ctgsen_
/* Complex single precision with character string arguments */
# define LAPACKpotrf_ cpotrf_
# define LAPACKpotrs_ cpotrs_
# define BLASgemv_ cgemv_
# define LAPACKgetrs_ cgetrs_
# define BLAStrmv_ ctrmv_
# define BLASgemm_ cgemm_
# define BLAStrsm_ ctrsm_
# define LAPACKgesvd_ cgesvd_
# define LAPACKgesv_ cgesv_
# define LAPACKgeev_ cgeev_
# define LAPACKsyev_ cheev_
# define LAPACKsyevx_ cheevx_
# define LAPACKsygv_ chegv_
# define LAPACKsygvx_ chegvx_
# define LAPACKpttrs_ cpttrs_
/* LAPACKstebz_ does not exist for complex. */
# define LAPACKsteqr_ csteqr_
# define LAPACKhseqr_ chseqr_
# define LAPACKgges_ cgges_
# define LAPACKtrsen_ ctrsen_
# define LAPACKormqr_ cormqr_
# define LAPACKhgeqz_ chgeqz_
# define LAPACKtrtrs_ ctrtrs_
# elif defined(PETSC_USE_REAL_DOUBLE)
/* Complex double precision with no character string arguments */
# define LAPACKgeqrf_ zgeqrf_
# define LAPACKungqr_ zungqr_
# define LAPACKgetrf_ zgetrf_
/* # define BLASdot_ zdotc_ */
/* # define BLASdotu_ zdotu_ */
# define BLASnrm2_ dznrm2_
# define BLASscal_ zscal_
# define BLAScopy_ zcopy_
# define BLASswap_ zswap_
# define BLASaxpy_ zaxpy_
# define BLASasum_ dzasum_
# define LAPACKpttrf_ zpttrf_
# define LAPACKstein_ zstein_
# define LAPACKgesv_ zgesv_
# define LAPACKgelss_ zgelss_
# define LAPACKgerfs_ zgerfs_
# define LAPACKtgsen_ ztgsen_
/* Complex double precision with character string arguments */
# define LAPACKpotrf_ zpotrf_
# define LAPACKpotrs_ zpotrs_
# define BLASgemv_ zgemv_
# define LAPACKgetrs_ zgetrs_
# define BLAStrmv_ ztrmv_
# define BLASgemm_ zgemm_
# define BLAStrsm_ ztrsm_
# define LAPACKgesvd_ zgesvd_
# define LAPACKgeev_ zgeev_
# define LAPACKsyev_ zheev_
# define LAPACKsyevx_ zheevx_
# define LAPACKsygv_ zhegv_
# define LAPACKsygvx_ zhegvx_
# define LAPACKpttrs_ zpttrs_
/* LAPACKstebz_ does not exist for complex. */
# define LAPACKsteqr_ zsteqr_
# define LAPACKhseqr_ zhseqr_
# define LAPACKgges_ zgges_
# define LAPACKtrsen_ ztrsen_
# define LAPACKormqr_ zormqr_
# define LAPACKhgeqz_ zhgeqz_
# define LAPACKtrtrs_ ztrtrs_
# else
/* Complex quad precision with no character string arguments */
# define LAPACKgeqrf_ wgeqrf_
# define LAPACKungqr_ wungqr_
# define LAPACKgetrf_ wgetrf_
/* # define BLASdot_ wdotc_ */
/* # define BLASdotu_ wdotu_ */
# define BLASnrm2_ qwnrm2_
# define BLASscal_ wscal_
# define BLAScopy_ wcopy_
# define BLASswap_ wswap_
# define BLASaxpy_ waxpy_
# define BLASasum_ qwasum_
# define LAPACKpttrf_ wpttrf_
# define LAPACKstein_ wstein_
# define LAPACKgesv_ wgesv_
# define LAPACKgelss_ wgelss_
# define LAPACKgerfs_ wgerfs_
# define LAPACKtgsen_ wtgsen_
/* Complex quad precision with character string arguments */
# define LAPACKpotrf_ wpotrf_
# define LAPACKpotrs_ wpotrs_
# define BLASgemv_ wgemv_
# define LAPACKgetrs_ wgetrs_
# define BLAStrmv_ wtrmv_
# define BLASgemm_ wgemm_
# define BLAStrsm_ wtrsm_
# define LAPACKgesvd_ wgesvd_
# define LAPACKgeev_ wgeev_
# define LAPACKsyev_ wheev_
# define LAPACKsyevx_ wheevx_
# define LAPACKsygv_ whegv_
# define LAPACKsygvx_ whegvx_
# define LAPACKpttrs_ wpttrs_
/* LAPACKstebz_ does not exist for complex. */
# define LAPACKsteqr_ wsteqr_
# define LAPACKhseqr_ whseqr_
# define LAPACKgges_ wgges_
# define LAPACKtrsen_ wtrsen_
# endif
#endif
#endif
|