FUNCTION IEXPON(X)
      IF(X.NE.0.0) GOTO 20
      IEXPON=0
      RETURN
 20   Y=ALOG10(ABS(X))+77.0
      IEXPONENT=INT(Y)-77
      RETURN
      END