Home
last modified time | relevance | path

Searched refs:s1_d1_sstride (Results 1 – 16 of 16) sorted by relevance

/dports/math/libpgmath/flang-d07daf3/runtime/flang/
H A Dmmulreal8_t.c43 __INT_T s1_d1_sstride; in ENTF90() local
111 s1_d1_sstride = F90_DIM_SSTRIDE_G(s1_desc, 0); in ENTF90()
113 if (s1_d1_sstride != 1 || F90_DIM_SOFFSET_G(s1_desc, 0)) in ENTF90()
114 s1_d1_soffset = F90_DIM_SOFFSET_G(s1_desc, 0) + s1_d1_sstride - s1_d1_lb; in ENTF90()
152 if ((s1_d1_sstride == 1) && (s2_d1_sstride == 1) && (d_d1_sstride == 1) && in ENTF90()
209 s1_m_delta = s1_d1_sstride * s1_d1_lstride; in ENTF90()
H A Dmmulreal4_t.c43 __INT_T s1_d1_sstride; in ENTF90() local
111 s1_d1_sstride = F90_DIM_SSTRIDE_G(s1_desc, 0); in ENTF90()
113 if (s1_d1_sstride != 1 || F90_DIM_SOFFSET_G(s1_desc, 0)) in ENTF90()
114 s1_d1_soffset = F90_DIM_SOFFSET_G(s1_desc, 0) + s1_d1_sstride - s1_d1_lb; in ENTF90()
152 if ((s1_d1_sstride == 1) && (s2_d1_sstride == 1) && (d_d1_sstride == 1) && in ENTF90()
209 s1_m_delta = s1_d1_sstride * s1_d1_lstride; in ENTF90()
H A Dmmulcplx16_t.c43 __INT_T s1_d1_sstride; in ENTF90() local
111 s1_d1_sstride = F90_DIM_SSTRIDE_G(s1_desc, 0); in ENTF90()
113 if (s1_d1_sstride != 1 || F90_DIM_SOFFSET_G(s1_desc, 0)) in ENTF90()
114 s1_d1_soffset = F90_DIM_SOFFSET_G(s1_desc, 0) + s1_d1_sstride - s1_d1_lb; in ENTF90()
152 if ((s1_d1_sstride == 1) && (s2_d1_sstride == 1) && (d_d1_sstride == 1) && in ENTF90()
209 s1_m_delta = s1_d1_sstride * s1_d1_lstride; in ENTF90()
H A Dmmulcplx8_t.c43 __INT_T s1_d1_sstride; in ENTF90() local
111 s1_d1_sstride = F90_DIM_SSTRIDE_G(s1_desc, 0); in ENTF90()
113 if (s1_d1_sstride != 1 || F90_DIM_SOFFSET_G(s1_desc, 0)) in ENTF90()
114 s1_d1_soffset = F90_DIM_SOFFSET_G(s1_desc, 0) + s1_d1_sstride - s1_d1_lb; in ENTF90()
152 if ((s1_d1_sstride == 1) && (s2_d1_sstride == 1) && (d_d1_sstride == 1) && in ENTF90()
209 s1_m_delta = s1_d1_sstride * s1_d1_lstride; in ENTF90()
H A Dmmulint1.c43 __INT_T s1_d1_sstride; in ENTF90() local
133 s1_d1_sstride = F90_DIM_SSTRIDE_G(s1_desc, 0); in ENTF90()
135 if (s1_d1_sstride != 1 || F90_DIM_SOFFSET_G(s1_desc, 0)) in ENTF90()
136 s1_d1_soffset = F90_DIM_SOFFSET_G(s1_desc, 0) + s1_d1_sstride - s1_d1_lb; in ENTF90()
187 s1_d1_delta = s1_d1_sstride * s1_d1_lstride; in ENTF90()
198 if ((s1_d1_sstride == 1) && (s2_d1_sstride == 1) && (d_d1_sstride == 1) && in ENTF90()
H A Dmmulint2.c43 __INT_T s1_d1_sstride; in ENTF90() local
133 s1_d1_sstride = F90_DIM_SSTRIDE_G(s1_desc, 0); in ENTF90()
135 if (s1_d1_sstride != 1 || F90_DIM_SOFFSET_G(s1_desc, 0)) in ENTF90()
136 s1_d1_soffset = F90_DIM_SOFFSET_G(s1_desc, 0) + s1_d1_sstride - s1_d1_lb; in ENTF90()
187 s1_d1_delta = s1_d1_sstride * s1_d1_lstride; in ENTF90()
198 if ((s1_d1_sstride == 1) && (s2_d1_sstride == 1) && (d_d1_sstride == 1) && in ENTF90()
H A Dmmulint4.c43 __INT_T s1_d1_sstride; in ENTF90() local
133 s1_d1_sstride = F90_DIM_SSTRIDE_G(s1_desc, 0); in ENTF90()
135 if (s1_d1_sstride != 1 || F90_DIM_SOFFSET_G(s1_desc, 0)) in ENTF90()
136 s1_d1_soffset = F90_DIM_SOFFSET_G(s1_desc, 0) + s1_d1_sstride - s1_d1_lb; in ENTF90()
187 s1_d1_delta = s1_d1_sstride * s1_d1_lstride; in ENTF90()
198 if ((s1_d1_sstride == 1) && (s2_d1_sstride == 1) && (d_d1_sstride == 1) && in ENTF90()
H A Dmmulint8.c43 __INT_T s1_d1_sstride; in ENTF90() local
133 s1_d1_sstride = F90_DIM_SSTRIDE_G(s1_desc, 0); in ENTF90()
135 if (s1_d1_sstride != 1 || F90_DIM_SOFFSET_G(s1_desc, 0)) in ENTF90()
136 s1_d1_soffset = F90_DIM_SOFFSET_G(s1_desc, 0) + s1_d1_sstride - s1_d1_lb; in ENTF90()
187 s1_d1_delta = s1_d1_sstride * s1_d1_lstride; in ENTF90()
198 if ((s1_d1_sstride == 1) && (s2_d1_sstride == 1) && (d_d1_sstride == 1) && in ENTF90()
H A Dmmulreal4.c43 __INT_T s1_d1_sstride; in ENTF90() local
133 s1_d1_sstride = F90_DIM_SSTRIDE_G(s1_desc, 0); in ENTF90()
135 if (s1_d1_sstride != 1 || F90_DIM_SOFFSET_G(s1_desc, 0)) in ENTF90()
136 s1_d1_soffset = F90_DIM_SOFFSET_G(s1_desc, 0) + s1_d1_sstride - s1_d1_lb; in ENTF90()
187 s1_d1_delta = s1_d1_sstride * s1_d1_lstride; in ENTF90()
198 if ((s1_d1_sstride == 1) && (s2_d1_sstride == 1) && (d_d1_sstride == 1) && in ENTF90()
H A Dmmulreal8.c43 __INT_T s1_d1_sstride; in ENTF90() local
133 s1_d1_sstride = F90_DIM_SSTRIDE_G(s1_desc, 0); in ENTF90()
135 if (s1_d1_sstride != 1 || F90_DIM_SOFFSET_G(s1_desc, 0)) in ENTF90()
136 s1_d1_soffset = F90_DIM_SOFFSET_G(s1_desc, 0) + s1_d1_sstride - s1_d1_lb; in ENTF90()
187 s1_d1_delta = s1_d1_sstride * s1_d1_lstride; in ENTF90()
198 if ((s1_d1_sstride == 1) && (s2_d1_sstride == 1) && (d_d1_sstride == 1) && in ENTF90()
H A Dmmulcplx16.c43 __INT_T s1_d1_sstride; in ENTF90() local
133 s1_d1_sstride = F90_DIM_SSTRIDE_G(s1_desc, 0); in ENTF90()
135 if (s1_d1_sstride != 1 || F90_DIM_SOFFSET_G(s1_desc, 0)) in ENTF90()
136 s1_d1_soffset = F90_DIM_SOFFSET_G(s1_desc, 0) + s1_d1_sstride - s1_d1_lb; in ENTF90()
188 s1_d1_delta = s1_d1_sstride * s1_d1_lstride; in ENTF90()
199 if ((s1_d1_sstride == 1) && (s2_d1_sstride == 1) && (d_d1_sstride == 1) && in ENTF90()
H A Dmmulcplx8.c43 __INT_T s1_d1_sstride; in ENTF90() local
133 s1_d1_sstride = F90_DIM_SSTRIDE_G(s1_desc, 0); in ENTF90()
135 if (s1_d1_sstride != 1 || F90_DIM_SOFFSET_G(s1_desc, 0)) in ENTF90()
136 s1_d1_soffset = F90_DIM_SOFFSET_G(s1_desc, 0) + s1_d1_sstride - s1_d1_lb; in ENTF90()
188 s1_d1_delta = s1_d1_sstride * s1_d1_lstride; in ENTF90()
199 if ((s1_d1_sstride == 1) && (s2_d1_sstride == 1) && (d_d1_sstride == 1) && in ENTF90()
H A Dmmullog2.c38 __INT_T s1_d1_sstride; in ENTF90() local
128 s1_d1_sstride = F90_DIM_SSTRIDE_G(s1_desc, 0); in ENTF90()
130 if (s1_d1_sstride != 1 || F90_DIM_SOFFSET_G(s1_desc, 0)) in ENTF90()
131 s1_d1_soffset = F90_DIM_SOFFSET_G(s1_desc, 0) + s1_d1_sstride - s1_d1_lb; in ENTF90()
183 s1_d1_delta = s1_d1_sstride * s1_d1_lstride; in ENTF90()
H A Dmmullog4.c38 __INT_T s1_d1_sstride; in ENTF90() local
128 s1_d1_sstride = F90_DIM_SSTRIDE_G(s1_desc, 0); in ENTF90()
130 if (s1_d1_sstride != 1 || F90_DIM_SOFFSET_G(s1_desc, 0)) in ENTF90()
131 s1_d1_soffset = F90_DIM_SOFFSET_G(s1_desc, 0) + s1_d1_sstride - s1_d1_lb; in ENTF90()
183 s1_d1_delta = s1_d1_sstride * s1_d1_lstride; in ENTF90()
H A Dmmullog8.c38 __INT_T s1_d1_sstride; in ENTF90() local
128 s1_d1_sstride = F90_DIM_SSTRIDE_G(s1_desc, 0); in ENTF90()
130 if (s1_d1_sstride != 1 || F90_DIM_SOFFSET_G(s1_desc, 0)) in ENTF90()
131 s1_d1_soffset = F90_DIM_SOFFSET_G(s1_desc, 0) + s1_d1_sstride - s1_d1_lb; in ENTF90()
183 s1_d1_delta = s1_d1_sstride * s1_d1_lstride; in ENTF90()
H A Dmmullog1.c38 __INT_T s1_d1_sstride; in ENTF90() local
128 s1_d1_sstride = F90_DIM_SSTRIDE_G(s1_desc, 0); in ENTF90()
130 if (s1_d1_sstride != 1 || F90_DIM_SOFFSET_G(s1_desc, 0)) in ENTF90()
131 s1_d1_soffset = F90_DIM_SOFFSET_G(s1_desc, 0) + s1_d1_sstride - s1_d1_lb; in ENTF90()
183 s1_d1_delta = s1_d1_sstride * s1_d1_lstride; in ENTF90()