/dports/math/libpgmath/flang-d07daf3/runtime/flang/ |
H A D | matmul.h | 73 void f90_mm_real4_str1_mxv_(__REAL4_T *, __REAL4_T *, __REAL4_T *, __INT_T *, 75 void f90_mm_real4_str1_vxm_(__REAL4_T *, __REAL4_T *, __REAL4_T *, __INT_T *, 77 void f90_mm_real4_str1_(__REAL4_T *, __REAL4_T *, __REAL4_T *, __INT_T *, 80 void f90_mm_real4_str1_mxv_t_(__REAL4_T *, __REAL4_T *, __REAL4_T *,
|
H A D | mmulreal4_t.c | 34 __REAL4_T *s1_base; in ENTF90() 35 __REAL4_T *s1_elem_p; in ENTF90() 36 __REAL4_T *s2_base; in ENTF90() 37 __REAL4_T *s2_elem_p; in ENTF90() 38 __REAL4_T *dest_base; in ENTF90() 40 __REAL4_T rslt_tmp; in ENTF90() 156 s1_base = (__REAL4_T *)s1_addr + F90_LBASE_G(s1_desc) + in ENTF90() 159 s2_base = (__REAL4_T *)s2_addr + F90_LBASE_G(s2_desc) + in ENTF90() 162 dest_base = (__REAL4_T *)dest_addr + F90_LBASE_G(dest_desc) + in ENTF90() 195 s1_base = (__REAL4_T *)s1_addr + F90_LBASE_G(s1_desc) + in ENTF90() [all …]
|
H A D | red_sum.c | 87 ARITHFN(+, sum_real4, __REAL4_T, __REAL4_T) 90 CSUMFN(sum_cplx8, __CPLX8_T, __REAL4_T) 98 ARITHFNLKN(+, sum_real4, __REAL4_T, __REAL4_T, 1) 101 CSUMFNLKN(sum_cplx8, __CPLX8_T, __REAL4_T, 1) 109 ARITHFNLKN(+, sum_real4, __REAL4_T, __REAL4_T, 2) 112 CSUMFNLKN(sum_cplx8, __CPLX8_T, __REAL4_T, 2) 120 ARITHFNLKN(+, sum_real4, __REAL4_T, __REAL4_T, 4) 123 CSUMFNLKN(sum_cplx8, __CPLX8_T, __REAL4_T, 4) 131 ARITHFNLKN(+, sum_real4, __REAL4_T, __REAL4_T, 8) 134 CSUMFNLKN(sum_cplx8, __CPLX8_T, __REAL4_T, 8)
|
H A D | mmulreal4.c | 33 __REAL4_T *s1_base; in ENTF90() 34 __REAL4_T *s2_base; in ENTF90() 35 __REAL4_T *dest_base; in ENTF90() 36 __REAL4_T *d_elem_p; in ENTF90() 37 __REAL4_T *s1_elem_p; in ENTF90() 38 __REAL4_T *s2_elem_p; in ENTF90() 40 __REAL4_T rslt_tmp; in ENTF90() 173 s1_base = (__REAL4_T *)s1_addr + F90_LBASE_G(s1_desc) + in ENTF90() 175 s2_base = (__REAL4_T *)s2_addr + F90_LBASE_G(s2_desc) + in ENTF90() 177 dest_base = (__REAL4_T *)dest_addr + F90_LBASE_G(dest_desc) + in ENTF90()
|
H A D | red_norm2_stride1.c | 23 void NORM2_REAL4 (__POINT_T *src_pointer, __INT_T *size, __REAL4_T *result) { in NORM2_REAL4() 25 __REAL4_T *src = (__REAL4_T *)(*src_pointer); in NORM2_REAL4() 34 *result = (__REAL4_T) val; in NORM2_REAL4()
|
H A D | red_maxloc.c | 30 MLOCFNLKN(>, maxloc_real4, __REAL4_T, 1) 39 MLOCFNLKN(>, maxloc_real4, __REAL4_T, 2) 48 MLOCFNLKN(>, maxloc_real4, __REAL4_T, 4) 57 MLOCFNLKN(>, maxloc_real4, __REAL4_T, 8) 66 MLOCFNG(>, maxloc_real4, __REAL4_T) 78 KMLOCFNLKN(>, kmaxloc_real4, __REAL4_T, 1) 87 KMLOCFNLKN(>, kmaxloc_real4, __REAL4_T, 2) 96 KMLOCFNLKN(>, kmaxloc_real4, __REAL4_T, 4) 105 KMLOCFNLKN(>, kmaxloc_real4, __REAL4_T, 8) 114 KMLOCFNG(>, kmaxloc_real4, __REAL4_T)
|
H A D | red_findloc.c | 30 FLOCFNLKN(==, findloc_real4, __REAL4_T, 1) 39 FLOCFNLKN(==, findloc_real4, __REAL4_T, 2) 48 FLOCFNLKN(==, findloc_real4, __REAL4_T, 4) 57 FLOCFNLKN(==, findloc_real4, __REAL4_T, 8) 66 FLOCFNG(==, findloc_real4, __REAL4_T) 78 KFLOCFNLKN(==, kfindloc_real4, __REAL4_T, 1) 87 KFLOCFNLKN(==, kfindloc_real4, __REAL4_T, 2) 96 KFLOCFNLKN(==, kfindloc_real4, __REAL4_T, 4) 105 KFLOCFNLKN(==, kfindloc_real4, __REAL4_T, 8) 114 KFLOCFNG(==, kfindloc_real4, __REAL4_T)
|
H A D | red_minloc.c | 31 MLOCFNLKN(<, minloc_real4, __REAL4_T, 1) 40 MLOCFNLKN(<, minloc_real4, __REAL4_T, 2) 49 MLOCFNLKN(<, minloc_real4, __REAL4_T, 4) 58 MLOCFNLKN(<, minloc_real4, __REAL4_T, 8) 67 MLOCFNG(<, minloc_real4, __REAL4_T) 79 KMLOCFNLKN(<, kminloc_real4, __REAL4_T, 1) 88 KMLOCFNLKN(<, kminloc_real4, __REAL4_T, 2) 97 KMLOCFNLKN(<, kminloc_real4, __REAL4_T, 4) 106 KMLOCFNLKN(<, kminloc_real4, __REAL4_T, 8) 115 KMLOCFNG(<, kminloc_real4, __REAL4_T)
|
H A D | red_maxval.c | 30 CONDFNLKN(>, maxval_real4, __REAL4_T, 1) 39 CONDFNLKN(>, maxval_real4, __REAL4_T, 2) 48 CONDFNLKN(>, maxval_real4, __REAL4_T, 4) 57 CONDFNLKN(>, maxval_real4, __REAL4_T, 8) 66 CONDFNG(>, maxval_real4, __REAL4_T)
|
H A D | red_minval.c | 30 CONDFNLKN(<, minval_real4, __REAL4_T, 1) 39 CONDFNLKN(<, minval_real4, __REAL4_T, 2) 48 CONDFNLKN(<, minval_real4, __REAL4_T, 4) 57 CONDFNLKN(<, minval_real4, __REAL4_T, 8) 66 CONDFNG(<, minval_real4, __REAL4_T)
|
H A D | assign.c | 33 #define PP_REAL4(i) (*(__REAL4_T *)(i)) 86 PP_REAL4(item) = (__REAL4_T)to_bigreal(lp); in __fortio_assign() 97 PP_REAL4(item) = (__REAL4_T)to_bigreal(lp); in __fortio_assign() 100 (__REAL4_T)to_bigreal(lp + 1); in __fortio_assign() 156 PP_REAL4(item) = (__REAL4_T)valp->val.i; in __fortio_assign() 167 PP_REAL4(item) = (__REAL4_T)valp->val.i; in __fortio_assign()
|
H A D | const.c | 59 sizeof(__REAL4_T), /* F real*4 */ 158 static __REAL4_T max_real4 = MAXFLOAT; 217 static __REAL4_T min_real4 = -MAXFLOAT; 275 static __REAL4_T unit_real4 = 1.0; 330 static __REAL4_T __fort_true_real4; 385 static __REAL4_T __fort_mask_real4;
|
H A D | miscsup_com.c | 582 __REAL4_T 3047 __REAL4_T 3811 __REAL4_T 4490 __REAL4_T 4506 __REAL4_T 4531 __REAL4_T 4551 __REAL4_T 4583 __REAL4_T 4603 __REAL4_T 4634 __REAL4_T [all …]
|
H A D | fortDt.h | 158 typedef float __REAL4_T; /* 27 __REAL4 real*4 */ typedef 165 __REAL4_T r, i; 249 typedef __REAL4_T __REAL_T;
|
H A D | gathscat.c | 98 local_scatter_REAL4(int n, __REAL4_T *dst, int *sv, __REAL4_T *src) in local_scatter_REAL4() 257 local_gathscat_REAL4(int n, __REAL4_T *dst, int *sv, __REAL4_T *src, int *gv) in local_gathscat_REAL4()
|
H A D | gather.c | 88 local_gather_REAL4(int n, __REAL4_T *dst, __REAL4_T *src, int *gv) in local_gather_REAL4()
|
H A D | scalar_copy.c | 154 copy_real4(__REAL4_T *rp, __REAL4_T *sp, int size) in copy_real4()
|
H A D | format.h | 75 __BIGREAL_T __fortio_chk_f(__REAL4_T *);
|
H A D | scatter_maxval.c | 59 scatter_maxval_real4(int n, __REAL4_T *r, int *sv, __REAL4_T *a) in scatter_maxval_real4() 153 gathscat_maxval_real4(int n, __REAL4_T *r, int *sv, __REAL4_T *a, int *gv) in gathscat_maxval_real4()
|
H A D | scatter_minval.c | 59 scatter_minval_real4(int n, __REAL4_T *r, int *sv, __REAL4_T *a) in scatter_minval_real4() 153 gathscat_minval_real4(int n, __REAL4_T *r, int *sv, __REAL4_T *a, int *gv) in gathscat_minval_real4()
|
H A D | red_norm2.c | 22 void F90_I8(stride_1_norm2_real4) (__POINT_T *src_pointer, __INT_T *size, __REAL4_T *result) { in F90_I8()
|
H A D | red.c | 795 ((__REAL4_T *)rb)[i] = *(__REAL4_T *)zb; in I8() 988 ((__REAL4_T *)rb)[i] = *(__REAL4_T *)zb; in I8() 1179 ((__REAL4_T *)rb)[i] = *(__REAL4_T *)zb; in I8()
|
H A D | dbug.c | 74 fprintf(__io_stderr(), "%g", *(__REAL4_T *)adr); in __fort_print_scalar() 501 __REAL4_T *r4; in I8()
|
H A D | mmul.c | 37 dotp_real4(__REAL4_T *c, int nj, __REAL4_T *a, int ai, int ais, __REAL4_T *b, in dotp_real4()
|
H A D | fmtconv.c | 67 #define PP_REAL4(i) (__fortio_chk_f((__REAL4_T *)(i))) 1171 __fortio_chk_f(__REAL4_T *f) in __fortio_chk_f()
|