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 ceedelemrestrictionapply(r,ceed_notranspose,x,y,&
51 call ceedelemrestrictiongetelayout(r,layout,err)
52 do i=0,elemsize-1
54 do k=0,ne-1
59 diff=diff-a(ind(k*elemsize+i+1)+1)
60 if (abs(diff) > 1.0D-15) then
73 call ceedelemrestrictionapply(r,ceed_transpose,y,x,&
79 diff=diff-2*(10+i-1)
81 diff=diff-(10+i-1)
83 if (abs(diff) > 1.0D-15) then
94 call ceedelemrestrictiondestroy(r,err)
98 !-----------------------------------------------------------------------