Home
last modified time | relevance | path

Searched refs:__CPLX32_T (Results 1 – 11 of 11) sorted by relevance

/dports/math/libpgmath/flang-d07daf3/runtime/flang/
H A Dred_sum.c92 CSUMFN(sum_cplx32, __CPLX32_T, __REAL16_T)
103 CSUMFNLKN(sum_cplx32, __CPLX32_T, __REAL16_T, 1)
114 CSUMFNLKN(sum_cplx32, __CPLX32_T, __REAL16_T, 2)
125 CSUMFNLKN(sum_cplx32, __CPLX32_T, __REAL16_T, 4)
136 CSUMFNLKN(sum_cplx32, __CPLX32_T, __REAL16_T, 8)
H A Dconst.c62 sizeof(__CPLX32_T), /* F complex*32 (2x real*16) */
280 static __CPLX32_T unit_cplx32 = {1.0, 0.0};
335 static __CPLX32_T __fort_true_cplx32;
390 static __CPLX32_T __fort_mask_cplx32;
H A Dgathscat.c138 local_scatter_CPLX32(int n, __CPLX32_T *dst, int *sv, __CPLX32_T *src) in local_scatter_CPLX32()
297 local_gathscat_CPLX32(int n, __CPLX32_T *dst, int *sv, __CPLX32_T *src, int *gv) in local_gathscat_CPLX32()
H A DfortDt.h174 } __CPLX32_T; /* 30 __CPLX32 complex*32 */ typedef
230 typedef __CPLX32_T __DCPLX_T;
H A Dgather.c128 local_gather_CPLX32(int n, __CPLX32_T *dst, __CPLX32_T *src, int *gv) in local_gather_CPLX32()
H A Dassign.c115 PP_REAL16(item + (sizeof(__CPLX32_T) >> 1)) = in __fortio_assign()
118 PP_REAL16(item + (sizeof(__CPLX32_T) >> 1)) = 0; in __fortio_assign()
176 PP_REAL16(item + (sizeof(__CPLX32_T) >> 1)) = 0; in __fortio_assign()
H A Dscalar_copy.c169 copy_cplx32(__CPLX32_T *rp, __CPLX32_T *sp, int size) in copy_cplx32()
H A Ddbug.c91 fprintf(__io_stderr(), "(%lg,%lg)", ((__CPLX32_T *)adr)->r, in __fort_print_scalar()
92 ((__CPLX32_T *)adr)->i); in __fort_print_scalar()
506 __CPLX32_T *c32; in I8()
H A Dred.c815 ((__CPLX32_T *)rb)[i] = *(__CPLX32_T *)zb; in I8()
1008 ((__CPLX32_T *)rb)[i] = *(__CPLX32_T *)zb; in I8()
1199 ((__CPLX32_T *)rb)[i] = *(__CPLX32_T *)zb; in I8()
H A Dmiscsup_com.c3480 return ((__CPLX32_T *)a)->r;
3518 return ((__CPLX32_T *)a)->r;
3556 return ((__CPLX32_T *)a)->r;
3594 return ((__CPLX32_T *)a)->r;
3632 return ((__CPLX32_T *)a)->r;
H A Dtype.c1601 sizeof(__CPLX32_T), 0, 0, 0, 0,