ApproxEQR
This performs a relative comparison by scaling the default epsilon-value to the size of the larger of the two.
note
It should be used when a and b are of the same magnitude and very large or very small. If either a or b is zero (exactly) then this routine is equivalent to an absolute comparison APPROXEQ.
abool= a .APPROXEQR. b