Home
last modified time | relevance | path

Searched refs:__REAL4_T (Results 1 – 25 of 29) sorted by relevance

12

/dports/math/libpgmath/flang-d07daf3/runtime/flang/
H A Dmatmul.h73 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 Dmmulreal4_t.c34 __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 Dred_sum.c87 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 Dmmulreal4.c33 __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 Dred_norm2_stride1.c23 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 Dred_maxloc.c30 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 Dred_findloc.c30 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 Dred_minloc.c31 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 Dred_maxval.c30 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 Dred_minval.c30 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 Dassign.c33 #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 Dconst.c59 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 Dmiscsup_com.c582 __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 DfortDt.h158 typedef float __REAL4_T; /* 27 __REAL4 real*4 */ typedef
165 __REAL4_T r, i;
249 typedef __REAL4_T __REAL_T;
H A Dgathscat.c98 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 Dgather.c88 local_gather_REAL4(int n, __REAL4_T *dst, __REAL4_T *src, int *gv) in local_gather_REAL4()
H A Dscalar_copy.c154 copy_real4(__REAL4_T *rp, __REAL4_T *sp, int size) in copy_real4()
H A Dformat.h75 __BIGREAL_T __fortio_chk_f(__REAL4_T *);
H A Dscatter_maxval.c59 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 Dscatter_minval.c59 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 Dred_norm2.c22 void F90_I8(stride_1_norm2_real4) (__POINT_T *src_pointer, __INT_T *size, __REAL4_T *result) { in F90_I8()
H A Dred.c795 ((__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 Ddbug.c74 fprintf(__io_stderr(), "%g", *(__REAL4_T *)adr); in __fort_print_scalar()
501 __REAL4_T *r4; in I8()
H A Dmmul.c37 dotp_real4(__REAL4_T *c, int nj, __REAL4_T *a, int ai, int ais, __REAL4_T *b, in dotp_real4()
H A Dfmtconv.c67 #define PP_REAL4(i) (__fortio_chk_f((__REAL4_T *)(i)))
1171 __fortio_chk_f(__REAL4_T *f) in __fortio_chk_f()

12