Home
last modified time | relevance | path

Searched refs:aa (Results 1 – 6 of 6) sorted by relevance

/libCEED/backends/avx/
H A Dceed-avx-tensor.c168 for (CeedInt aa = 0; aa < AA; aa++) { in CeedTensorContract_Avx_Single() local
169 for (CeedInt jj = 0; jj < JJ / 4; jj++) vv[aa][jj] = loadu(&v[(a + aa) * J + j + jj * 4]); in CeedTensorContract_Avx_Single()
176 for (CeedInt aa = 0; aa < AA; aa++) { // unroll in CeedTensorContract_Avx_Single() local
177 fmadd(vv[aa][jj], tqv, set1(u[(a + aa) * B + b])); in CeedTensorContract_Avx_Single()
181 for (CeedInt aa = 0; aa < AA; aa++) { in CeedTensorContract_Avx_Single() local
182 for (CeedInt jj = 0; jj < JJ / 4; jj++) storeu(&v[(a + aa) * J + j + jj * 4], vv[aa][jj]); in CeedTensorContract_Avx_Single()
192 for (CeedInt aa = 0; aa < A - a; aa++) { in CeedTensorContract_Avx_Single() local
193 for (CeedInt jj = 0; jj < JJ / 4; jj++) vv[aa][jj] = loadu(&v[(a + aa) * J + j + jj * 4]); in CeedTensorContract_Avx_Single()
200 for (CeedInt aa = 0; aa < A - a; aa++) { // unroll in CeedTensorContract_Avx_Single() local
201 fmadd(vv[aa][jj], tqv, set1(u[(a + aa) * B + b])); in CeedTensorContract_Avx_Single()
[all …]
/libCEED/tests/
H A Dt530-operator-f.f9030 real*8 arrx(d*ndofs),aa(nqpts),qq(nqpts),vv(ndofs)
128 call ceedvectorgetarrayread(a,ceed_mem_host,aa,aoffset,err)
131 if (abs(qq(qoffset+i)-aa(aoffset+i))>1.0d-9) then
133 write(*,*) 'Error: A[',i,'] = ',aa(aoffset+i),' != ',&
138 call ceedvectorrestorearrayread(a,aa,aoffset,err)
162 call ceedvectorgetarrayread(a,ceed_mem_host,aa,aoffset,err)
163 call ceedvectorsetarray(qdata,ceed_mem_host,ceed_copy_values,aa,&
165 call ceedvectorrestorearrayread(a,aa,aoffset,err)
H A Dt533-operator-f.f9030 real*8 arrx(d*ndofs),aa(nqpts),uu(ndofs),vv(ndofs),atrue(ndofs)
147 call ceedvectorgetarrayread(a,ceed_mem_host,aa,aoffset,err)
149 if (abs(aa(aoffset+i)-atrue(i))>1.0d-14) then
151 write(*,*) '[',i,'] Error in assembly: ',aa(aoffset+i),' != ',&
156 call ceedvectorrestorearrayread(a,aa,aoffset,err)
H A Dt534-operator-f.f9030 real*8 arrx(d*ndofs),aa(nqpts),uu(ndofs),vv(ndofs),atrue(ndofs)
151 call ceedvectorgetarrayread(a,ceed_mem_host,aa,aoffset,err)
153 if (abs(aa(aoffset+i)-atrue(i))>1.0d-13) then
155 write(*,*) '[',i,'] Error in assembly: ',aa(aoffset+i),' != ',&
160 call ceedvectorrestorearrayread(a,aa,aoffset,err)
H A Dt535-operator-f.f9030 real*8 arrx(d*ndofs),aa(nqpts),uu(ndofs),vv(ndofs),atrue(ndofs)
182 call ceedvectorgetarrayread(a,ceed_mem_host,aa,aoffset,err)
184 if (abs(aa(aoffset+i)-atrue(i))>1.0d-14) then
186 write(*,*) '[',i,'] Error in assembly: ',aa(aoffset+i),' != ',&
191 call ceedvectorrestorearrayread(a,aa,aoffset,err)
H A Dt536-operator-f.f9034 real*8 arrx(d*ndofs),aa(nqpts),uu(ndofs),vv(ndofs),atrue(ndofs)
204 call ceedvectorgetarrayread(a,ceed_mem_host,aa,aoffset,err)
206 if (abs(aa(aoffset+i)-atrue(i))>1.0d-14) then
208 write(*,*) '[',i,'] Error in assembly: ',aa(aoffset+i),' != ',&
213 call ceedvectorrestorearrayread(a,aa,aoffset,err)