/dports/math/libpgmath/flang-d07daf3/runtime/flang/ |
H A D | red_sum.c | 89 ARITHFN(+, sum_real16, __REAL16_T, __REAL16_T) 92 CSUMFN(sum_cplx32, __CPLX32_T, __REAL16_T) 100 ARITHFNLKN(+, sum_real16, __REAL16_T, __REAL16_T, 1) 103 CSUMFNLKN(sum_cplx32, __CPLX32_T, __REAL16_T, 1) 111 ARITHFNLKN(+, sum_real16, __REAL16_T, __REAL16_T, 2) 114 CSUMFNLKN(sum_cplx32, __CPLX32_T, __REAL16_T, 2) 122 ARITHFNLKN(+, sum_real16, __REAL16_T, __REAL16_T, 4) 125 CSUMFNLKN(sum_cplx32, __CPLX32_T, __REAL16_T, 4) 133 ARITHFNLKN(+, sum_real16, __REAL16_T, __REAL16_T, 8) 136 CSUMFNLKN(sum_cplx32, __CPLX32_T, __REAL16_T, 8)
|
H A D | red_maxloc.c | 32 MLOCFNLKN(>, maxloc_real16, __REAL16_T, 1) 41 MLOCFNLKN(>, maxloc_real16, __REAL16_T, 2) 50 MLOCFNLKN(>, maxloc_real16, __REAL16_T, 4) 59 MLOCFNLKN(>, maxloc_real16, __REAL16_T, 8) 68 MLOCFNG(>, maxloc_real16, __REAL16_T) 80 KMLOCFNLKN(>, kmaxloc_real16, __REAL16_T, 1) 89 KMLOCFNLKN(>, kmaxloc_real16, __REAL16_T, 2) 98 KMLOCFNLKN(>, kmaxloc_real16, __REAL16_T, 4) 107 KMLOCFNLKN(>, kmaxloc_real16, __REAL16_T, 8) 116 KMLOCFNG(>, kmaxloc_real16, __REAL16_T)
|
H A D | red_findloc.c | 32 FLOCFNLKN(==, findloc_real16, __REAL16_T, 1) 41 FLOCFNLKN(==, findloc_real16, __REAL16_T, 2) 50 FLOCFNLKN(==, findloc_real16, __REAL16_T, 4) 59 FLOCFNLKN(==, findloc_real16, __REAL16_T, 8) 68 FLOCFNG(==, findloc_real16, __REAL16_T) 80 KFLOCFNLKN(==, kfindloc_real16, __REAL16_T, 1) 89 KFLOCFNLKN(==, kfindloc_real16, __REAL16_T, 2) 98 KFLOCFNLKN(==, kfindloc_real16, __REAL16_T, 4) 107 KFLOCFNLKN(==, kfindloc_real16, __REAL16_T, 8) 116 KFLOCFNG(==, kfindloc_real16, __REAL16_T)
|
H A D | red_minloc.c | 33 MLOCFNLKN(<, minloc_real16, __REAL16_T, 1) 42 MLOCFNLKN(<, minloc_real16, __REAL16_T, 2) 51 MLOCFNLKN(<, minloc_real16, __REAL16_T, 4) 60 MLOCFNLKN(<, minloc_real16, __REAL16_T, 8) 69 MLOCFNG(<, minloc_real16, __REAL16_T) 81 KMLOCFNLKN(<, kminloc_real16, __REAL16_T, 1) 90 KMLOCFNLKN(<, kminloc_real16, __REAL16_T, 2) 99 KMLOCFNLKN(<, kminloc_real16, __REAL16_T, 4) 108 KMLOCFNLKN(<, kminloc_real16, __REAL16_T, 8) 117 KMLOCFNG(<, kminloc_real16, __REAL16_T)
|
H A D | fortDt.h | 162 typedef double __REAL16_T; /* 29 __REAL16 real*16 */ typedef 173 __REAL16_T r, i; 204 __REAL16_T q; 228 typedef __REAL16_T __DBLE_T;
|
H A D | red_maxval.c | 32 CONDFNLKN(>, maxval_real16, __REAL16_T, 1) 41 CONDFNLKN(>, maxval_real16, __REAL16_T, 2) 50 CONDFNLKN(>, maxval_real16, __REAL16_T, 4) 59 CONDFNLKN(>, maxval_real16, __REAL16_T, 8) 68 CONDFNG(>, maxval_real16, __REAL16_T)
|
H A D | red_minval.c | 32 CONDFNLKN(<, minval_real16, __REAL16_T, 1) 41 CONDFNLKN(<, minval_real16, __REAL16_T, 2) 50 CONDFNLKN(<, minval_real16, __REAL16_T, 4) 59 CONDFNLKN(<, minval_real16, __REAL16_T, 8) 68 CONDFNG(<, minval_real16, __REAL16_T)
|
H A D | const.c | 61 sizeof(__REAL16_T), /* F real*16 */ 160 static __REAL16_T max_real16 = MAXDOUBLE; 219 static __REAL16_T min_real16 = -MAXDOUBLE; 277 static __REAL16_T unit_real16 = 1.0; 332 static __REAL16_T __fort_true_real16; 387 static __REAL16_T __fort_mask_real16;
|
H A D | assign.c | 35 #define PP_REAL16(i) (*(__REAL16_T *)(i)) 92 PP_REAL16(item) = (__REAL16_T)to_bigreal(lp); in __fortio_assign() 113 PP_REAL16(item) = (__REAL16_T)to_bigreal(lp); in __fortio_assign() 116 (__REAL16_T)to_bigreal(lp + 1); in __fortio_assign() 162 PP_REAL16(item) = (__REAL16_T)valp->val.i; in __fortio_assign()
|
H A D | gathscat.c | 114 local_scatter_REAL16(int n, __REAL16_T *dst, int *sv, __REAL16_T *src) in local_scatter_REAL16() 273 local_gathscat_REAL16(int n, __REAL16_T *dst, int *sv, __REAL16_T *src, int *gv) in local_gathscat_REAL16()
|
H A D | gather.c | 104 local_gather_REAL16(int n, __REAL16_T *dst, __REAL16_T *src, int *gv) in local_gather_REAL16()
|
H A D | scalar_copy.c | 164 copy_real16(__REAL16_T *rp, __REAL16_T *sp, int size) in copy_real16()
|
H A D | scatter_maxval.c | 75 scatter_maxval_real16(int n, __REAL16_T *r, int *sv, __REAL16_T *a) in scatter_maxval_real16() 169 gathscat_maxval_real16(int n, __REAL16_T *r, int *sv, __REAL16_T *a, int *gv) in gathscat_maxval_real16()
|
H A D | scatter_minval.c | 75 scatter_minval_real16(int n, __REAL16_T *r, int *sv, __REAL16_T *a) in scatter_minval_real16() 169 gathscat_minval_real16(int n, __REAL16_T *r, int *sv, __REAL16_T *a, int *gv) in gathscat_minval_real16()
|
H A D | red.c | 803 ((__REAL16_T *)rb)[i] = *(__REAL16_T *)zb; in I8() 996 ((__REAL16_T *)rb)[i] = *(__REAL16_T *)zb; in I8() 1187 ((__REAL16_T *)rb)[i] = *(__REAL16_T *)zb; in I8()
|
H A D | dbug.c | 80 fprintf(__io_stderr(), "%lg", *(__REAL16_T *)adr); in __fort_print_scalar() 503 __REAL16_T *r16; in I8()
|
H A D | miscsup_com.c | 3061 __REAL16_T 3063 (__REAL16_T *tsource, __REAL16_T *fsource, void *mask, __INT_T *size) 3474 return *(__REAL16_T *)a; 3512 return *(__REAL16_T *)a; 3550 return *(__REAL16_T *)a; 3588 return *(__REAL16_T *)a; 3626 return *(__REAL16_T *)a; 4987 *(__REAL16_T *)b = (__REAL16_T)v;
|
H A D | fmtconv.c | 69 #define PP_REAL16(i) (*(__REAL16_T *)(i))
|
H A D | fmtwrite.c | 1789 __REAL16_T r16; in fw_writenum() 1868 dval = *(__REAL16_T *)item; in fw_writenum()
|
H A D | fmtread.c | 2366 *((__REAL16_T *)item) = (__REAL16_T)dval; in fr_assign()
|
H A D | type.c | 1592 sizeof(__REAL16_T), 0, 0, 0, 0,
|