Lines Matching refs:nelem

15       integer nelem,pcoarse,pfine,q  variable
16       parameter(nelem=15)
21       parameter(nx=nelem+1)
22       parameter(nucoarse=nelem*(pcoarse-1)+1)
23       parameter(nufine=nelem*(pfine-1)+1)
24       integer indx(nelem*2)
25       integer inducoarse(nelem*pcoarse)
26       integer indufine(nelem*pfine)
45       do i=0,nelem-1
49       call ceedelemrestrictioncreate(ceed,nelem,2,1,1,nx,ceed_mem_host,&
52       do i=0,nelem-1
57       call ceedelemrestrictioncreate(ceed,nelem,pcoarse,1,1,nucoarse,&
60       do i=0,nelem-1
65       call ceedelemrestrictioncreate(ceed,nelem,pfine,1,1,nufine,&
69       call ceedelemrestrictioncreatestrided(ceed,nelem,q,1,q*nelem,stridesu,&
87       call ceedvectorcreate(ceed,nelem*q,qdata,err)