FUNCTION AINTER(RANGE,NPT)
      B=RANGE/FLOAT(NPT)
      A=AMANTI(B)
      IF(A.LE.3.5) GOTO 10
      IF(A.LE.7.5) GOTO 20
      A=10.0
      GOTO 30
 10   A=2.0
      GOTO 30
 20   A=5.0
 30   AINTER=A*(10.0**IEXPON(B))
      RETURN
      END