Lines Matching refs:ncomp
20 integer nelem,pcoarse,pfine,q,ncomp
21 parameter(ncomp=2)
40 real*8 hv(nufine*ncomp)
65 call ceedelemrestrictioncreate(ceed,nelem,pcoarse,ncomp,nucoarse,&
66 & ncomp*nucoarse,ceed_mem_host,ceed_use_pointer,inducoarse,&
74 call ceedelemrestrictioncreate(ceed,nelem,pfine,ncomp,nufine,&
75 & ncomp*nufine,ceed_mem_host,ceed_use_pointer,indufine,&
83 call ceedbasiscreatetensorh1lagrange(ceed,1,ncomp,pfine,q,ceed_gauss,&
97 call ceedqfunctionaddinput(qf_mass,'u',ncomp,ceed_eval_interp,err)
98 call ceedqfunctionaddoutput(qf_mass,'v',ncomp,ceed_eval_interp,err)
126 call ceedvectorcreate(ceed,ncomp*nufine,pmultfine,err)
129 call ceedbasiscreatetensorh1lagrange(ceed,1,ncomp,pcoarse,q,&
131 call ceedbasiscreatetensorh1lagrange(ceed,1,ncomp,pcoarse,pfine,&
142 call ceedvectorcreate(ceed,ncomp*nucoarse,ucoarse,err)
145 call ceedvectorcreate(ceed,ncomp*nucoarse,vcoarse,err)
152 do i=1,nucoarse*ncomp
163 call ceedvectorcreate(ceed,ncomp*nufine,ufine,err)
168 call ceedvectorcreate(ceed,ncomp*nufine,vfine,err)
175 do i=1,nufine*ncomp
192 do i=1,nucoarse*ncomp