Searched refs:pfine (Results 1 – 3 of 3) sorted by relevance
| /libCEED/tests/ |
| H A D | t553-operator-f.f90 | 15 integer nelem,pcoarse,pfine,q variable
18 parameter(pfine=5)
23 parameter(nufine=nelem*(pfine-1)+1)
26 integer indufine(nelem*pfine)
31 parameter(interpsize=pcoarse*pfine);
61 do j=0,pfine-1
62 indufine(pfine*i+j+1)=i*(pfine-1)+j
65 call ceedelemrestrictioncreate(ceed,nelem,pfine,1,1,nufine,&
73 call ceedbasiscreatetensorh1lagrange(ceed,1,1,pfine,q,ceed_gauss,&
110 call ceedbasiscreatetensorh1lagrange(ceed,1,1,pcoarse,pfine,&
|
| H A D | t552-operator-f.f90 | 20 integer nelem,pcoarse,pfine,q,ncomp
24 parameter(pfine=5)
29 parameter(nufine=nelem*(pfine-1)+1)
32 integer indufine(nelem*pfine)
37 parameter(interpsize=pcoarse*pfine);
70 do j=0,pfine-1
71 indufine(pfine*i+j+1)=i*(pfine-1)+j
74 call ceedelemrestrictioncreate(ceed,nelem,pfine,ncomp,nufine,&
83 call ceedbasiscreatetensorh1lagrange(ceed,1,ncomp,pfine,q,ceed_gauss,&
131 call ceedbasiscreatetensorh1lagrange(ceed,1,ncomp,pcoarse,pfine,&
|
| H A D | t550-operator-f.f90 | 20 integer nelem,pcoarse,pfine,q,ncomp
24 parameter(pfine=5)
29 parameter(nufine=nelem*(pfine-1)+1)
32 integer indufine(nelem*pfine)
67 do j=0,pfine-1
68 indufine(pfine*i+j+1)=i*(pfine-1)+j
71 call ceedelemrestrictioncreate(ceed,nelem,pfine,ncomp,nufine,&
80 call ceedbasiscreatetensorh1lagrange(ceed,1,ncomp,pfine,q,ceed_gauss,&
|