Lines Matching refs:d
18 integer nelem,p,q,d
23 parameter(d=2)
30 real*8 arrx(d*ndofs),aa(nqpts),uu(ndofs),vv(ndofs),atrue(ndofs)
48 call ceedvectorcreate(ceed,d*ndofs,x,err)
54 call ceedvectorcreate(ceed,nqpts*d*(d+1)/2,qdata_diff,err)
69 call ceedelemrestrictioncreate(ceed,nelem,p*p,d,ndofs,d*ndofs,&
78 stridesqd=[1,q*q,q*q*d*(d+1)/2]
79 call ceedelemrestrictioncreatestrided(ceed,nelem,q*q,d*(d+1)/2,&
80 & d*(d+1)/2*nqpts,stridesqd,erestrictqi,err)
83 call ceedbasiscreatetensorh1lagrange(ceed,d,d,p,q,ceed_gauss,bx,err)
84 call ceedbasiscreatetensorh1lagrange(ceed,d,1,p,q,ceed_gauss,bu,err)
90 call ceedqfunctionaddinput(qf_setup_mass,'dx',d*d,ceed_eval_grad,err)
108 call ceedqfunctionaddinput(qf_setup_diff,'dx',d*d,ceed_eval_grad,err)
111 & d*(d+1)/2,ceed_eval_none,err)
133 call ceedqfunctionaddinput(qf_apply,'du',d,ceed_eval_grad,err)
136 & d*(d+1)/2,ceed_eval_none,err)
139 call ceedqfunctionaddoutput(qf_apply,'dv',d,ceed_eval_grad,err)