Home
last modified time | relevance | path

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

/dports/math/libpgmath/flang-d07daf3/runtime/flang/
H A Dmmulreal8_t.c68 __INT_T d_d2_sstride = 1; in ENTF90() local
147 d_d2_sstride = F90_DIM_SSTRIDE_G(dest_desc, 1); in ENTF90()
148 if (d_d2_sstride != 1 || F90_DIM_SOFFSET_G(dest_desc, 1)) in ENTF90()
149 d_d2_soffset = F90_DIM_SOFFSET_G(dest_desc, 1) + d_d2_sstride - d_d2_lb; in ENTF90()
153 (s1_d2_sstride == 1) && (s2_d2_sstride == 1) && (d_d2_sstride == 1) && in ENTF90()
205 d_k_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_m_delta; in ENTF90()
H A Dmmulreal4_t.c68 __INT_T d_d2_sstride = 1; in ENTF90() local
147 d_d2_sstride = F90_DIM_SSTRIDE_G(dest_desc, 1); in ENTF90()
148 if (d_d2_sstride != 1 || F90_DIM_SOFFSET_G(dest_desc, 1)) in ENTF90()
149 d_d2_soffset = F90_DIM_SOFFSET_G(dest_desc, 1) + d_d2_sstride - d_d2_lb; in ENTF90()
153 (s1_d2_sstride == 1) && (s2_d2_sstride == 1) && (d_d2_sstride == 1) && in ENTF90()
205 d_k_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_m_delta; in ENTF90()
H A Dmmulcplx16_t.c68 __INT_T d_d2_sstride = 1; in ENTF90() local
147 d_d2_sstride = F90_DIM_SSTRIDE_G(dest_desc, 1); in ENTF90()
148 if (d_d2_sstride != 1 || F90_DIM_SOFFSET_G(dest_desc, 1)) in ENTF90()
149 d_d2_soffset = F90_DIM_SOFFSET_G(dest_desc, 1) + d_d2_sstride - d_d2_lb; in ENTF90()
153 (s1_d2_sstride == 1) && (s2_d2_sstride == 1) && (d_d2_sstride == 1) && in ENTF90()
205 d_k_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_m_delta; in ENTF90()
H A Dmmulcplx8_t.c68 __INT_T d_d2_sstride = 1; in ENTF90() local
147 d_d2_sstride = F90_DIM_SSTRIDE_G(dest_desc, 1); in ENTF90()
148 if (d_d2_sstride != 1 || F90_DIM_SOFFSET_G(dest_desc, 1)) in ENTF90()
149 d_d2_soffset = F90_DIM_SOFFSET_G(dest_desc, 1) + d_d2_sstride - d_d2_lb; in ENTF90()
153 (s1_d2_sstride == 1) && (s2_d2_sstride == 1) && (d_d2_sstride == 1) && in ENTF90()
205 d_k_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_m_delta; in ENTF90()
H A Dmmulint1.c68 __INT_T d_d2_sstride = 1; in ENTF90() local
169 d_d2_sstride = F90_DIM_SSTRIDE_G(dest_desc, 1); in ENTF90()
170 if (d_d2_sstride != 1 || F90_DIM_SOFFSET_G(dest_desc, 1)) in ENTF90()
171 d_d2_soffset = F90_DIM_SOFFSET_G(dest_desc, 1) + d_d2_sstride - d_d2_lb; in ENTF90()
184 d_d2_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_d1_delta; in ENTF90()
199 (s1_d2_sstride == 1) && (s2_d2_sstride == 1) && (d_d2_sstride == 1) && in ENTF90()
H A Dmmulint2.c68 __INT_T d_d2_sstride = 1; in ENTF90() local
169 d_d2_sstride = F90_DIM_SSTRIDE_G(dest_desc, 1); in ENTF90()
170 if (d_d2_sstride != 1 || F90_DIM_SOFFSET_G(dest_desc, 1)) in ENTF90()
171 d_d2_soffset = F90_DIM_SOFFSET_G(dest_desc, 1) + d_d2_sstride - d_d2_lb; in ENTF90()
184 d_d2_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_d1_delta; in ENTF90()
199 (s1_d2_sstride == 1) && (s2_d2_sstride == 1) && (d_d2_sstride == 1) && in ENTF90()
H A Dmmulint4.c68 __INT_T d_d2_sstride = 1; in ENTF90() local
169 d_d2_sstride = F90_DIM_SSTRIDE_G(dest_desc, 1); in ENTF90()
170 if (d_d2_sstride != 1 || F90_DIM_SOFFSET_G(dest_desc, 1)) in ENTF90()
171 d_d2_soffset = F90_DIM_SOFFSET_G(dest_desc, 1) + d_d2_sstride - d_d2_lb; in ENTF90()
184 d_d2_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_d1_delta; in ENTF90()
199 (s1_d2_sstride == 1) && (s2_d2_sstride == 1) && (d_d2_sstride == 1) && in ENTF90()
H A Dmmulint8.c68 __INT_T d_d2_sstride = 1; in ENTF90() local
169 d_d2_sstride = F90_DIM_SSTRIDE_G(dest_desc, 1); in ENTF90()
170 if (d_d2_sstride != 1 || F90_DIM_SOFFSET_G(dest_desc, 1)) in ENTF90()
171 d_d2_soffset = F90_DIM_SOFFSET_G(dest_desc, 1) + d_d2_sstride - d_d2_lb; in ENTF90()
184 d_d2_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_d1_delta; in ENTF90()
199 (s1_d2_sstride == 1) && (s2_d2_sstride == 1) && (d_d2_sstride == 1) && in ENTF90()
H A Dmmulreal4.c68 __INT_T d_d2_sstride = 1; in ENTF90() local
169 d_d2_sstride = F90_DIM_SSTRIDE_G(dest_desc, 1); in ENTF90()
170 if (d_d2_sstride != 1 || F90_DIM_SOFFSET_G(dest_desc, 1)) in ENTF90()
171 d_d2_soffset = F90_DIM_SOFFSET_G(dest_desc, 1) + d_d2_sstride - d_d2_lb; in ENTF90()
184 d_d2_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_d1_delta; in ENTF90()
199 (s1_d2_sstride == 1) && (s2_d2_sstride == 1) && (d_d2_sstride == 1) && in ENTF90()
H A Dmmulreal8.c68 __INT_T d_d2_sstride = 1; in ENTF90() local
169 d_d2_sstride = F90_DIM_SSTRIDE_G(dest_desc, 1); in ENTF90()
170 if (d_d2_sstride != 1 || F90_DIM_SOFFSET_G(dest_desc, 1)) in ENTF90()
171 d_d2_soffset = F90_DIM_SOFFSET_G(dest_desc, 1) + d_d2_sstride - d_d2_lb; in ENTF90()
184 d_d2_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_d1_delta; in ENTF90()
199 (s1_d2_sstride == 1) && (s2_d2_sstride == 1) && (d_d2_sstride == 1) && in ENTF90()
H A Dmmulcplx16.c68 __INT_T d_d2_sstride = 1; in ENTF90() local
169 d_d2_sstride = F90_DIM_SSTRIDE_G(dest_desc, 1); in ENTF90()
170 if (d_d2_sstride != 1 || F90_DIM_SOFFSET_G(dest_desc, 1)) in ENTF90()
171 d_d2_soffset = F90_DIM_SOFFSET_G(dest_desc, 1) + d_d2_sstride - d_d2_lb; in ENTF90()
185 d_d2_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_d1_delta; in ENTF90()
200 (s1_d2_sstride == 1) && (s2_d2_sstride == 1) && (d_d2_sstride == 1) && in ENTF90()
H A Dmmulcplx8.c68 __INT_T d_d2_sstride = 1; in ENTF90() local
169 d_d2_sstride = F90_DIM_SSTRIDE_G(dest_desc, 1); in ENTF90()
170 if (d_d2_sstride != 1 || F90_DIM_SOFFSET_G(dest_desc, 1)) in ENTF90()
171 d_d2_soffset = F90_DIM_SOFFSET_G(dest_desc, 1) + d_d2_sstride - d_d2_lb; in ENTF90()
185 d_d2_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_d1_delta; in ENTF90()
200 (s1_d2_sstride == 1) && (s2_d2_sstride == 1) && (d_d2_sstride == 1) && in ENTF90()
H A Dmmullog2.c63 __INT_T d_d2_sstride = 1; in ENTF90() local
164 d_d2_sstride = F90_DIM_SSTRIDE_G(dest_desc, 1); in ENTF90()
165 if (d_d2_sstride != 1 || F90_DIM_SOFFSET_G(dest_desc, 1)) in ENTF90()
166 d_d2_soffset = F90_DIM_SOFFSET_G(dest_desc, 1) + d_d2_sstride - d_d2_lb; in ENTF90()
180 d_d2_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_d1_delta; in ENTF90()
H A Dmmullog4.c63 __INT_T d_d2_sstride = 1; in ENTF90() local
164 d_d2_sstride = F90_DIM_SSTRIDE_G(dest_desc, 1); in ENTF90()
165 if (d_d2_sstride != 1 || F90_DIM_SOFFSET_G(dest_desc, 1)) in ENTF90()
166 d_d2_soffset = F90_DIM_SOFFSET_G(dest_desc, 1) + d_d2_sstride - d_d2_lb; in ENTF90()
180 d_d2_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_d1_delta; in ENTF90()
H A Dmmullog8.c63 __INT_T d_d2_sstride = 1; in ENTF90() local
164 d_d2_sstride = F90_DIM_SSTRIDE_G(dest_desc, 1); in ENTF90()
165 if (d_d2_sstride != 1 || F90_DIM_SOFFSET_G(dest_desc, 1)) in ENTF90()
166 d_d2_soffset = F90_DIM_SOFFSET_G(dest_desc, 1) + d_d2_sstride - d_d2_lb; in ENTF90()
180 d_d2_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_d1_delta; in ENTF90()
H A Dmmullog1.c63 __INT_T d_d2_sstride = 1; in ENTF90() local
164 d_d2_sstride = F90_DIM_SSTRIDE_G(dest_desc, 1); in ENTF90()
165 if (d_d2_sstride != 1 || F90_DIM_SOFFSET_G(dest_desc, 1)) in ENTF90()
166 d_d2_soffset = F90_DIM_SOFFSET_G(dest_desc, 1) + d_d2_sstride - d_d2_lb; in ENTF90()
180 d_d2_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_d1_delta; in ENTF90()