/dports/math/libpgmath/flang-d07daf3/runtime/flang/ |
H A D | miscsup_com.c | 506 ENTFTN(JDATE, jdate)(__INT4_T *i, __INT4_T *j, __INT4_T *k, F90_Desc *id, in ENTFTN() 918 *(__INT4_T *)to = *(__INT4_T *)from; in ENTF90() 1028 __INT4_T 1180 __INT4_T 1885 __INT4_T 2011 __INT4_T 3005 __INT4_T 3434 __INT4_T 3437 __INT4_T 3443 __INT4_T [all …]
|
H A D | matmul.h | 57 void f90_mm_int4_str1_mxv_(__INT4_T *, __INT4_T *, __INT4_T *, __INT_T *, 59 void f90_mm_int4_str1_vxm_(__INT4_T *, __INT4_T *, __INT4_T *, __INT_T *, 61 void f90_mm_int4_str1_(__INT4_T *, __INT4_T *, __INT4_T *, __INT_T *,
|
H A D | red_iany.c | 33 ARITHFN(|, iany_int4, __INT4_T, __INT4_T) 42 ARITHFNLKN(|, iany_int4, __INT4_T, __INT4_T, 1) 51 ARITHFNLKN(|, iany_int4, __INT4_T, __INT4_T, 2) 60 ARITHFNLKN(|, iany_int4, __INT4_T, __INT4_T, 4) 69 ARITHFNLKN(|, iany_int4, __INT4_T, __INT4_T, 8)
|
H A D | util.c | 33 return (int)(*(__INT4_T *)b); in I8() 84 return (int)(*(__INT4_T *)b); in I8() 117 *(__INT4_T *)b = (__INT4_T)val; in I8() 214 val = (int)(*(__INT4_T *)tmp); in I8() 246 *(__INT4_T *)adr = (__INT4_T)val; in I8() 278 *vec = (int)(*(__INT4_T *)tmp); in I8() 310 *(__INT4_T *)adr = (__INT4_T)*vec; in I8()
|
H A D | mmulint4.c | 33 __INT4_T *s1_base; in ENTF90() 34 __INT4_T *s2_base; in ENTF90() 35 __INT4_T *dest_base; in ENTF90() 36 __INT4_T *d_elem_p; in ENTF90() 37 __INT4_T *s1_elem_p; in ENTF90() 38 __INT4_T *s2_elem_p; in ENTF90() 40 __INT4_T rslt_tmp; in ENTF90() 173 s1_base = (__INT4_T *)s1_addr + F90_LBASE_G(s1_desc) + in ENTF90() 175 s2_base = (__INT4_T *)s2_addr + F90_LBASE_G(s2_desc) + in ENTF90() 177 dest_base = (__INT4_T *)dest_addr + F90_LBASE_G(dest_desc) + in ENTF90()
|
H A D | fortDt.h | 150 typedef int __INT4_T; /* 25 __INT4 integer*4 */ typedef 199 __INT4_T l, h; 209 __INT4_T l, k, j, h; 239 typedef __INT4_T __INT_T; 241 typedef __INT4_T __STAT_T; 267 typedef __INT4_T __BIGINT_T;
|
H A D | red.h | 335 __INT_T ms, __INT4_T *loc, __INT_T li, __INT_T ls, \ 338 __INT4_T i, j; \ 339 __INT4_T t_loc = 0; \ 368 static void g_##NAME(__INT_T n, RTYP *lval, RTYP *rval, __INT4_T *lloc, \ 371 __INT4_T i; \ 384 __INT_T ms, __INT4_T *loc, __INT_T li, __INT_T ls, \ 387 __INT4_T i, j, ahop; \ 388 __INT4_T t_loc = 0; \ 418 static void g_##NAME(__INT_T n, RTYP *lval, RTYP *rval, __INT4_T *lloc, \ 421 __INT4_T i; \ [all …]
|
H A D | const.c | 57 sizeof(__INT4_T), /* F integer*4 */ 155 static __INT4_T max_int4 = 0; /* initialized */ 214 static __INT4_T min_int4 = 0; /* initialized */ 273 static __INT4_T unit_int4 = 1; 328 static __INT4_T __fort_true_int4; 383 __INT4_T __fort_mask_int4; 512 __INT4_T 564 __set_fort_mask_int4(__INT4_T m) in __set_fort_mask_int4() 684 max_int4 = MAX_FOR_INT_TYPE(__INT4_T); in __fort_init_consts()
|
H A D | red_maxloc.c | 28 MLOCFNLKN(>, maxloc_int4, __INT4_T, 1) 37 MLOCFNLKN(>, maxloc_int4, __INT4_T, 2) 46 MLOCFNLKN(>, maxloc_int4, __INT4_T, 4) 55 MLOCFNLKN(>, maxloc_int4, __INT4_T, 8) 64 MLOCFNG(>, maxloc_int4, __INT4_T) 76 KMLOCFNLKN(>, kmaxloc_int4, __INT4_T, 1) 85 KMLOCFNLKN(>, kmaxloc_int4, __INT4_T, 2) 94 KMLOCFNLKN(>, kmaxloc_int4, __INT4_T, 4) 103 KMLOCFNLKN(>, kmaxloc_int4, __INT4_T, 8) 112 KMLOCFNG(>, kmaxloc_int4, __INT4_T)
|
H A D | red_findloc.c | 28 FLOCFNLKN(==, findloc_int4, __INT4_T, 1) 37 FLOCFNLKN(==, findloc_int4, __INT4_T, 2) 46 FLOCFNLKN(==, findloc_int4, __INT4_T, 4) 55 FLOCFNLKN(==, findloc_int4, __INT4_T, 8) 64 FLOCFNG(==, findloc_int4, __INT4_T) 76 KFLOCFNLKN(==, kfindloc_int4, __INT4_T, 1) 85 KFLOCFNLKN(==, kfindloc_int4, __INT4_T, 2) 94 KFLOCFNLKN(==, kfindloc_int4, __INT4_T, 4) 103 KFLOCFNLKN(==, kfindloc_int4, __INT4_T, 8) 112 KFLOCFNG(==, kfindloc_int4, __INT4_T)
|
H A D | red_minloc.c | 29 MLOCFNLKN(<, minloc_int4, __INT4_T, 1) 38 MLOCFNLKN(<, minloc_int4, __INT4_T, 2) 47 MLOCFNLKN(<, minloc_int4, __INT4_T, 4) 56 MLOCFNLKN(<, minloc_int4, __INT4_T, 8) 65 MLOCFNG(<, minloc_int4, __INT4_T) 77 KMLOCFNLKN(<, kminloc_int4, __INT4_T, 1) 86 KMLOCFNLKN(<, kminloc_int4, __INT4_T, 2) 95 KMLOCFNLKN(<, kminloc_int4, __INT4_T, 4) 104 KMLOCFNLKN(<, kminloc_int4, __INT4_T, 8) 113 KMLOCFNG(<, kminloc_int4, __INT4_T)
|
H A D | red_all.c | 34 LOGFN(&, all_int4, __INT4_T) 43 LOGFNLKN(&, all_int4, __INT4_T, 1) 52 LOGFNLKN(&, all_int4, __INT4_T, 2) 61 LOGFNLKN(&, all_int4, __INT4_T, 4) 70 LOGFNLKN(&, all_int4, __INT4_T, 8)
|
H A D | red_any.c | 34 LOGFN(|, any_int4, __INT4_T) 43 LOGFNLKN(|, any_int4, __INT4_T, 1) 52 LOGFNLKN(|, any_int4, __INT4_T, 2) 61 LOGFNLKN(|, any_int4, __INT4_T, 4) 70 LOGFNLKN(|, any_int4, __INT4_T, 8)
|
H A D | red_count.c | 65 COUNTFN(count_int4, __INT4_T) 74 COUNTFNLKN(count_int4, __INT4_T, 1) 83 COUNTFNLKN(count_int4, __INT4_T, 2) 92 COUNTFNLKN(count_int4, __INT4_T, 4) 101 COUNTFNLKN(count_int4, __INT4_T, 8)
|
H A D | red_maxval.c | 28 CONDFNLKN(>, maxval_int4, __INT4_T, 1) 37 CONDFNLKN(>, maxval_int4, __INT4_T, 2) 46 CONDFNLKN(>, maxval_int4, __INT4_T, 4) 55 CONDFNLKN(>, maxval_int4, __INT4_T, 8) 64 CONDFNG(>, maxval_int4, __INT4_T)
|
H A D | red_minval.c | 28 CONDFNLKN(<, minval_int4, __INT4_T, 1) 37 CONDFNLKN(<, minval_int4, __INT4_T, 2) 46 CONDFNLKN(<, minval_int4, __INT4_T, 4) 55 CONDFNLKN(<, minval_int4, __INT4_T, 8) 64 CONDFNG(<, minval_int4, __INT4_T)
|
H A D | red_sum.c | 85 ARITHFN(+, sum_int4, __INT4_T, long) 96 ARITHFNLKN(+, sum_int4, __INT4_T, long, 1) 107 ARITHFNLKN(+, sum_int4, __INT4_T, long, 2) 118 ARITHFNLKN(+, sum_int4, __INT4_T, long, 4) 129 ARITHFNLKN(+, sum_int4, __INT4_T, long, 8)
|
H A D | red_norm2.c | 30 void ENTFTN(NORM2_NODIM, norm2_nodim) (__POINT_T *result, __POINT_T *src, __INT4_T * pfr, _DIST_TYP… in ENTFTN() 96 void ENTFTN(NORM2, norm2) (__POINT_T *result, __POINT_T *src, __INT4_T * pfr, __INT4_T *dim, F90_De… in ENTFTN()
|
H A D | gathscat.c | 50 local_scatter_INT4(int n, __INT4_T *dst, int *sv, __INT4_T *src) in local_scatter_INT4() 209 local_gathscat_INT4(int n, __INT4_T *dst, int *sv, __INT4_T *src, int *gv) in local_gathscat_INT4()
|
H A D | getarg.c | 70 __INT4_T 300 *(__INT4_T *)b = (__INT4_T)v; in store_int_kind()
|
H A D | gather.c | 40 local_gather_INT4(int n, __INT4_T *dst, __INT4_T *src, int *gv) in local_gather_INT4()
|
H A D | scalar_copy.c | 144 copy_int4(__INT4_T *rp, __INT4_T *sp, int size) in copy_int4()
|
H A D | pack.c | 120 mval = (*(__INT4_T *)tmp & GET_DIST_MASK_INT4) != 0; in ENTFTN() 263 mval = (*(__INT4_T *)tmp & GET_DIST_MASK_INT4) != 0; in ENTFTN() 388 mval = (*(__INT4_T *)tmp & GET_DIST_MASK_INT4) != 0; in ENTFTN()
|
H A D | scatter_maxval.c | 43 scatter_maxval_int4(int n, __INT4_T *r, int *sv, __INT4_T *a) in scatter_maxval_int4() 137 gathscat_maxval_int4(int n, __INT4_T *r, int *sv, __INT4_T *a, int *gv) in gathscat_maxval_int4()
|
H A D | scatter_minval.c | 43 scatter_minval_int4(int n, __INT4_T *r, int *sv, __INT4_T *a) in scatter_minval_int4() 137 gathscat_minval_int4(int n, __INT4_T *r, int *sv, __INT4_T *a, int *gv) in gathscat_minval_int4()
|