Lines Matching refs:ncomp
20 integer nelem,pcoarse,pfine,q,ncomp
21 parameter(ncomp=2)
37 real*8 hv(nufine*ncomp)
62 call ceedelemrestrictioncreate(ceed,nelem,pcoarse,ncomp,nucoarse,&
63 & ncomp*nucoarse,ceed_mem_host,ceed_use_pointer,inducoarse,&
71 call ceedelemrestrictioncreate(ceed,nelem,pfine,ncomp,nufine,&
72 & ncomp*nufine,ceed_mem_host,ceed_use_pointer,indufine,&
80 call ceedbasiscreatetensorh1lagrange(ceed,1,ncomp,pfine,q,ceed_gauss,&
82 call ceedbasiscreatetensorh1lagrange(ceed,1,ncomp,pcoarse,q,ceed_gauss,&
96 call ceedqfunctionaddinput(qf_mass,'u',ncomp,ceed_eval_interp,err)
97 call ceedqfunctionaddoutput(qf_mass,'v',ncomp,ceed_eval_interp,err)
125 call ceedvectorcreate(ceed,ncomp*nufine,pmultfine,err)
132 call ceedvectorcreate(ceed,ncomp*nucoarse,ucoarse,err)
135 call ceedvectorcreate(ceed,ncomp*nucoarse,vcoarse,err)
142 do i=1,nucoarse*ncomp
153 call ceedvectorcreate(ceed,ncomp*nufine,ufine,err)
158 call ceedvectorcreate(ceed,ncomp*nufine,vfine,err)
165 do i=1,nufine*ncomp
182 do i=1,nucoarse*ncomp