/dports/math/libpgmath/flang-d07daf3/runtime/flang/ |
H A D | red_iany.c | 28 ARITHFN(|, iany_log2, __LOG2_T, __LOG2_T) 37 ARITHFNLKN(|, iany_log2, __LOG2_T, __LOG2_T, 1) 46 ARITHFNLKN(|, iany_log2, __LOG2_T, __LOG2_T, 2) 55 ARITHFNLKN(|, iany_log2, __LOG2_T, __LOG2_T, 4) 64 ARITHFNLKN(|, iany_log2, __LOG2_T, __LOG2_T, 8)
|
H A D | mmullog2.c | 30 __LOG2_T *s1_base; in ENTF90() 31 __LOG2_T *s2_base; in ENTF90() 32 __LOG2_T *dest_base; in ENTF90() 33 __LOG2_T *d_elem_p; in ENTF90() 34 __LOG2_T *s1_elem_p; in ENTF90() 35 __LOG2_T *s2_elem_p; in ENTF90() 169 s1_base = (__LOG2_T *)s1_addr + F90_LBASE_G(s1_desc) + in ENTF90() 171 s2_base = (__LOG2_T *)s2_addr + F90_LBASE_G(s2_desc) + in ENTF90() 173 dest_base = (__LOG2_T *)dest_addr + F90_LBASE_G(dest_desc) + in ENTF90() 227 __LOG2_T rslt_tmp; in ENTF90()
|
H A D | red_all.c | 29 LOGFN(&, all_log2, __LOG2_T) 38 LOGFNLKN(&, all_log2, __LOG2_T, 1) 47 LOGFNLKN(&, all_log2, __LOG2_T, 2) 56 LOGFNLKN(&, all_log2, __LOG2_T, 4) 65 LOGFNLKN(&, all_log2, __LOG2_T, 8)
|
H A D | red_any.c | 29 LOGFN(|, any_log2, __LOG2_T) 38 LOGFNLKN(|, any_log2, __LOG2_T, 1) 47 LOGFNLKN(|, any_log2, __LOG2_T, 2) 56 LOGFNLKN(|, any_log2, __LOG2_T, 4) 65 LOGFNLKN(|, any_log2, __LOG2_T, 8)
|
H A D | red_count.c | 60 COUNTFN(count_log2, __LOG2_T) 69 COUNTFNLKN(count_log2, __LOG2_T, 1) 78 COUNTFNLKN(count_log2, __LOG2_T, 2) 87 COUNTFNLKN(count_log2, __LOG2_T, 4) 96 COUNTFNLKN(count_log2, __LOG2_T, 8)
|
H A D | const.c | 50 sizeof(__LOG2_T), /* F logical*2 */ 323 __LOG2_T __fort_true_log2; 378 __LOG2_T __fort_mask_log2; 452 __LOG2_T 474 __set_fort_true_log2(__LOG2_T t) in __set_fort_true_log2() 497 __LOG2_T 534 __set_fort_mask_log2(__LOG2_T m) in __set_fort_mask_log2()
|
H A D | gathscat.c | 74 local_scatter_LOG2(int n, __LOG2_T *dst, int *sv, __LOG2_T *src) in local_scatter_LOG2() 233 local_gathscat_LOG2(int n, __LOG2_T *dst, int *sv, __LOG2_T *src, int *gv) in local_gathscat_LOG2()
|
H A D | util.c | 50 return (*(__LOG2_T *)b & GET_DIST_MASK_LOG2) != 0; in I8() 148 return (*(__LOG2_T *)b & GET_DIST_MASK_LOG2) != 0; in I8() 180 *(__LOG2_T *)b = val ? GET_DIST_TRUE_LOG2 : 0; in I8()
|
H A D | gather.c | 64 local_gather_LOG2(int n, __LOG2_T *dst, __LOG2_T *src, int *gv) in local_gather_LOG2()
|
H A D | scalar_copy.c | 109 copy_log2(__LOG2_T *rp, __LOG2_T *sp, int size) in copy_log2()
|
H A D | pack.c | 105 mval = (*(__LOG2_T *)tmp & GET_DIST_MASK_LOG2) != 0; in ENTFTN() 248 mval = (*(__LOG2_T *)tmp & GET_DIST_MASK_LOG2) != 0; in ENTFTN() 373 mval = (*(__LOG2_T *)tmp & GET_DIST_MASK_LOG2) != 0; in ENTFTN()
|
H A D | red.c | 767 ((__LOG2_T *)rb)[i] = *(__LOG2_T *)zb; in I8() 960 ((__LOG2_T *)rb)[i] = *(__LOG2_T *)zb; in I8() 1151 ((__LOG2_T *)rb)[i] = *(__LOG2_T *)zb; in I8() 1334 mask_len = sizeof(__LOG2_T); in I8() 1363 *((__LOG2_T *)mask_array + i) = *((__LOG2_T *)mb); in I8()
|
H A D | fortDt.h | 135 typedef short __LOG2_T; /* 18 __LOG2 logical*2 */ typedef
|
H A D | miscsup_com.c | 3026 __LOG2_T 3028 (__LOG2_T *tsource, __LOG2_T *fsource, void *mask, __INT_T *size) 3460 return *(__LOG2_T *)a; 3498 return *(__LOG2_T *)a; 3536 return *(__LOG2_T *)a; 3574 return *(__LOG2_T *)a; 3612 return *(__LOG2_T *)a; 3665 __LOG2_T 3754 return *(__LOG2_T *)a; 3788 return *(__LOG2_T *)a; [all …]
|
H A D | fioMacros.h | 244 extern __LOG2_T __get_fort_mask_log2(void); 254 extern __LOG2_T __get_fort_true_log2(void); 260 extern void __set_fort_mask_log2(__LOG2_T); 269 extern void __set_fort_true_log2(__LOG2_T); 396 extern __LOG2_T __fort_mask_log2; 405 extern __LOG2_T __fort_true_log2;
|
H A D | mmul.c | 167 dotp_log2(__LOG2_T *c, int nj, __LOG2_T *a, int ai, int ais, __LOG2_T *b, in dotp_log2() 170 __LOG2_T mask_log2; in dotp_log2()
|
H A D | assign.c | 30 #define PP_LOG2(i) (*(__LOG2_T *)(i))
|
H A D | dbug.c | 100 *(__LOG2_T *)adr & GET_DIST_MASK_LOG2 ? ".TRUE." : ".FALSE."); in __fort_print_scalar() 498 __LOG2_T *l2; in I8()
|
H A D | query.c | 52 return (*(__LOG2_T *)b & GET_DIST_MASK_LOG2) != 0; in I8() 109 *(__LOG2_T *)b = val ? GET_DIST_TRUE_LOG2 : 0; in I8()
|
H A D | fmtconv.c | 64 #define PP_LOG2(i) (*(__LOG2_T *)(i))
|
H A D | type.c | 1504 {__POLY, __LOG2, 0, sizeof(__LOG2_T), 0, 0, 0, 0, 0, &I8(__f03_log2_td)},
|
H A D | fmtwrite.c | 1812 ival = *(__LOG2_T *)item; in fw_writenum()
|
H A D | fmtread.c | 2347 *((__LOG2_T *)item) = ival; in fr_assign()
|