Home
last modified time | relevance | path

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

/libCEED/tests/ !
H A Dt553-operator-f.f9015 integer nelem,pcoarse,pfine,q variable
17 parameter(pcoarse=3)
22 parameter(nucoarse=nelem*(pcoarse-1)+1)
25 integer inducoarse(nelem*pcoarse)
31 parameter(interpsize=pcoarse*pfine);
53 do j=0,pcoarse-1
54 inducoarse(pcoarse*i+j+1)=i*(pcoarse-1)+j
57 call ceedelemrestrictioncreate(ceed,nelem,pcoarse,1,1,nucoarse,&
108 call ceedbasiscreatetensorh1lagrange(ceed,1,1,pcoarse,q,ceed_gauss,&
110 call ceedbasiscreatetensorh1lagrange(ceed,1,1,pcoarse,pfine,&
H A Dt552-operator-f.f9020 integer nelem,pcoarse,pfine,q,ncomp
23 parameter(pcoarse=3)
28 parameter(nucoarse=nelem*(pcoarse-1)+1)
31 integer inducoarse(nelem*pcoarse)
37 parameter(interpsize=pcoarse*pfine);
61 do j=0,pcoarse-1
62 inducoarse(pcoarse*i+j+1)=i*(pcoarse-1)+j
65 call ceedelemrestrictioncreate(ceed,nelem,pcoarse,ncomp,nucoarse,&
129 call ceedbasiscreatetensorh1lagrange(ceed,1,ncomp,pcoarse,q,&
131 call ceedbasiscreatetensorh1lagrange(ceed,1,ncomp,pcoarse,pfine,&
H A Dt550-operator-f.f9020 integer nelem,pcoarse,pfine,q,ncomp
23 parameter(pcoarse=3)
28 parameter(nucoarse=nelem*(pcoarse-1)+1)
31 integer inducoarse(nelem*pcoarse)
58 do j=0,pcoarse-1
59 inducoarse(pcoarse*i+j+1)=i*(pcoarse-1)+j
62 call ceedelemrestrictioncreate(ceed,nelem,pcoarse,ncomp,nucoarse,&
82 call ceedbasiscreatetensorh1lagrange(ceed,1,ncomp,pcoarse,q,ceed_gauss,&