Lines Matching refs:d
19 integer nelem,p,q,d
24 parameter(d=2)
31 real*8 arrx(d*ndofs),uu(ndofs),vv(ndofs),vvlin(ndofs)
49 call ceedvectorcreate(ceed,d*ndofs,x,err)
66 call ceedvectorcreate(ceed,nqpts*d*(d+1)/2,qdata,err)
81 call ceedelemrestrictioncreate(ceed,nelem,p*p,d,ndofs,d*ndofs,&
90 stridesqd=[1,q*q,q*q*d*(d+1)/2]
91 call ceedelemrestrictioncreatestrided(ceed,nelem,q*q,d*(d+1)/2,&
92 & d*(d+1)/2*nqpts,stridesqd,erestrictqi,err)
95 call ceedbasiscreatetensorh1lagrange(ceed,d,d,p,q,ceed_gauss,&
97 call ceedbasiscreatetensorh1lagrange(ceed,d,1,p,q,ceed_gauss,&
104 call ceedqfunctionaddinput(qf_setup,'dx',d*d,ceed_eval_grad,err)
106 call ceedqfunctionaddoutput(qf_setup,'qdata',d*(d+1)/2,ceed_eval_none,err)
125 call ceedqfunctionaddinput(qf_diff,'du',d,ceed_eval_grad,err)
126 call ceedqfunctionaddinput(qf_diff,'qdata',d*(d+1)/2,ceed_eval_none,err)
127 call ceedqfunctionaddoutput(qf_diff,'dv',d,ceed_eval_grad,err)
150 call ceedqfunctionaddinput(qf_diff_lin,'du',d,ceed_eval_grad,err)
151 call ceedqfunctionaddinput(qf_diff_lin,'qdata',d*d,ceed_eval_none,err)
152 call ceedqfunctionaddoutput(qf_diff_lin,'dv',d,ceed_eval_grad,err)