/dports/math/libpgmath/flang-d07daf3/runtime/flang/ |
H A D | mmulint1.c | 73 __INT_T s1_rank = F90_RANK_G(s1_desc); in ENTF90() local 77 __INT_T m_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 1) in ENTF90() 79 __INT_T n_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 0) : 1; in ENTF90() 112 if (d_rank == 2 && s1_rank == 2 && s2_rank == 2) { in ENTF90() 118 } else if (d_rank == 1 && s1_rank == 2 && s2_rank == 1) { in ENTF90() 123 } else if (d_rank == 1 && s1_rank == 1 && s2_rank == 2) { in ENTF90() 138 if (s1_rank == 2) { in ENTF90() 184 d_d2_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_d1_delta; in ENTF90() 190 s1_d2_delta = s1_rank == 2 ? s1_d2_sstride * s1_d2_lstride : s1_d1_delta; in ENTF90() 210 } else if (s1_rank == 1) { in ENTF90() [all …]
|
H A D | mmulint2.c | 73 __INT_T s1_rank = F90_RANK_G(s1_desc); in ENTF90() local 77 __INT_T m_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 1) in ENTF90() 79 __INT_T n_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 0) : 1; in ENTF90() 112 if (d_rank == 2 && s1_rank == 2 && s2_rank == 2) { in ENTF90() 118 } else if (d_rank == 1 && s1_rank == 2 && s2_rank == 1) { in ENTF90() 123 } else if (d_rank == 1 && s1_rank == 1 && s2_rank == 2) { in ENTF90() 138 if (s1_rank == 2) { in ENTF90() 184 d_d2_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_d1_delta; in ENTF90() 190 s1_d2_delta = s1_rank == 2 ? s1_d2_sstride * s1_d2_lstride : s1_d1_delta; in ENTF90() 210 } else if (s1_rank == 1) { in ENTF90() [all …]
|
H A D | mmulint4.c | 73 __INT_T s1_rank = F90_RANK_G(s1_desc); in ENTF90() local 77 __INT_T m_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 1) in ENTF90() 79 __INT_T n_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 0) : 1; in ENTF90() 112 if (d_rank == 2 && s1_rank == 2 && s2_rank == 2) { in ENTF90() 118 } else if (d_rank == 1 && s1_rank == 2 && s2_rank == 1) { in ENTF90() 123 } else if (d_rank == 1 && s1_rank == 1 && s2_rank == 2) { in ENTF90() 138 if (s1_rank == 2) { in ENTF90() 184 d_d2_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_d1_delta; in ENTF90() 190 s1_d2_delta = s1_rank == 2 ? s1_d2_sstride * s1_d2_lstride : s1_d1_delta; in ENTF90() 210 } else if (s1_rank == 1) { in ENTF90() [all …]
|
H A D | mmulint8.c | 73 __INT_T s1_rank = F90_RANK_G(s1_desc); in ENTF90() local 77 __INT_T m_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 1) in ENTF90() 79 __INT_T n_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 0) : 1; in ENTF90() 112 if (d_rank == 2 && s1_rank == 2 && s2_rank == 2) { in ENTF90() 118 } else if (d_rank == 1 && s1_rank == 2 && s2_rank == 1) { in ENTF90() 123 } else if (d_rank == 1 && s1_rank == 1 && s2_rank == 2) { in ENTF90() 138 if (s1_rank == 2) { in ENTF90() 184 d_d2_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_d1_delta; in ENTF90() 190 s1_d2_delta = s1_rank == 2 ? s1_d2_sstride * s1_d2_lstride : s1_d1_delta; in ENTF90() 210 } else if (s1_rank == 1) { in ENTF90() [all …]
|
H A D | mmulreal4.c | 73 __INT_T s1_rank = F90_RANK_G(s1_desc); in ENTF90() local 77 __INT_T m_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 1) in ENTF90() 79 __INT_T n_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 0) : 1; in ENTF90() 112 if (d_rank == 2 && s1_rank == 2 && s2_rank == 2) { in ENTF90() 118 } else if (d_rank == 1 && s1_rank == 2 && s2_rank == 1) { in ENTF90() 123 } else if (d_rank == 1 && s1_rank == 1 && s2_rank == 2) { in ENTF90() 138 if (s1_rank == 2) { in ENTF90() 184 d_d2_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_d1_delta; in ENTF90() 190 s1_d2_delta = s1_rank == 2 ? s1_d2_sstride * s1_d2_lstride : s1_d1_delta; in ENTF90() 212 } else if (s1_rank == 1) { in ENTF90() [all …]
|
H A D | mmulreal8.c | 73 __INT_T s1_rank = F90_RANK_G(s1_desc); in ENTF90() local 77 __INT_T m_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 1) in ENTF90() 79 __INT_T n_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 0) : 1; in ENTF90() 112 if (d_rank == 2 && s1_rank == 2 && s2_rank == 2) { in ENTF90() 118 } else if (d_rank == 1 && s1_rank == 2 && s2_rank == 1) { in ENTF90() 123 } else if (d_rank == 1 && s1_rank == 1 && s2_rank == 2) { in ENTF90() 138 if (s1_rank == 2) { in ENTF90() 184 d_d2_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_d1_delta; in ENTF90() 190 s1_d2_delta = s1_rank == 2 ? s1_d2_sstride * s1_d2_lstride : s1_d1_delta; in ENTF90() 212 } else if (s1_rank == 1) { in ENTF90() [all …]
|
H A D | mmullog2.c | 68 __INT_T s1_rank = F90_RANK_G(s1_desc); in ENTF90() local 72 __INT_T m_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 1) in ENTF90() 74 __INT_T n_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 0) : 1; in ENTF90() 107 if (d_rank == 2 && s1_rank == 2 && s2_rank == 2) { in ENTF90() 113 } else if (d_rank == 1 && s1_rank == 2 && s2_rank == 1) { in ENTF90() 118 } else if (d_rank == 1 && s1_rank == 1 && s2_rank == 2) { in ENTF90() 133 if (s1_rank == 2) { in ENTF90() 180 d_d2_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_d1_delta; in ENTF90() 186 s1_d2_delta = s1_rank == 2 ? s1_d2_sstride * s1_d2_lstride : s1_d1_delta; in ENTF90() 194 if (s1_rank == 2) { in ENTF90()
|
H A D | mmullog4.c | 68 __INT_T s1_rank = F90_RANK_G(s1_desc); in ENTF90() local 72 __INT_T m_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 1) in ENTF90() 74 __INT_T n_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 0) : 1; in ENTF90() 107 if (d_rank == 2 && s1_rank == 2 && s2_rank == 2) { in ENTF90() 113 } else if (d_rank == 1 && s1_rank == 2 && s2_rank == 1) { in ENTF90() 118 } else if (d_rank == 1 && s1_rank == 1 && s2_rank == 2) { in ENTF90() 133 if (s1_rank == 2) { in ENTF90() 180 d_d2_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_d1_delta; in ENTF90() 186 s1_d2_delta = s1_rank == 2 ? s1_d2_sstride * s1_d2_lstride : s1_d1_delta; in ENTF90() 194 if (s1_rank == 2) { in ENTF90()
|
H A D | mmullog8.c | 68 __INT_T s1_rank = F90_RANK_G(s1_desc); in ENTF90() local 72 __INT_T m_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 1) in ENTF90() 74 __INT_T n_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 0) : 1; in ENTF90() 107 if (d_rank == 2 && s1_rank == 2 && s2_rank == 2) { in ENTF90() 113 } else if (d_rank == 1 && s1_rank == 2 && s2_rank == 1) { in ENTF90() 118 } else if (d_rank == 1 && s1_rank == 1 && s2_rank == 2) { in ENTF90() 133 if (s1_rank == 2) { in ENTF90() 180 d_d2_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_d1_delta; in ENTF90() 186 s1_d2_delta = s1_rank == 2 ? s1_d2_sstride * s1_d2_lstride : s1_d1_delta; in ENTF90() 194 if (s1_rank == 2) { in ENTF90()
|
H A D | mmullog1.c | 68 __INT_T s1_rank = F90_RANK_G(s1_desc); in ENTF90() local 72 __INT_T m_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 1) in ENTF90() 74 __INT_T n_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 0) : 1; in ENTF90() 107 if (d_rank == 2 && s1_rank == 2 && s2_rank == 2) { in ENTF90() 113 } else if (d_rank == 1 && s1_rank == 2 && s2_rank == 1) { in ENTF90() 118 } else if (d_rank == 1 && s1_rank == 1 && s2_rank == 2) { in ENTF90() 133 if (s1_rank == 2) { in ENTF90() 180 d_d2_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_d1_delta; in ENTF90() 186 s1_d2_delta = s1_rank == 2 ? s1_d2_sstride * s1_d2_lstride : s1_d1_delta; in ENTF90() 194 if (s1_rank == 2) { in ENTF90()
|
H A D | mmulcplx16.c | 73 __INT_T s1_rank = F90_RANK_G(s1_desc); in ENTF90() local 77 __INT_T m_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 1) in ENTF90() 79 __INT_T n_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 0) : 1; in ENTF90() 112 if (d_rank == 2 && s1_rank == 2 && s2_rank == 2) { in ENTF90() 118 } else if (d_rank == 1 && s1_rank == 2 && s2_rank == 1) { in ENTF90() 123 } else if (d_rank == 1 && s1_rank == 1 && s2_rank == 2) { in ENTF90() 138 if (s1_rank == 2) { in ENTF90() 185 d_d2_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_d1_delta; in ENTF90() 191 s1_d2_delta = s1_rank == 2 ? s1_d2_sstride * s1_d2_lstride : s1_d1_delta; in ENTF90() 212 } else if (s1_rank == 1) { in ENTF90() [all …]
|
H A D | mmulcplx8.c | 73 __INT_T s1_rank = F90_RANK_G(s1_desc); in ENTF90() local 77 __INT_T m_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 1) in ENTF90() 79 __INT_T n_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 0) : 1; in ENTF90() 112 if (d_rank == 2 && s1_rank == 2 && s2_rank == 2) { in ENTF90() 118 } else if (d_rank == 1 && s1_rank == 2 && s2_rank == 1) { in ENTF90() 123 } else if (d_rank == 1 && s1_rank == 1 && s2_rank == 2) { in ENTF90() 138 if (s1_rank == 2) { in ENTF90() 185 d_d2_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_d1_delta; in ENTF90() 191 s1_d2_delta = s1_rank == 2 ? s1_d2_sstride * s1_d2_lstride : s1_d1_delta; in ENTF90() 212 } else if (s1_rank == 1) { in ENTF90() [all …]
|
H A D | mmulreal8_t.c | 73 __INT_T s1_rank = F90_RANK_G(s1_desc); in ENTF90() local 77 __INT_T m_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 1) in ENTF90() 79 __INT_T n_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 0) : 1; in ENTF90() 95 if (d_rank == 2 && s1_rank == 2 && s2_rank == 2) { in ENTF90() 101 } else if (d_rank == 1 && s1_rank == 2 && s2_rank == 1) { in ENTF90() 116 if (s1_rank == 2) { in ENTF90() 205 d_k_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_m_delta; in ENTF90() 211 s1_n_delta = s1_rank == 2 ? s1_d2_sstride * s1_d2_lstride : s1_m_delta; in ENTF90()
|
H A D | mmulreal4_t.c | 73 __INT_T s1_rank = F90_RANK_G(s1_desc); in ENTF90() local 77 __INT_T m_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 1) in ENTF90() 79 __INT_T n_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 0) : 1; in ENTF90() 95 if (d_rank == 2 && s1_rank == 2 && s2_rank == 2) { in ENTF90() 101 } else if (d_rank == 1 && s1_rank == 2 && s2_rank == 1) { in ENTF90() 116 if (s1_rank == 2) { in ENTF90() 205 d_k_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_m_delta; in ENTF90() 211 s1_n_delta = s1_rank == 2 ? s1_d2_sstride * s1_d2_lstride : s1_m_delta; in ENTF90()
|
H A D | mmulcplx16_t.c | 73 __INT_T s1_rank = F90_RANK_G(s1_desc); in ENTF90() local 77 __INT_T m_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 1) in ENTF90() 79 __INT_T n_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 0) : 1; in ENTF90() 95 if (d_rank == 2 && s1_rank == 2 && s2_rank == 2) { in ENTF90() 101 } else if (d_rank == 1 && s1_rank == 2 && s2_rank == 1) { in ENTF90() 116 if (s1_rank == 2) { in ENTF90() 205 d_k_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_m_delta; in ENTF90() 211 s1_n_delta = s1_rank == 2 ? s1_d2_sstride * s1_d2_lstride : s1_m_delta; in ENTF90()
|
H A D | mmulcplx8_t.c | 73 __INT_T s1_rank = F90_RANK_G(s1_desc); in ENTF90() local 77 __INT_T m_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 1) in ENTF90() 79 __INT_T n_extent = s1_rank == 2 ? F90_DIM_EXTENT_G(s1_desc, 0) : 1; in ENTF90() 95 if (d_rank == 2 && s1_rank == 2 && s2_rank == 2) { in ENTF90() 101 } else if (d_rank == 1 && s1_rank == 2 && s2_rank == 1) { in ENTF90() 116 if (s1_rank == 2) { in ENTF90() 205 d_k_delta = s1_rank == 2 ? d_d2_sstride * d_d2_lstride : d_m_delta; in ENTF90() 211 s1_n_delta = s1_rank == 2 ? s1_d2_sstride * s1_d2_lstride : s1_m_delta; in ENTF90()
|