      integer  function ilog10 (i)                                      ILOG001
c ----------------------------------------------------------------------ILOG002
c     returns the logarithm of integer argument - needed for VAX        ILOG003
c ----------------------------------------------------------------------ILOG004
      f=float(i)                                                        ILOG005
      ilog10=alog10(f)                                                  ILOG006
      return                                                            ILOG007
      end                                                               ILOG008
                                                                        ILOG009
                                                                        ILOG010
