Lines Matching +full:- +full:r

1 !-----------------------------------------------------------------------
8       integer r  variable
29         a(i)=10+i-1
36       call ceedelemrestrictioncreatestrided(ceed,ne,2,1,2*ne,strides,r,err)
40       call ceedelemrestrictionapply(r,ceed_notranspose,x,y,&
44       call ceedelemrestrictiongetelayout(r,layout,err)
47           do k=0,ne-1
49             diff=diff-a(i*strides(1)+j*strides(2)+k*strides(3)+1)
50             if (abs(diff) > 1.0D-15) then
63       call ceedelemrestrictiondestroy(r,err)
67 !-----------------------------------------------------------------------