Lines Matching refs:d
19 integer nelem,p,q,d
24 parameter(d=2)
31 real*8 arrx(d*ndofs),vv(ndofs)
50 call ceedvectorcreate(ceed,d*ndofs,x,err)
56 call ceedvectorcreate(ceed,nqpts*d*(d+1)/2,qdata_diff,err)
71 call ceedelemrestrictioncreate(ceed,nelem,p*p,d,ndofs,d*ndofs,&
80 stridesqd=[1,q*q,q*q*d*(d+1)/2]
81 call ceedelemrestrictioncreatestrided(ceed,nelem,q*q,d*(d+1)/2,&
82 & d*(d+1)/2*nqpts,stridesqd,erestrictqi,err)
85 call ceedbasiscreatetensorh1lagrange(ceed,d,d,p,q,ceed_gauss,bx,err)
86 call ceedbasiscreatetensorh1lagrange(ceed,d,1,p,q,ceed_gauss,bu,err)
92 call ceedqfunctionaddinput(qf_setup_mass,'dx',d*d,ceed_eval_grad,err)
110 call ceedqfunctionaddinput(qf_setup_diff,'dx',d*d,ceed_eval_grad,err)
113 & d*(d+1)/2,ceed_eval_none,err)
135 call ceedqfunctionaddinput(qf_apply,'du',d,ceed_eval_grad,err)
138 & d*(d+1)/2,ceed_eval_none,err)
141 call ceedqfunctionaddoutput(qf_apply,'dv',d,ceed_eval_grad,err)
187 call ceedqfunctionaddinput(qf_apply_lin,'du',d,ceed_eval_grad,err)
188 call ceedqfunctionaddinput(qf_apply_lin,'qdata',(d+1)*(d+1),&
192 call ceedqfunctionaddoutput(qf_apply_lin,'dv',d,ceed_eval_grad,err)