Home
last modified time | relevance | path

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

/dports/math/libpgmath/flang-d07daf3/runtime/flang/
H A Dmmulint1.c73 __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 Dmmulint2.c73 __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 Dmmulint4.c73 __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 Dmmulint8.c73 __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 Dmmulreal4.c73 __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 Dmmulreal8.c73 __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 Dmmullog2.c68 __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 Dmmullog4.c68 __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 Dmmullog8.c68 __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 Dmmullog1.c68 __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 Dmmulcplx16.c73 __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 Dmmulcplx8.c73 __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 Dmmulreal8_t.c73 __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 Dmmulreal4_t.c73 __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 Dmmulcplx16_t.c73 __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 Dmmulcplx8_t.c73 __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()