/dports/math/libpgmath/flang-d07daf3/runtime/flang/ |
H A D | mmul_real4str1_t.F95 | 24 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 D | mmul_cplx8str1_t.F95 | 24 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 D | mmulint1.c | 62 __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 D | mmulint2.c | 62 __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 D | mmulint4.c | 62 __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 D | mmulint8.c | 62 __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 D | mmulreal4.c | 62 __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 D | mmulreal8.c | 62 __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 D | mmulcplx16.c | 62 __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 D | mmulcplx8.c | 62 __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 D | mmulreal8_t.c | 62 __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 D | mmulreal4_t.c | 62 __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 D | mmulcplx16_t.c | 62 __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 D | mmulcplx8_t.c | 62 __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 D | mmullog2.c | 57 __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 D | mmullog4.c | 57 __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 D | mmullog8.c | 57 __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 D | mmullog1.c | 57 __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 D | mmul_int4str1.F95 | 24 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 D | mmul_real4str1.F95 | 24 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 D | mmul_real8str1.F95 | 24 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 D | mmul_int1str1.F95 | 24 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 D | mmul_int8str1.F95 | 24 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 D | mmul_cplx16str1.F95 | 24 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 D | mmul_cplx8str1.F95 | 24 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) + &
|