FUNCTION AMANTI(X)
      IF(X.NE.0.0) GOTO 20
      AMANTI=0.0
      RETURN
 20   Z=ALOG10(ABS(X))+77.0
      Y=10.0**(AMOD(Z,1.0))
      AMANTI=SIGN(Y,X)
      RETURN
      END