/dports/math/libpgmath/flang-d07daf3/runtime/flang/ |
H A D | matmul.h | 83 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 D | red_norm2_stride1.c | 26 __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 D | mmulreal8_t.c | 34 __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 D | red_sum.c | 88 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 D | mmulreal8.c | 33 __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 D | fortDt.h | 160 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 D | red_maxloc.c | 31 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 D | red_findloc.c | 31 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 D | red_minloc.c | 32 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 D | red_maxval.c | 31 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 D | red_minval.c | 31 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 D | const.c | 60 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 D | assign.c | 34 #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 D | miscsup_com.c | 610 __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 D | gathscat.c | 106 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 D | gather.c | 96 local_gather_REAL8(int n, __REAL8_T *dst, __REAL8_T *src, int *gv) in local_gather_REAL8()
|
H A D | scalar_copy.c | 159 copy_real8(__REAL8_T *rp, __REAL8_T *sp, int size) in copy_real8()
|
H A D | scatter_maxval.c | 67 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 D | scatter_minval.c | 67 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 D | red_norm2.c | 26 void F90_I8(stride_1_norm2_real8) (__POINT_T *src_pointer, __INT_T *size, __REAL8_T *result) { in F90_I8()
|
H A D | red.c | 799 ((__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 D | dbug.c | 77 fprintf(__io_stderr(), "%g", *(__REAL8_T *)adr); in __fort_print_scalar() 502 __REAL8_T *r8; in I8()
|
H A D | mmul.c | 48 dotp_real8(__REAL8_T *c, int nj, __REAL8_T *a, int ai, int ais, __REAL8_T *b, in dotp_real8()
|
H A D | fmtconv.c | 68 #define PP_REAL8(i) (*(__REAL8_T *)(i))
|
H A D | fmtwrite.c | 1785 __REAL8_T r8; in fw_writenum() 1855 dval = *(__REAL8_T *)item; in fw_writenum()
|