Home
last modified time | relevance | path

Searched refs:d0 (Results 1 – 25 of 40) sorted by relevance

12

/libCEED/tests/
H A Dt323-basis-f.f9048 xq=(/2.d-1,6.d-1,1.d0/3.d0,2.d-1,2.d-1,2.d-1, 1.d0/3.d0,6.d-1/)
49 xr=(/0.d0,5.d-1,1.d0,0.d0,5.d-1,0.d0,0.d0,0.d0, 0.d0,5.d-1,5.d-1,1.d0/)
72 call ceedvectorsetvalue(output,0.d0,err)
H A Dt402-qfunction-f.f9025 ctxdata=(/1.d0,2.d0,3.d0,4.d0,5.d0/)
H A Dt322-basis-f.f9065 call ceedvectorsetvalue(output,0.d0,err)
67 call ceedvectorsetvalue(weights,0.d0,err)
83 diff=val-17.d0/24.d0
86 write(*,'(A,I1,A,F12.8,A,F12.8)')'[',i,'] ',val,' != ',17.d0/24.d0
H A Dt401-qfunction-f.f9030 ctxdata=(/1.d0,2.d0,3.d0,4.d0,5.d0/)
68 call ceedvectorsetvalue(v,0.d0,err)
70 call ceedvectorsetvalue(qdata,0.d0,err)
H A Dt536-operator-f.f9053 arrx(i+1)=arrx(i+1)*(1.d0/(nx*2.d0))
55 arrx(i+1+ndofs)=val*(1.d0/(ny*2.d0))
186 call ceedvectorsetvalue(u,0.d0,err)
190 uu(i+uoffset)=1.d0
192 uu(i-1+uoffset)=0.d0
H A Dt533-operator-f.f9044 arrx(i+j*(nx*2+1)+0*ndofs+1)=1.d0*i/(2*nx)
45 arrx(i+j*(nx*2+1)+1*ndofs+1)=1.d0*j/(2*ny)
129 call ceedvectorsetvalue(u,0.d0,err)
133 uu(i+uoffset)=1.d0
135 uu(i-1+uoffset)=0.d0
H A Dt511-operator-f.f9055 arrx(i+1)=arrx(i+1)*(1.d0/(nx*2.d0))
57 arrx(i+1+ndofs)=val*(1.d0/(ny*2.d0))
135 call ceedvectorsetvalue(u,1.d0,err)
H A Dt510-operator-f.f9054 arrx(i+1)=arrx(i+1)*(1.d0/(nx*2.d0))
56 arrx(i+1+ndofs)=val*(1.d0/(ny*2.d0))
134 call ceedvectorsetvalue(u,0.d0,err)
H A Dt314-basis-f.f9078 call ceedvectorsetvalue(xq,0.d0,err)
81 call ceedvectorsetvalue(uq,0.d0,err)
83 call ceedvectorsetvalue(ones,1.d0,err)
85 call ceedvectorsetvalue(gtposeones,0.d0,err)
H A Dt534-operator-f.f9044 arrx(i+j*(nx*2+1)+0*ndofs+1)=1.d0*i/(2*nx)
45 arrx(i+j*(nx*2+1)+1*ndofs+1)=1.d0*j/(2*ny)
133 call ceedvectorsetvalue(u,0.d0,err)
137 uu(i+uoffset)=1.d0
139 uu(i-1+uoffset)=0.d0
H A Dt505-operator-f.f9041 arrx(i+1)=i/(nx-1.d0)
106 call ceedvectorsetvalue(u,1.d0,err)
108 call ceedvectorsetvalue(v,0.d0,err)
124 call ceedvectorsetvalue(v,1.d0,err)
H A Dt530-operator-f.f9045 arrx(i+j*(nx*2+1)+0*ndofs+1)=1.d0*i/(2*nx)
46 arrx(i+j*(nx*2+1)+1*ndofs+1)=1.d0*j/(2*ny)
143 call ceedvectorsetvalue(u,1.d0,err)
145 call ceedvectorsetvalue(v,0.d0,err)
168 call ceedvectorsetvalue(v,0.d0,err)
H A Dt535-operator-f.f9044 arrx(i+j*(nx*2+1)+0*ndofs+1)=1.d0*i/(2*nx)
45 arrx(i+j*(nx*2+1)+1*ndofs+1)=1.d0*j/(2*ny)
164 call ceedvectorsetvalue(u,0.d0,err)
168 uu(i+uoffset)=1.d0
170 uu(i-1+uoffset)=0.d0
H A Dt532-operator-f.f9046 arrx(i+j*(nx*2+1)+0*ndofs+1)=1.d0*i/(2*nx)
47 arrx(i+j*(nx*2+1)+1*ndofs+1)=1.d0*j/(2*ny)
161 call ceedvectorsetvalue(u,1.d0,err)
163 call ceedvectorsetvalue(v,0.d0,err)
209 call ceedvectorsetvalue(v,0.d0,err)
H A Dt524-operator-f.f9065 arrx(i+j*(ny*2+1)+0*ndofs+1)=1.d0*i/(2*ny)
66 arrx(i+j*(ny*2+1)+1*ndofs+1)=1.d0*j/(2*nx)
232 call ceedvectorsetvalue(u,1.d0,err)
234 call ceedvectorsetvalue(v,0.d0,err)
251 call ceedvectorsetvalue(v,1.d0,err)
H A Dt208-elemrestriction-f.f9045 call ceedvectorsetvalue(y,0.d0,err)
73 call ceedvectorsetvalue(x,0.d0,err)
H A Dt202-elemrestriction-f.f9045 call ceedvectorsetvalue(y,0.d0,err)
72 call ceedvectorsetvalue(x,0.d0,err)
H A Dt410-qfunction-f.f9044 call ceedvectorsetvalue(v,0.d0,err)
46 call ceedvectorsetvalue(qdata,0.d0,err)
H A Dt400-qfunction-f.f9056 call ceedvectorsetvalue(v,0.d0,err)
58 call ceedvectorsetvalue(qdata,0.d0,err)
H A Dt313-basis-f.f9069 call ceedvectorsetvalue(xq,0.d0,err)
71 call ceedvectorsetvalue(u,0.d0,err)
H A Dt500-operator-f.f9040 arrx(i+1)=i/(nx-1.d0)
105 call ceedvectorsetvalue(u,0.d0,err)
H A Dt503-operator-f.f9041 call ceedvectorsetvalue(u,1.d0,err)
46 arrx(i+1)=i/(nx-1.d0)
H A Dt540-operator-f.f90110 call ceedvectorsetvalue(u,1.d0,err)
112 call ceedvectorsetvalue(v,0.d0,err)
/libCEED/examples/ceed/
H A Dex1-volume-f.f90176 coords(i) = 0.5d0 + (1.d0/sqrt(3.d0)) * sin((2.d0/3.d0) * m_pi * (coords(i) - 0.5d0))
178 exact_volume = 1.d0
182 u = 1.d0 + coords(i)
188 exact_volume = 3.d0/4.d0 * m_pi
492 call ceedvectorsetvalue(u, 1.d0, err)
510 computed_volume = 0.d0
527 if (abs(exact_volume - computed_volume) > 200.d0 * 1e-15) then
/libCEED/backends/sycl-ref/
H A Dceed-sycl-ref-basis.sycl.cpp419 for (CeedInt d0 = 0; d0 < out_dim; ++d0) { in CeedBasisApplyNonTensorGrad_Sycl() local
420 V[d0] += G[j * stride_1 + d0 * g_dim_stride] * Uj; in CeedBasisApplyNonTensorGrad_Sycl()
424 for (CeedInt d0 = 0; d0 < out_dim; ++d0) { in CeedBasisApplyNonTensorGrad_Sycl() local
425 d_V[i + elem * v_stride + comp * v_comp_stride + d0 * v_dim_stride] = V[d0]; in CeedBasisApplyNonTensorGrad_Sycl()

12