Searched refs:nufine (Results 1 – 3 of 3) sorted by relevance
| /libCEED/tests/ |
| H A D | t550-operator-f.f90 | 26 integer nx,nucoarse,nufine
29 parameter(nufine=nelem*(pfine-1)+1)
37 real*8 hv(nufine*ncomp)
71 call ceedelemrestrictioncreate(ceed,nelem,pfine,ncomp,nufine,&
72 & ncomp*nufine,ceed_mem_host,ceed_use_pointer,indufine,&
125 call ceedvectorcreate(ceed,ncomp*nufine,pmultfine,err)
153 call ceedvectorcreate(ceed,ncomp*nufine,ufine,err)
158 call ceedvectorcreate(ceed,ncomp*nufine,vfine,err)
165 do i=1,nufine*ncomp
|
| H A D | t552-operator-f.f90 | 26 integer nx,nucoarse,nufine
29 parameter(nufine=nelem*(pfine-1)+1)
40 real*8 hv(nufine*ncomp)
74 call ceedelemrestrictioncreate(ceed,nelem,pfine,ncomp,nufine,&
75 & ncomp*nufine,ceed_mem_host,ceed_use_pointer,indufine,&
126 call ceedvectorcreate(ceed,ncomp*nufine,pmultfine,err)
163 call ceedvectorcreate(ceed,ncomp*nufine,ufine,err)
168 call ceedvectorcreate(ceed,ncomp*nufine,vfine,err)
175 do i=1,nufine*ncomp
|
| H A D | t553-operator-f.f90 | 20 integer nx,nucoarse,nufine variable
23 parameter(nufine=nelem*(pfine-1)+1)
34 real*8 hv(nufine)
65 call ceedelemrestrictioncreate(ceed,nelem,pfine,1,1,nufine,&
105 call ceedvectorcreate(ceed,nufine,pmultfine,err)
142 call ceedvectorcreate(ceed,nufine,ufine,err)
147 call ceedvectorcreate(ceed,nufine,vfine,err)
154 do i=1,nufine
|