/dports/math/libpgmath/flang-d07daf3/runtime/flang/ |
H A D | matmul.h | 49 void f90_mm_int2_str1_mxv_(__INT2_T *, __INT2_T *, __INT2_T *, __INT_T *, 51 void f90_mm_int2_str1_vxm_(__INT2_T *, __INT2_T *, __INT2_T *, __INT_T *, 53 void f90_mm_int2_str1_(__INT2_T *, __INT2_T *, __INT2_T *, __INT_T *,
|
H A D | red_iany.c | 32 ARITHFN(|, iany_int2, __INT2_T, __INT2_T) 41 ARITHFNLKN(|, iany_int2, __INT2_T, __INT2_T, 1) 50 ARITHFNLKN(|, iany_int2, __INT2_T, __INT2_T, 2) 59 ARITHFNLKN(|, iany_int2, __INT2_T, __INT2_T, 4) 68 ARITHFNLKN(|, iany_int2, __INT2_T, __INT2_T, 8)
|
H A D | util.c | 31 return (int)(*(__INT2_T *)b); in I8() 82 return (int)(*(__INT2_T *)b); in I8() 114 *(__INT2_T *)b = (__INT2_T)val; in I8() 211 val = (int)(*(__INT2_T *)tmp); in I8() 243 *(__INT2_T *)adr = (__INT2_T)val; in I8() 275 *vec = (int)(*(__INT2_T *)tmp); in I8() 307 *(__INT2_T *)adr = (__INT2_T)*vec; in I8()
|
H A D | mmulint2.c | 33 __INT2_T *s1_base; in ENTF90() 34 __INT2_T *s2_base; in ENTF90() 35 __INT2_T *dest_base; in ENTF90() 36 __INT2_T *d_elem_p; in ENTF90() 37 __INT2_T *s1_elem_p; in ENTF90() 38 __INT2_T *s2_elem_p; in ENTF90() 40 __INT2_T rslt_tmp; in ENTF90() 173 s1_base = (__INT2_T *)s1_addr + F90_LBASE_G(s1_desc) + in ENTF90() 175 s2_base = (__INT2_T *)s2_addr + F90_LBASE_G(s2_desc) + in ENTF90() 177 dest_base = (__INT2_T *)dest_addr + F90_LBASE_G(dest_desc) + in ENTF90()
|
H A D | const.c | 56 sizeof(__INT2_T), /* F integer*2 */ 154 static __INT2_T max_int2 = 0; /* initialized */ 213 static __INT2_T min_int2 = 0; /* initialized */ 272 static __INT2_T unit_int2 = 1; 327 static __INT2_T __fort_true_int2; 382 __INT2_T __fort_mask_int2; 509 __INT2_T 558 __set_fort_mask_int2(__INT2_T m) in __set_fort_mask_int2() 683 max_int2 = MAX_FOR_INT_TYPE(__INT2_T); in __fort_init_consts()
|
H A D | red_maxloc.c | 27 MLOCFNLKN(>, maxloc_int2, __INT2_T, 1) 36 MLOCFNLKN(>, maxloc_int2, __INT2_T, 2) 45 MLOCFNLKN(>, maxloc_int2, __INT2_T, 4) 54 MLOCFNLKN(>, maxloc_int2, __INT2_T, 8) 63 MLOCFNG(>, maxloc_int2, __INT2_T) 75 KMLOCFNLKN(>, kmaxloc_int2, __INT2_T, 1) 84 KMLOCFNLKN(>, kmaxloc_int2, __INT2_T, 2) 93 KMLOCFNLKN(>, kmaxloc_int2, __INT2_T, 4) 102 KMLOCFNLKN(>, kmaxloc_int2, __INT2_T, 8) 111 KMLOCFNG(>, kmaxloc_int2, __INT2_T)
|
H A D | red_findloc.c | 27 FLOCFNLKN(==, findloc_int2, __INT2_T, 1) 36 FLOCFNLKN(==, findloc_int2, __INT2_T, 2) 45 FLOCFNLKN(==, findloc_int2, __INT2_T, 4) 54 FLOCFNLKN(==, findloc_int2, __INT2_T, 8) 63 FLOCFNG(==, findloc_int2, __INT2_T) 75 KFLOCFNLKN(==, kfindloc_int2, __INT2_T, 1) 84 KFLOCFNLKN(==, kfindloc_int2, __INT2_T, 2) 93 KFLOCFNLKN(==, kfindloc_int2, __INT2_T, 4) 102 KFLOCFNLKN(==, kfindloc_int2, __INT2_T, 8) 111 KFLOCFNG(==, kfindloc_int2, __INT2_T)
|
H A D | red_minloc.c | 28 MLOCFNLKN(<, minloc_int2, __INT2_T, 1) 37 MLOCFNLKN(<, minloc_int2, __INT2_T, 2) 46 MLOCFNLKN(<, minloc_int2, __INT2_T, 4) 55 MLOCFNLKN(<, minloc_int2, __INT2_T, 8) 64 MLOCFNG(<, minloc_int2, __INT2_T) 76 KMLOCFNLKN(<, kminloc_int2, __INT2_T, 1) 85 KMLOCFNLKN(<, kminloc_int2, __INT2_T, 2) 94 KMLOCFNLKN(<, kminloc_int2, __INT2_T, 4) 103 KMLOCFNLKN(<, kminloc_int2, __INT2_T, 8) 112 KMLOCFNG(<, kminloc_int2, __INT2_T)
|
H A D | red_all.c | 33 LOGFN(&, all_int2, __INT2_T) 42 LOGFNLKN(&, all_int2, __INT2_T, 1) 51 LOGFNLKN(&, all_int2, __INT2_T, 2) 60 LOGFNLKN(&, all_int2, __INT2_T, 4) 69 LOGFNLKN(&, all_int2, __INT2_T, 8)
|
H A D | red_any.c | 33 LOGFN(|, any_int2, __INT2_T) 42 LOGFNLKN(|, any_int2, __INT2_T, 1) 51 LOGFNLKN(|, any_int2, __INT2_T, 2) 60 LOGFNLKN(|, any_int2, __INT2_T, 4) 69 LOGFNLKN(|, any_int2, __INT2_T, 8)
|
H A D | red_count.c | 64 COUNTFN(count_int2, __INT2_T) 73 COUNTFNLKN(count_int2, __INT2_T, 1) 82 COUNTFNLKN(count_int2, __INT2_T, 2) 91 COUNTFNLKN(count_int2, __INT2_T, 4) 100 COUNTFNLKN(count_int2, __INT2_T, 8)
|
H A D | red_maxval.c | 27 CONDFNLKN(>, maxval_int2, __INT2_T, 1) 36 CONDFNLKN(>, maxval_int2, __INT2_T, 2) 45 CONDFNLKN(>, maxval_int2, __INT2_T, 4) 54 CONDFNLKN(>, maxval_int2, __INT2_T, 8) 63 CONDFNG(>, maxval_int2, __INT2_T)
|
H A D | red_minval.c | 27 CONDFNLKN(<, minval_int2, __INT2_T, 1) 36 CONDFNLKN(<, minval_int2, __INT2_T, 2) 45 CONDFNLKN(<, minval_int2, __INT2_T, 4) 54 CONDFNLKN(<, minval_int2, __INT2_T, 8) 63 CONDFNG(<, minval_int2, __INT2_T)
|
H A D | miscsup_com.c | 523 ENTFTN(IDATE, idate)(__INT2_T *i, __INT2_T *j, __INT2_T *k, F90_Desc *id, in ENTFTN() 906 *(__INT2_T *)to = *(__INT2_T *)from; in ENTF90() 1002 __INT2_T 1157 __INT2_T 1865 __INT2_T 1991 __INT2_T 2998 __INT2_T 3525 __INT2_T 3928 __INT2_T 3987 __INT2_T [all …]
|
H A D | red_sum.c | 84 ARITHFN(+, sum_int2, __INT2_T, long) 95 ARITHFNLKN(+, sum_int2, __INT2_T, long, 1) 106 ARITHFNLKN(+, sum_int2, __INT2_T, long, 2) 117 ARITHFNLKN(+, sum_int2, __INT2_T, long, 4) 128 ARITHFNLKN(+, sum_int2, __INT2_T, long, 8)
|
H A D | gathscat.c | 42 local_scatter_INT2(int n, __INT2_T *dst, int *sv, __INT2_T *src) in local_scatter_INT2() 201 local_gathscat_INT2(int n, __INT2_T *dst, int *sv, __INT2_T *src, int *gv) in local_gathscat_INT2()
|
H A D | gather.c | 32 local_gather_INT2(int n, __INT2_T *dst, __INT2_T *src, int *gv) in local_gather_INT2()
|
H A D | scalar_copy.c | 139 copy_int2(__INT2_T *rp, __INT2_T *sp, int size) in copy_int2()
|
H A D | getarg.c | 297 *(__INT2_T *)b = (__INT2_T)v; in store_int_kind()
|
H A D | pack.c | 117 mval = (*(__INT2_T *)tmp & GET_DIST_MASK_INT2) != 0; in ENTFTN() 260 mval = (*(__INT2_T *)tmp & GET_DIST_MASK_INT2) != 0; in ENTFTN() 385 mval = (*(__INT2_T *)tmp & GET_DIST_MASK_INT2) != 0; in ENTFTN()
|
H A D | scatter_maxval.c | 35 scatter_maxval_int2(int n, __INT2_T *r, int *sv, __INT2_T *a) in scatter_maxval_int2() 129 gathscat_maxval_int2(int n, __INT2_T *r, int *sv, __INT2_T *a, int *gv) in gathscat_maxval_int2()
|
H A D | scatter_minval.c | 35 scatter_minval_int2(int n, __INT2_T *r, int *sv, __INT2_T *a) in scatter_minval_int2() 129 gathscat_minval_int2(int n, __INT2_T *r, int *sv, __INT2_T *a, int *gv) in gathscat_minval_int2()
|
H A D | fortDt.h | 147 typedef short __INT2_T; /* 24 __INT2 integer*2 */ typedef
|
H A D | scatter.c | 1240 *((__INT2_T *)idx_array + i) = *((__INT2_T *)src + i) + adj; in I8() 1293 idx_len = sizeof(__INT2_T); in I8() 1321 *((__INT2_T *)idx_array + i) = *((__INT2_T *)ib); in I8()
|
H A D | red.c | 783 ((__INT2_T *)rb)[i] = *(__INT2_T *)zb; in I8() 976 ((__INT2_T *)rb)[i] = *(__INT2_T *)zb; in I8() 1167 ((__INT2_T *)rb)[i] = *(__INT2_T *)zb; in I8()
|