/usr/lib/petscdir/3.1/include/petscblaslapack_uscore.h is in libpetsc3.1-dev 3.1.dfsg-11ubuntu1.
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 | /*
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_SCALAR_SINGLE)
/* Real single precision with no character string arguments */
# define LAPACKgeqrf_ sgeqrf_
# define LAPACKungqr_ sorgqr_
# define LAPACKgetrf_ sgetrf_
# define BLASdot_ 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_
/* Real single precision with character string arguments. */
# define LAPACKormqr_ sormqr_
# define LAPACKtrtrs_ strtrs_
# define LAPACKpotrf_ spotrf_
# define LAPACKpotrs_ spotrs_
# define BLASgemv_ sgemv_
# define LAPACKgetrs_ sgetrs_
# define BLAStrmv_ strmv_
# define BLASgemm_ sgemm_
# define LAPACKgesvd_ sgesvd_
# define LAPACKgeev_ sgeev_
# define LAPACKsyev_ ssyev_
# define LAPACKsyevx_ ssyevx_
# define LAPACKsygv_ ssygv_
# define LAPACKsygvx_ ssygvx_
# define LAPACKstebz_ sstebz_
# else
/* Real double precision with no character string arguments */
# define LAPACKgeqrf_ dgeqrf_
# define LAPACKungqr_ dorgqr_
# define LAPACKgetrf_ dgetrf_
# define BLASdot_ 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_
/* Real double precision with character string arguments. */
# define LAPACKormqr_ dormqr_
# define LAPACKtrtrs_ dtrtrs_
# define LAPACKpotrf_ dpotrf_
# define LAPACKpotrs_ dpotrs_
# define BLASgemv_ dgemv_
# define LAPACKgetrs_ dgetrs_
# define BLAStrmv_ dtrmv_
# define BLASgemm_ dgemm_
# define LAPACKgesvd_ dgesvd_
# define LAPACKgeev_ dgeev_
# define LAPACKsyev_ dsyev_
# define LAPACKsyevx_ dsyevx_
# define LAPACKsygv_ dsygv_
# define LAPACKsygvx_ dsygvx_
# define LAPACKstebz_ dstebz_
# endif
#else
# if defined(PETSC_USE_SCALAR_SINGLE)
/* Complex single precision with no character string arguments */
# define LAPACKgeqrf_ cgeqrf_
# define LAPACKungqr_ cungqr_
# define LAPACKgetrf_ cgetrf_
# define BLASdot_ cdotc_
# 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_
/* Complex single precision with character string arguments */
/* LAPACKormqr_ does not exist for complex. */
# define LAPACKtrtrs_ ctrtrs_
# define LAPACKpotrf_ cpotrf_
# define LAPACKpotrs_ cpotrs_
# define BLASgemv_ cgemv_
# define LAPACKgetrs_ cgetrs_
# define BLAStrmv_ ctrmv_
# define BLASgemm_ cgemm_
# 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. */
# else
/* Complex double precision with no character string arguments */
# define LAPACKgeqrf_ zgeqrf_
# define LAPACKungqr_ zungqr_
# define LAPACKgetrf_ zgetrf_
# define BLASdot_ zdotc_
# 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_
/* Complex double precision with character string arguments */
/* LAPACKormqr_ does not exist for complex. */
# define LAPACKtrtrs_ ztrtrs_
# define LAPACKpotrf_ zpotrf_
# define LAPACKpotrs_ zpotrs_
# define BLASgemv_ zgemv_
# define LAPACKgetrs_ zgetrs_
# define BLAStrmv_ ztrmv_
# define BLASgemm_ zgemm_
# 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. */
# endif
#endif
#endif
|