Lines Matching +full:- +full:r
1 !-----------------------------------------------------------------------
8 integer r variable
31 a(i)=10+i-1
38 ind(2*i-1)=i-1
42 & ceed_mem_host,ceed_use_pointer,ind,r,err)
48 call ceedelemrestrictionapplyblock(r,1,ceed_notranspose,x,y,&
51 call ceedelemrestrictiongetelayout(r,layout,err)
52 do i=0,elemsize-1
54 do k=blksize,ne-1
57 indx = (i*blksize+elem)*layout(1)+j*layout(2)*blksize+blk*layout(3)*blksize-&
60 diff=diff-a(ind(k*elemsize+i+1)+1)
61 if (abs(diff) > 1.0D-15) then
74 call ceedelemrestrictionapplyblock(r,1,ceed_transpose,y,x,&
80 diff=diff-2*(10+i-1)
82 diff=diff-(10+i-1)
84 if (abs(diff) > 1.0D-15) then
95 call ceedelemrestrictiondestroy(r,err)
99 !-----------------------------------------------------------------------