Lines Matching +full:- +full:r
1 !-----------------------------------------------------------------------
8 integer r variable
29 ind(4*i-3)=3*i-3
30 ind(4*i-2)=3*i-2
31 ind(4*i-1)=3*i-1
32 ind(4*i-0)=3*i-0
35 & ceed_use_pointer,ind,r,err)
37 call ceedelemrestrictiongetmultiplicity(r,mult,err)
41 if(i > 1 .and. i < 3*ne+1 .and. mod(i-1,3)==0) then
46 diff=1+offset-mm(i+moffset)
47 if (abs(diff) > 1.0D-15) then
56 call ceedelemrestrictiondestroy(r,err)
60 !-----------------------------------------------------------------------