Lines Matching refs:d

23       integer nelemtet,nelemhex,ptet,phex,qtet,qhex,d
31       parameter(d=2)
43       real*8 arrx(d*ndofs)
46       real*8 qref(d*qtet)
49       real*8 grad(d*ptet*qtet)
70       call ceedvectorcreate(ceed,d*ndofs,x,err)
75       call ceedvectorcreate(ceed,nqptstet*d*(d+1)/2,qdatatet,err)
76       call ceedvectorcreate(ceed,nqptshex*d*(d+1)/2,qdatahex,err)
100       call ceedelemrestrictioncreate(ceed,nelemtet,ptet,d,ndofs,d*ndofs,&
105       stridesqdtet=[1,qtet,qtet*d*(d+1)/2]
106       call ceedelemrestrictioncreatestrided(ceed,nelemtet,qtet,d*(d+1)/2,&
107      & d*(d+1)/2*nqptstet,stridesqdtet,erestrictqditet,err)
111       call ceedbasiscreateh1(ceed,ceed_triangle,d,ptet,qtet,interp,grad,qref,&
122       call ceedqfunctionaddinput(qf_setuptet,'dx',d*d,ceed_eval_grad,err)
123       call ceedqfunctionaddoutput(qf_setuptet,'rho',d*(d+1)/2,ceed_eval_none,&
129       call ceedqfunctionaddinput(qf_difftet,'rho',d*(d+1)/2,ceed_eval_none,err)
130       call ceedqfunctionaddinput(qf_difftet,'u',d,ceed_eval_grad,err)
131       call ceedqfunctionaddoutput(qf_difftet,'v',d,ceed_eval_grad,err)
166       call ceedelemrestrictioncreate(ceed,nelemhex,phex*phex,d,ndofs,&
167      & d*ndofs,ceed_mem_host,ceed_use_pointer,indxhex,erestrictxhex,err)
171       stridesqdhex=[1,qhex*qhex,qhex*qhex*d*(d+1)/2]
173      & d*(d+1)/2,d*(d+1)/2*nqptshex,stridesqdhex,erestrictqdihex,err)
176       call ceedbasiscreatetensorh1lagrange(ceed,d,d,phex,qhex,ceed_gauss,&
178       call ceedbasiscreatetensorh1lagrange(ceed,d,1,phex,qhex,ceed_gauss,&
186       call ceedqfunctionaddinput(qf_setuphex,'dx',d*d,ceed_eval_grad,err)
187       call ceedqfunctionaddoutput(qf_setuphex,'rho',d*(d+1)/2,ceed_eval_none,&
193       call ceedqfunctionaddinput(qf_diffhex,'rho',d*(d+1)/2,ceed_eval_none,err)
194       call ceedqfunctionaddinput(qf_diffhex,'u',d,ceed_eval_grad,err)
195       call ceedqfunctionaddoutput(qf_diffhex,'v',d,ceed_eval_grad,err)