Home
last modified time | relevance | path

Searched refs:nucoarse (Results 1 – 3 of 3) sorted by relevance

/libCEED/tests/
H A Dt550-operator-f.f9026 integer nx,nucoarse,nufine
28 parameter(nucoarse=nelem*(pcoarse-1)+1)
62 call ceedelemrestrictioncreate(ceed,nelem,pcoarse,ncomp,nucoarse,&
63 & ncomp*nucoarse,ceed_mem_host,ceed_use_pointer,inducoarse,&
132 call ceedvectorcreate(ceed,ncomp*nucoarse,ucoarse,err)
135 call ceedvectorcreate(ceed,ncomp*nucoarse,vcoarse,err)
142 do i=1,nucoarse*ncomp
182 do i=1,nucoarse*ncomp
H A Dt552-operator-f.f9026 integer nx,nucoarse,nufine
28 parameter(nucoarse=nelem*(pcoarse-1)+1)
65 call ceedelemrestrictioncreate(ceed,nelem,pcoarse,ncomp,nucoarse,&
66 & ncomp*nucoarse,ceed_mem_host,ceed_use_pointer,inducoarse,&
142 call ceedvectorcreate(ceed,ncomp*nucoarse,ucoarse,err)
145 call ceedvectorcreate(ceed,ncomp*nucoarse,vcoarse,err)
152 do i=1,nucoarse*ncomp
192 do i=1,nucoarse*ncomp
H A Dt553-operator-f.f9020 integer nx,nucoarse,nufine variable
22 parameter(nucoarse=nelem*(pcoarse-1)+1)
57 call ceedelemrestrictioncreate(ceed,nelem,pcoarse,1,1,nucoarse,&
121 call ceedvectorcreate(ceed,nucoarse,ucoarse,err)
124 call ceedvectorcreate(ceed,nucoarse,vcoarse,err)
131 do i=1,nucoarse
171 do i=1,nucoarse