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)
53 call ceedvectorcreate(ceed,nqpts*d*(d+1)/2,qdata,err)
68 call ceedelemrestrictioncreate(ceed,nelem,p*p,d,ndofs,d*ndofs,&
77 stridesqd=[1,q*q,q*q*d*(d+1)/2]
78 call ceedelemrestrictioncreatestrided(ceed,nelem,q*q,d*(d+1)/2,&
79 & d*(d+1)/2*nqpts,stridesqd,erestrictqi,err)
82 call ceedbasiscreatetensorh1lagrange(ceed,d,d,p,q,ceed_gauss,&
84 call ceedbasiscreatetensorh1lagrange(ceed,d,1,p,q,ceed_gauss,&
91 call ceedqfunctionaddinput(qf_setup,'dx',d*d,ceed_eval_grad,err)
93 call ceedqfunctionaddoutput(qf_setup,'qdata',d*(d+1)/2,ceed_eval_none,err)
112 call ceedqfunctionaddinput(qf_diff,'du',d,ceed_eval_grad,err)
113 call ceedqfunctionaddinput(qf_diff,'qdata',d*(d+1)/2,ceed_eval_none,err)
114 call ceedqfunctionaddoutput(qf_diff,'dv',d,ceed_eval_grad,err)