5 * Revision 1.1.1.1 1996/04/01 15:02:20 mclareni
12 PARAMETER (W5 = 2.23606 79774 99790D0)
13 PARAMETER (HV = (3-W5)/2, HW = (W5-1)/2, R1 = 1, HF = R1/2)
16 IF(A .NE. B) N=NINT(2.08*LOG(ABS((A-B)/EPS)))
30 LLM=ABS(X-A) .GT. DELTA .AND. ABS(X-B) .GT. DELTA