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