Lines Matching refs:blksize
11 integer ne,elemsize,nb,blksize variable
12 parameter(ne=8,elemsize=2,nb=2,blksize=5)
18 real*8 yy(nb*blksize*elemsize)
41 call ceedelemrestrictioncreateblocked(ceed,ne,elemsize,blksize,1,1,ne+1,&
44 call ceedvectorcreate(ceed,blksize*elemsize,y,err);
54 do k=blksize,ne-1
55 blk = k/blksize
56 elem = mod(k,blksize)
57 indx = (i*blksize+elem)*layout(1)+j*layout(2)*blksize+blk*layout(3)*blksize-&
58 & blksize*elemsize
77 do i=blksize+1,ne+1
79 if (i > blksize+1 .and. i < ne+1) then