44 #define bli_sssets( xr, xi, y )  { (y) = (xr); }  argument
45 #define bli_dssets( xr, xi, y )  { (y) = (xr); }  argument
46 #define bli_cssets( xr, xi, y )  { (y) = (xr); }  argument
47 #define bli_zssets( xr, xi, y )  { (y) = (xr); }  argument
48 #define bli_issets( xr, xi, y )  { (y) = (xr); }  argument
50 #define bli_sdsets( xr, xi, y )  { (y) = (xr); }  argument
51 #define bli_ddsets( xr, xi, y )  { (y) = (xr); }  argument
52 #define bli_cdsets( xr, xi, y )  { (y) = (xr); }  argument
53 #define bli_zdsets( xr, xi, y )  { (y) = (xr); }  argument
54 #define bli_idsets( xr, xi, y )  { (y) = (xr); }  argument
58 #define bli_scsets( xr, xi, y ) { bli_creal(y) = (xr); bli_cimag(y) = (xi); }  argument
59 #define bli_dcsets( xr, xi, y ) { bli_creal(y) = (xr); bli_cimag(y) = (xi); }  argument
60 #define bli_ccsets( xr, xi, y ) { bli_creal(y) = (xr); bli_cimag(y) = (xi); }  argument
61 #define bli_zcsets( xr, xi, y ) { bli_creal(y) = (xr); bli_cimag(y) = (xi); }  argument
62 #define bli_icsets( xr, xi, y ) { bli_creal(y) = (xr); bli_cimag(y) = (xi); }  argument
64 #define bli_szsets( xr, xi, y ) { bli_zreal(y) = (xr); bli_zimag(y) = (xi); }  argument
65 #define bli_dzsets( xr, xi, y ) { bli_zreal(y) = (xr); bli_zimag(y) = (xi); }  argument
66 #define bli_czsets( xr, xi, y ) { bli_zreal(y) = (xr); bli_zimag(y) = (xi); }  argument
67 #define bli_zzsets( xr, xi, y ) { bli_zreal(y) = (xr); bli_zimag(y) = (xi); }  argument
68 #define bli_izsets( xr, xi, y ) { bli_zreal(y) = (xr); bli_zimag(y) = (xi); }  argument
72 #define bli_scsets( xr, xi, y )  { (y) = (xr) + (xi) * (I); }  argument
73 #define bli_dcsets( xr, xi, y )  { (y) = (xr) + (xi) * (I); }  argument
74 #define bli_ccsets( xr, xi, y )  { (y) = (xr) + (xi) * (I); }  argument
75 #define bli_zcsets( xr, xi, y )  { (y) = (xr) + (xi) * (I); }  argument
77 #define bli_szsets( xr, xi, y )  { (y) = (xr) + (xi) * (I); }  argument
78 #define bli_dzsets( xr, xi, y )  { (y) = (xr) + (xi) * (I); }  argument
79 #define bli_czsets( xr, xi, y )  { (y) = (xr) + (xi) * (I); }  argument
80 #define bli_zzsets( xr, xi, y )  { (y) = (xr) + (xi) * (I); }  argument
84 #define bli_sisets( xr, xi, y ) { (y) = bli_sreal(xr); }  argument
85 #define bli_disets( xr, xi, y ) { (y) = bli_dreal(xr); }  argument
86 #define bli_cisets( xr, xi, y ) { (y) = bli_creal(xr); }  argument
87 #define bli_zisets( xr, xi, y ) { (y) = bli_zreal(xr); }  argument
88 #define bli_iisets( xr, xi, y ) { (y) =          (xr); }  argument
91 #define bli_ssets( xr, xi, y )  bli_sssets( xr, xi, y )  argument
92 #define bli_dsets( xr, xi, y )  bli_ddsets( xr, xi, y )  argument
93 #define bli_csets( xr, xi, y )  bli_scsets( xr, xi, y )  argument
94 #define bli_zsets( xr, xi, y )  bli_dzsets( xr, xi, y )  argument
95 #define bli_isets( xr, xi, y )  bli_disets( xr, xi, y )  argument