Home
last modified time | relevance | path

Searched refs:__REAL8_T (Results 1 – 25 of 28) sorted by relevance

12

/dports/math/libpgmath/flang-d07daf3/runtime/flang/
H A Dmatmul.h83 void f90_mm_real8_str1_mxv_(__REAL8_T *, __REAL8_T *, __REAL8_T *, __INT_T *,
85 void f90_mm_real8_str1_vxm_(__REAL8_T *, __REAL8_T *, __REAL8_T *, __INT_T *,
87 void f90_mm_real8_str1_(__REAL8_T *, __REAL8_T *, __REAL8_T *, __INT_T *,
90 void f90_mm_real8_str1_mxv_t_(__REAL8_T *, __REAL8_T *, __REAL8_T *,
H A Dred_norm2_stride1.c26 __REAL8_T sum = 0, val; in NORM2_REAL4()
30 val = (__REAL8_T) src[i]; in NORM2_REAL4()
37 void NORM2_REAL8 (__POINT_T *src_pointer, __INT_T *size, __REAL8_T *result) { in NORM2_REAL8()
39 __REAL8_T *src = (__REAL8_T *)(*src_pointer); in NORM2_REAL8()
40 __REAL8_T sum = 0; in NORM2_REAL8()
H A Dmmulreal8_t.c34 __REAL8_T *s1_base; in ENTF90()
35 __REAL8_T *s1_elem_p; in ENTF90()
36 __REAL8_T *s2_base; in ENTF90()
37 __REAL8_T *s2_elem_p; in ENTF90()
38 __REAL8_T *dest_base; in ENTF90()
40 __REAL8_T rslt_tmp; in ENTF90()
156 s1_base = (__REAL8_T *)s1_addr + F90_LBASE_G(s1_desc) + in ENTF90()
159 s2_base = (__REAL8_T *)s2_addr + F90_LBASE_G(s2_desc) + in ENTF90()
162 dest_base = (__REAL8_T *)dest_addr + F90_LBASE_G(dest_desc) + in ENTF90()
195 s1_base = (__REAL8_T *)s1_addr + F90_LBASE_G(s1_desc) + in ENTF90()
[all …]
H A Dred_sum.c88 ARITHFN(+, sum_real8, __REAL8_T, __REAL8_T)
91 CSUMFN(sum_cplx16, __CPLX16_T, __REAL8_T)
99 ARITHFNLKN(+, sum_real8, __REAL8_T, __REAL8_T, 1)
102 CSUMFNLKN(sum_cplx16, __CPLX16_T, __REAL8_T, 1)
110 ARITHFNLKN(+, sum_real8, __REAL8_T, __REAL8_T, 2)
113 CSUMFNLKN(sum_cplx16, __CPLX16_T, __REAL8_T, 2)
121 ARITHFNLKN(+, sum_real8, __REAL8_T, __REAL8_T, 4)
124 CSUMFNLKN(sum_cplx16, __CPLX16_T, __REAL8_T, 4)
132 ARITHFNLKN(+, sum_real8, __REAL8_T, __REAL8_T, 8)
135 CSUMFNLKN(sum_cplx16, __CPLX16_T, __REAL8_T, 8)
H A Dmmulreal8.c33 __REAL8_T *s1_base; in ENTF90()
34 __REAL8_T *s2_base; in ENTF90()
35 __REAL8_T *dest_base; in ENTF90()
36 __REAL8_T *d_elem_p; in ENTF90()
37 __REAL8_T *s1_elem_p; in ENTF90()
38 __REAL8_T *s2_elem_p; in ENTF90()
40 __REAL8_T rslt_tmp; in ENTF90()
173 s1_base = (__REAL8_T *)s1_addr + F90_LBASE_G(s1_desc) + in ENTF90()
175 s2_base = (__REAL8_T *)s2_addr + F90_LBASE_G(s2_desc) + in ENTF90()
177 dest_base = (__REAL8_T *)dest_addr + F90_LBASE_G(dest_desc) + in ENTF90()
H A DfortDt.h160 typedef double __REAL8_T; /* 28 __REAL8 real*8 */ typedef
169 __REAL8_T r, i;
196 __REAL8_T d;
227 typedef __REAL8_T __REAL_T;
250 typedef __REAL8_T __DBLE_T;
272 typedef __REAL8_T __BIGREAL_T;
H A Dred_maxloc.c31 MLOCFNLKN(>, maxloc_real8, __REAL8_T, 1)
40 MLOCFNLKN(>, maxloc_real8, __REAL8_T, 2)
49 MLOCFNLKN(>, maxloc_real8, __REAL8_T, 4)
58 MLOCFNLKN(>, maxloc_real8, __REAL8_T, 8)
67 MLOCFNG(>, maxloc_real8, __REAL8_T)
79 KMLOCFNLKN(>, kmaxloc_real8, __REAL8_T, 1)
88 KMLOCFNLKN(>, kmaxloc_real8, __REAL8_T, 2)
97 KMLOCFNLKN(>, kmaxloc_real8, __REAL8_T, 4)
106 KMLOCFNLKN(>, kmaxloc_real8, __REAL8_T, 8)
115 KMLOCFNG(>, kmaxloc_real8, __REAL8_T)
H A Dred_findloc.c31 FLOCFNLKN(==, findloc_real8, __REAL8_T, 1)
40 FLOCFNLKN(==, findloc_real8, __REAL8_T, 2)
49 FLOCFNLKN(==, findloc_real8, __REAL8_T, 4)
58 FLOCFNLKN(==, findloc_real8, __REAL8_T, 8)
67 FLOCFNG(==, findloc_real8, __REAL8_T)
79 KFLOCFNLKN(==, kfindloc_real8, __REAL8_T, 1)
88 KFLOCFNLKN(==, kfindloc_real8, __REAL8_T, 2)
97 KFLOCFNLKN(==, kfindloc_real8, __REAL8_T, 4)
106 KFLOCFNLKN(==, kfindloc_real8, __REAL8_T, 8)
115 KFLOCFNG(==, kfindloc_real8, __REAL8_T)
H A Dred_minloc.c32 MLOCFNLKN(<, minloc_real8, __REAL8_T, 1)
41 MLOCFNLKN(<, minloc_real8, __REAL8_T, 2)
50 MLOCFNLKN(<, minloc_real8, __REAL8_T, 4)
59 MLOCFNLKN(<, minloc_real8, __REAL8_T, 8)
68 MLOCFNG(<, minloc_real8, __REAL8_T)
80 KMLOCFNLKN(<, kminloc_real8, __REAL8_T, 1)
89 KMLOCFNLKN(<, kminloc_real8, __REAL8_T, 2)
98 KMLOCFNLKN(<, kminloc_real8, __REAL8_T, 4)
107 KMLOCFNLKN(<, kminloc_real8, __REAL8_T, 8)
116 KMLOCFNG(<, kminloc_real8, __REAL8_T)
H A Dred_maxval.c31 CONDFNLKN(>, maxval_real8, __REAL8_T, 1)
40 CONDFNLKN(>, maxval_real8, __REAL8_T, 2)
49 CONDFNLKN(>, maxval_real8, __REAL8_T, 4)
58 CONDFNLKN(>, maxval_real8, __REAL8_T, 8)
67 CONDFNG(>, maxval_real8, __REAL8_T)
H A Dred_minval.c31 CONDFNLKN(<, minval_real8, __REAL8_T, 1)
40 CONDFNLKN(<, minval_real8, __REAL8_T, 2)
49 CONDFNLKN(<, minval_real8, __REAL8_T, 4)
58 CONDFNLKN(<, minval_real8, __REAL8_T, 8)
67 CONDFNG(<, minval_real8, __REAL8_T)
H A Dconst.c60 sizeof(__REAL8_T), /* F real*8 */
159 static __REAL8_T max_real8 = MAXDOUBLE;
218 static __REAL8_T min_real8 = -MAXDOUBLE;
276 static __REAL8_T unit_real8 = 1.0;
331 static __REAL8_T __fort_true_real8;
386 static __REAL8_T __fort_mask_real8;
H A Dassign.c34 #define PP_REAL8(i) (*(__REAL8_T *)(i))
89 PP_REAL8(item) = (__REAL8_T)to_bigreal(lp); in __fortio_assign()
105 PP_REAL8(item) = (__REAL8_T)to_bigreal(lp); in __fortio_assign()
108 (__REAL8_T)to_bigreal(lp + 1); in __fortio_assign()
159 PP_REAL8(item) = (__REAL8_T)valp->val.i; in __fortio_assign()
H A Dmiscsup_com.c610 __REAL8_T
3054 __REAL8_T
3845 __REAL8_T
4509 __REAL8_T
4522 __REAL8_T
4557 __REAL8_T
4577 __REAL8_T
4609 __REAL8_T
4628 __REAL8_T
4670 __REAL8_T
[all …]
H A Dgathscat.c106 local_scatter_REAL8(int n, __REAL8_T *dst, int *sv, __REAL8_T *src) in local_scatter_REAL8()
265 local_gathscat_REAL8(int n, __REAL8_T *dst, int *sv, __REAL8_T *src, int *gv) in local_gathscat_REAL8()
H A Dgather.c96 local_gather_REAL8(int n, __REAL8_T *dst, __REAL8_T *src, int *gv) in local_gather_REAL8()
H A Dscalar_copy.c159 copy_real8(__REAL8_T *rp, __REAL8_T *sp, int size) in copy_real8()
H A Dscatter_maxval.c67 scatter_maxval_real8(int n, __REAL8_T *r, int *sv, __REAL8_T *a) in scatter_maxval_real8()
161 gathscat_maxval_real8(int n, __REAL8_T *r, int *sv, __REAL8_T *a, int *gv) in gathscat_maxval_real8()
H A Dscatter_minval.c67 scatter_minval_real8(int n, __REAL8_T *r, int *sv, __REAL8_T *a) in scatter_minval_real8()
161 gathscat_minval_real8(int n, __REAL8_T *r, int *sv, __REAL8_T *a, int *gv) in gathscat_minval_real8()
H A Dred_norm2.c26 void F90_I8(stride_1_norm2_real8) (__POINT_T *src_pointer, __INT_T *size, __REAL8_T *result) { in F90_I8()
H A Dred.c799 ((__REAL8_T *)rb)[i] = *(__REAL8_T *)zb; in I8()
992 ((__REAL8_T *)rb)[i] = *(__REAL8_T *)zb; in I8()
1183 ((__REAL8_T *)rb)[i] = *(__REAL8_T *)zb; in I8()
H A Ddbug.c77 fprintf(__io_stderr(), "%g", *(__REAL8_T *)adr); in __fort_print_scalar()
502 __REAL8_T *r8; in I8()
H A Dmmul.c48 dotp_real8(__REAL8_T *c, int nj, __REAL8_T *a, int ai, int ais, __REAL8_T *b, in dotp_real8()
H A Dfmtconv.c68 #define PP_REAL8(i) (*(__REAL8_T *)(i))
H A Dfmtwrite.c1785 __REAL8_T r8; in fw_writenum()
1855 dval = *(__REAL8_T *)item; in fw_writenum()

12