/dports/math/libpgmath/flang-d07daf3/runtime/flang/ |
H A D | mmulreal8_t.c | 68 __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 D | mmulreal4_t.c | 68 __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 D | mmulcplx16_t.c | 68 __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 D | mmulcplx8_t.c | 68 __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 D | mmulint1.c | 68 __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 D | mmulint2.c | 68 __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 D | mmulint4.c | 68 __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 D | mmulint8.c | 68 __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 D | mmulreal4.c | 68 __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 D | mmulreal8.c | 68 __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 D | mmulcplx16.c | 68 __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 D | mmulcplx8.c | 68 __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 D | mmullog2.c | 63 __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 D | mmullog4.c | 63 __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 D | mmullog8.c | 63 __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 D | mmullog1.c | 63 __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()
|