Home
last modified time | relevance | path

Searched refs:d_d1_lstride (Results 1 – 25 of 26) sorted by relevance

12

/dports/math/libpgmath/flang-d07daf3/runtime/flang/
H A Dmmul_real4str1_t.F9524 d_d1_lstride) argument
27 DESC_INT s1_d1_extnt,s2_d1_extnt,d_d1_extnt,d_d1_lstride
30 REAL*4 dest(d_d1_extnt,n_extnt*d_d1_lstride)
34 if (d_d1_lstride .eq. 1) then
50 dest(1+(n-1)*d_d1_lstride,k) = 0.0d0
56 dest(1+(n-1)*d_d1_lstride,k) = &
57 dest(1+(n-1)*d_d1_lstride,k) + &
H A Dmmul_cplx8str1_t.F9524 d_d1_lstride) argument
27 DESC_INT s1_d1_extnt,s2_d1_extnt,d_d1_extnt,d_d1_lstride
30 COMPLEX*8 dest(d_d1_extnt,n_extnt*d_d1_lstride)
34 if (d_d1_lstride .eq. 1) then
50 dest(1+(n-1)*d_d1_lstride,k) = 0.0d0
56 dest(1+(n-1)*d_d1_lstride,k) = &
57 dest(1+(n-1)*d_d1_lstride,k) + &
H A Dmmulint1.c62 __INT_T d_d1_lstride; in ENTF90() local
160 d_d1_lstride = F90_DIM_LSTRIDE_G(dest_desc, 0); in ENTF90()
178 d_d1_lb * d_d1_lstride + d_d2_lb * d_d2_lstride - 1; in ENTF90()
180 d_d1_offset = d_d1_base = d_d1_soffset * d_d1_lstride; in ENTF90()
181 d_d1_delta = d_d1_sstride * d_d1_lstride; in ENTF90()
204 F90_MATMUL(int1_str1_mxv)(dest_base + d_d1_soffset*d_d1_lstride + in ENTF90()
209 &s1_d2_lstride, &d_d1_lstride); in ENTF90()
211 F90_MATMUL(int1_str1_vxm)( dest_base + d_d1_soffset*d_d1_lstride + in ENTF90()
216 &s2_d2_lstride, &d_d1_lstride); in ENTF90()
219 F90_MATMUL(int1_str1)(dest_base + d_d1_soffset*d_d1_lstride + in ENTF90()
[all …]
H A Dmmulint2.c62 __INT_T d_d1_lstride; in ENTF90() local
160 d_d1_lstride = F90_DIM_LSTRIDE_G(dest_desc, 0); in ENTF90()
178 d_d1_lb * d_d1_lstride + d_d2_lb * d_d2_lstride - 1; in ENTF90()
180 d_d1_offset = d_d1_base = d_d1_soffset * d_d1_lstride; in ENTF90()
181 d_d1_delta = d_d1_sstride * d_d1_lstride; in ENTF90()
204 F90_MATMUL(int2_str1_mxv)(dest_base + d_d1_soffset*d_d1_lstride + in ENTF90()
209 &s1_d2_lstride, &d_d1_lstride); in ENTF90()
211 F90_MATMUL(int2_str1_vxm)( dest_base + d_d1_soffset*d_d1_lstride + in ENTF90()
216 &s2_d2_lstride, &d_d1_lstride); in ENTF90()
219 F90_MATMUL(int2_str1)(dest_base + d_d1_soffset*d_d1_lstride + in ENTF90()
[all …]
H A Dmmulint4.c62 __INT_T d_d1_lstride; in ENTF90() local
160 d_d1_lstride = F90_DIM_LSTRIDE_G(dest_desc, 0); in ENTF90()
178 d_d1_lb * d_d1_lstride + d_d2_lb * d_d2_lstride - 1; in ENTF90()
180 d_d1_offset = d_d1_base = d_d1_soffset * d_d1_lstride; in ENTF90()
181 d_d1_delta = d_d1_sstride * d_d1_lstride; in ENTF90()
204 F90_MATMUL(int4_str1_mxv)(dest_base + d_d1_soffset*d_d1_lstride + in ENTF90()
209 &s1_d2_lstride, &d_d1_lstride); in ENTF90()
211 F90_MATMUL(int4_str1_vxm)( dest_base + d_d1_soffset*d_d1_lstride + in ENTF90()
216 &s2_d2_lstride, &d_d1_lstride); in ENTF90()
218 F90_MATMUL(int4_str1)(dest_base + d_d1_soffset*d_d1_lstride + in ENTF90()
[all …]
H A Dmmulint8.c62 __INT_T d_d1_lstride; in ENTF90() local
160 d_d1_lstride = F90_DIM_LSTRIDE_G(dest_desc, 0); in ENTF90()
178 d_d1_lb * d_d1_lstride + d_d2_lb * d_d2_lstride - 1; in ENTF90()
180 d_d1_offset = d_d1_base = d_d1_soffset * d_d1_lstride; in ENTF90()
181 d_d1_delta = d_d1_sstride * d_d1_lstride; in ENTF90()
204 F90_MATMUL(int8_str1_mxv)(dest_base + d_d1_soffset*d_d1_lstride + in ENTF90()
209 &s1_d2_lstride, &d_d1_lstride); in ENTF90()
211 F90_MATMUL(int8_str1_vxm)( dest_base + d_d1_soffset*d_d1_lstride + in ENTF90()
216 &s2_d2_lstride, &d_d1_lstride); in ENTF90()
218 F90_MATMUL(int8_str1)(dest_base + d_d1_soffset*d_d1_lstride + in ENTF90()
[all …]
H A Dmmulreal4.c62 __INT_T d_d1_lstride; in ENTF90() local
160 d_d1_lstride = F90_DIM_LSTRIDE_G(dest_desc, 0); in ENTF90()
178 d_d1_lb * d_d1_lstride + d_d2_lb * d_d2_lstride - 1; in ENTF90()
180 d_d1_offset = d_d1_base = d_d1_soffset * d_d1_lstride; in ENTF90()
181 d_d1_delta = d_d1_sstride * d_d1_lstride; in ENTF90()
205 F90_MATMUL(real4_str1_mxv)(dest_base + d_d1_soffset*d_d1_lstride + in ENTF90()
210 &s1_d2_lstride, &d_d1_lstride); in ENTF90()
213 F90_MATMUL(real4_str1_vxm)( dest_base + d_d1_soffset*d_d1_lstride + in ENTF90()
218 &s2_d2_lstride, &d_d1_lstride); in ENTF90()
220 F90_MATMUL(real4_str1)(dest_base + d_d1_soffset*d_d1_lstride + in ENTF90()
[all …]
H A Dmmulreal8.c62 __INT_T d_d1_lstride; in ENTF90() local
160 d_d1_lstride = F90_DIM_LSTRIDE_G(dest_desc, 0); in ENTF90()
178 d_d1_lb * d_d1_lstride + d_d2_lb * d_d2_lstride - 1; in ENTF90()
180 d_d1_offset = d_d1_base = d_d1_soffset * d_d1_lstride; in ENTF90()
181 d_d1_delta = d_d1_sstride * d_d1_lstride; in ENTF90()
205 F90_MATMUL(real8_str1_mxv)(dest_base + d_d1_soffset*d_d1_lstride + in ENTF90()
210 &s1_d2_lstride, &d_d1_lstride); in ENTF90()
213 F90_MATMUL(real8_str1_vxm)( dest_base + d_d1_soffset*d_d1_lstride + in ENTF90()
218 &s2_d2_lstride, &d_d1_lstride); in ENTF90()
220 F90_MATMUL(real8_str1)(dest_base + d_d1_soffset*d_d1_lstride + in ENTF90()
[all …]
H A Dmmulcplx16.c62 __INT_T d_d1_lstride; in ENTF90() local
160 d_d1_lstride = F90_DIM_LSTRIDE_G(dest_desc, 0); in ENTF90()
179 d_d1_lb * d_d1_lstride + d_d2_lb * d_d2_lstride - 1; in ENTF90()
181 d_d1_offset = d_d1_base = d_d1_soffset * d_d1_lstride; in ENTF90()
182 d_d1_delta = d_d1_sstride * d_d1_lstride; in ENTF90()
206 F90_MATMUL(cplx16_str1_mxv)( dest_base + d_d1_soffset*d_d1_lstride + in ENTF90()
211 &s1_d2_lstride, &d_d1_lstride); in ENTF90()
213 F90_MATMUL(cplx16_str1_vxm)( dest_base + d_d1_soffset*d_d1_lstride + in ENTF90()
218 &s2_d2_lstride, &d_d1_lstride); in ENTF90()
221 F90_MATMUL(cplx16_str1)(dest_base + d_d1_soffset*d_d1_lstride + in ENTF90()
[all …]
H A Dmmulcplx8.c62 __INT_T d_d1_lstride; in ENTF90() local
160 d_d1_lstride = F90_DIM_LSTRIDE_G(dest_desc, 0); in ENTF90()
179 d_d1_lb * d_d1_lstride + d_d2_lb * d_d2_lstride - 1; in ENTF90()
181 d_d1_offset = d_d1_base = d_d1_soffset * d_d1_lstride; in ENTF90()
182 d_d1_delta = d_d1_sstride * d_d1_lstride; in ENTF90()
206 F90_MATMUL(cplx8_str1_mxv)( dest_base + d_d1_soffset*d_d1_lstride + in ENTF90()
211 &s1_d2_lstride, &d_d1_lstride); in ENTF90()
213 F90_MATMUL(cplx8_str1_vxm)( dest_base + d_d1_soffset*d_d1_lstride + in ENTF90()
218 &s2_d2_lstride, &d_d1_lstride); in ENTF90()
221 F90_MATMUL(cplx8_str1)(dest_base + d_d1_soffset*d_d1_lstride + in ENTF90()
[all …]
H A Dmmulreal8_t.c62 __INT_T d_d1_lstride; in ENTF90() local
138 d_d1_lstride = F90_DIM_LSTRIDE_G(dest_desc, 0); in ENTF90()
163 d_d1_lb * d_d1_lstride + d_d2_lb * d_d2_lstride - 1; in ENTF90()
166 F90_MATMUL(real8_str1_mxv_t)( dest_base + d_d1_soffset*d_d1_lstride + in ENTF90()
171 &s1_d2_lstride, &d_d1_lstride); in ENTF90()
200 d_d1_lb * d_d1_lstride + d_d2_lb * d_d2_lstride - 1; in ENTF90()
202 d_d1_base = d_d1_soffset * d_d1_lstride; in ENTF90()
203 d_m_delta = d_d1_sstride * d_d1_lstride; in ENTF90()
H A Dmmulreal4_t.c62 __INT_T d_d1_lstride; in ENTF90() local
138 d_d1_lstride = F90_DIM_LSTRIDE_G(dest_desc, 0); in ENTF90()
163 d_d1_lb * d_d1_lstride + d_d2_lb * d_d2_lstride - 1; in ENTF90()
166 F90_MATMUL(real4_str1_mxv_t)( dest_base + d_d1_soffset*d_d1_lstride + in ENTF90()
171 &s1_d2_lstride, &d_d1_lstride); in ENTF90()
200 d_d1_lb * d_d1_lstride + d_d2_lb * d_d2_lstride - 1; in ENTF90()
202 d_d1_base = d_d1_soffset * d_d1_lstride; in ENTF90()
203 d_m_delta = d_d1_sstride * d_d1_lstride; in ENTF90()
H A Dmmulcplx16_t.c62 __INT_T d_d1_lstride; in ENTF90() local
138 d_d1_lstride = F90_DIM_LSTRIDE_G(dest_desc, 0); in ENTF90()
163 d_d1_lb * d_d1_lstride + d_d2_lb * d_d2_lstride - 1; in ENTF90()
166 F90_MATMUL(cplx16_str1_mxv_t)( dest_base + d_d1_soffset*d_d1_lstride + in ENTF90()
171 &s1_d2_lstride, &d_d1_lstride); in ENTF90()
200 d_d1_lb * d_d1_lstride + d_d2_lb * d_d2_lstride - 1; in ENTF90()
202 d_d1_base = d_d1_soffset * d_d1_lstride; in ENTF90()
203 d_m_delta = d_d1_sstride * d_d1_lstride; in ENTF90()
H A Dmmulcplx8_t.c62 __INT_T d_d1_lstride; in ENTF90() local
138 d_d1_lstride = F90_DIM_LSTRIDE_G(dest_desc, 0); in ENTF90()
163 d_d1_lb * d_d1_lstride + d_d2_lb * d_d2_lstride - 1; in ENTF90()
166 F90_MATMUL(cplx8_str1_mxv_t)( dest_base + d_d1_soffset*d_d1_lstride + in ENTF90()
171 &s1_d2_lstride, &d_d1_lstride); in ENTF90()
200 d_d1_lb * d_d1_lstride + d_d2_lb * d_d2_lstride - 1; in ENTF90()
202 d_d1_base = d_d1_soffset * d_d1_lstride; in ENTF90()
203 d_m_delta = d_d1_sstride * d_d1_lstride; in ENTF90()
H A Dmmullog2.c57 __INT_T d_d1_lstride; in ENTF90() local
155 d_d1_lstride = F90_DIM_LSTRIDE_G(dest_desc, 0); in ENTF90()
174 d_d1_lb * d_d1_lstride + d_d2_lb * d_d2_lstride - 1; in ENTF90()
176 d_d1_offset = d_d1_base = d_d1_soffset * d_d1_lstride; in ENTF90()
177 d_d1_delta = d_d1_sstride * d_d1_lstride; in ENTF90()
H A Dmmullog4.c57 __INT_T d_d1_lstride; in ENTF90() local
155 d_d1_lstride = F90_DIM_LSTRIDE_G(dest_desc, 0); in ENTF90()
174 d_d1_lb * d_d1_lstride + d_d2_lb * d_d2_lstride - 1; in ENTF90()
176 d_d1_offset = d_d1_base = d_d1_soffset * d_d1_lstride; in ENTF90()
177 d_d1_delta = d_d1_sstride * d_d1_lstride; in ENTF90()
H A Dmmullog8.c57 __INT_T d_d1_lstride; in ENTF90() local
155 d_d1_lstride = F90_DIM_LSTRIDE_G(dest_desc, 0); in ENTF90()
174 d_d1_lb * d_d1_lstride + d_d2_lb * d_d2_lstride - 1; in ENTF90()
176 d_d1_offset = d_d1_base = d_d1_soffset * d_d1_lstride; in ENTF90()
177 d_d1_delta = d_d1_sstride * d_d1_lstride; in ENTF90()
H A Dmmullog1.c57 __INT_T d_d1_lstride; in ENTF90() local
155 d_d1_lstride = F90_DIM_LSTRIDE_G(dest_desc, 0); in ENTF90()
174 d_d1_lb * d_d1_lstride + d_d2_lb * d_d2_lstride - 1; in ENTF90()
176 d_d1_offset = d_d1_base = d_d1_soffset * d_d1_lstride; in ENTF90()
177 d_d1_delta = d_d1_sstride * d_d1_lstride; in ENTF90()
H A Dmmul_int4str1.F9524 d_d1_lstride) argument
27 DESC_INT s1_d1_extnt,s2_d1_extnt,d_d1_extnt,d_d1_lstride
32 INTEGER*4 dest(d_d1_extnt,n_extnt*d_d1_lstride)
47 if (d_d1_lstride .eq. 1) then
402 dest(1+(n-1)*d_d1_lstride,k) = 0.0d0
408 dest(1+(n-1)*d_d1_lstride,k) = &
409 dest(1+(n-1)*d_d1_lstride,k) + &
H A Dmmul_real4str1.F9524 d_d1_lstride) argument
27 DESC_INT s1_d1_extnt,s2_d1_extnt,d_d1_extnt,d_d1_lstride
32 REAL*4 dest(d_d1_extnt,n_extnt*d_d1_lstride)
47 if (d_d1_lstride .eq. 1) then
402 dest(1+(n-1)*d_d1_lstride,k) = 0.0d0
408 dest(1+(n-1)*d_d1_lstride,k) = &
409 dest(1+(n-1)*d_d1_lstride,k) + &
H A Dmmul_real8str1.F9524 d_d1_lstride) argument
27 DESC_INT s1_d1_extnt,s2_d1_extnt,d_d1_extnt,d_d1_lstride
36 REAL*8 dest(d_d1_extnt,n_extnt*d_d1_lstride)
56 if (d_d1_lstride .eq. 1) then
417 dest(1+(n-1)*d_d1_lstride,k) = 0.0d0
423 dest(1+(n-1)*d_d1_lstride,k) = &
424 dest(1+(n-1)*d_d1_lstride,k) + &
H A Dmmul_int1str1.F9524 d_d1_lstride) argument
27 DESC_INT s1_d1_extnt,s2_d1_extnt,d_d1_extnt,d_d1_lstride
32 INTEGER*1 dest(d_d1_extnt,n_extnt*d_d1_lstride)
47 if (d_d1_lstride .eq. 1) then
402 dest(1+(n-1)*d_d1_lstride,k) = 0.0d0
408 dest(1+(n-1)*d_d1_lstride,k) = &
409 dest(1+(n-1)*d_d1_lstride,k) + &
H A Dmmul_int8str1.F9524 d_d1_lstride) argument
27 DESC_INT s1_d1_extnt,s2_d1_extnt,d_d1_extnt,d_d1_lstride
32 INTEGER*8 dest(d_d1_extnt,n_extnt*d_d1_lstride)
47 if (d_d1_lstride .eq. 1) then
402 dest(1+(n-1)*d_d1_lstride,k) = 0.0d0
408 dest(1+(n-1)*d_d1_lstride,k) = &
409 dest(1+(n-1)*d_d1_lstride,k) + &
H A Dmmul_cplx16str1.F9524 d_d1_lstride) argument
27 DESC_INT s1_d1_extnt,s2_d1_extnt,d_d1_extnt,d_d1_lstride
32 COMPLEX*16 dest(d_d1_extnt,n_extnt*d_d1_lstride)
47 if (d_d1_lstride .eq. 1) then
402 dest(1+(n-1)*d_d1_lstride,k) = 0.0d0
408 dest(1+(n-1)*d_d1_lstride,k) = &
409 dest(1+(n-1)*d_d1_lstride,k) + &
H A Dmmul_cplx8str1.F9524 d_d1_lstride) argument
27 DESC_INT s1_d1_extnt,s2_d1_extnt,d_d1_extnt,d_d1_lstride
32 COMPLEX*8 dest(d_d1_extnt,n_extnt*d_d1_lstride)
47 if (d_d1_lstride .eq. 1) then
402 dest(1+(n-1)*d_d1_lstride,k) = 0.0d0
408 dest(1+(n-1)*d_d1_lstride,k) = &
409 dest(1+(n-1)*d_d1_lstride,k) + &

12