/usr/include/atlas/atlas_zher2_L1.h is in libatlas-dev 3.10.2-9.
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 | /*
* This file generated on line 445 of /build/atlas-O4mcM_/atlas-3.10.2/build/atlas-base/../..//tune/blas/ger/r2hgen.c
*/
#ifndef ATLAS_ZSYR2_L1_H
#define ATLAS_ZSYR2_L1_H
#include "atlas_zr2_L1.h"
#define ATL_s2U_NU 1
#define ATL_s2L_NU 1
#define ATL_MIN_RESTRICTED_M 1
#define ATL_URGERK ATL_zger2k__900003
#define ATL_GENGERK ATL_zger2k__900003
#define ATL_HER2U_nu(A_, lda_, x_, y_, xt_, yt_) \
{ \
TYPE *aa=(A_); \
ATL_CINT lda0_ = 0; \
const TYPE x0r=*(x_), x0i=(x_)[1]; \
const TYPE xt0r=*(xt_), xt0i=(xt_)[1]; \
const TYPE y0r=*(y_), y0i=(y_)[1]; \
const TYPE yt0r=*(yt_), yt0i=(yt_)[1]; \
aa[lda0_+0] += x0r*yt0r-x0i*yt0i + y0r*xt0r-y0i*xt0i; \
aa[lda0_+1] = 0.0; \
}
#define ATL_HER2L_nu(A_, lda_, x_, y_, xt_, yt_) \
{ \
TYPE *aa=(A_); \
ATL_CINT lda0_ = 0; \
const TYPE x0r=*(x_), x0i=(x_)[1]; \
const TYPE xt0r=*(xt_), xt0i=(xt_)[1]; \
const TYPE y0r=*(y_), y0i=(y_)[1]; \
const TYPE yt0r=*(yt_), yt0i=(yt_)[1]; \
aa[lda0_+0] += x0r*yt0r-x0i*yt0i + y0r*xt0r-y0i*xt0i; \
aa[lda0_+1] = 0.0; \
}
#endif
|