REAL FUNCTION XLOG(Y)
      REAL Y
      IF(Y .EQ. 0) THEN
        XLOG = 0
      ELSE
        XLOG = LOG(Y)
      ENDIF
      RETURN
      END
      REAL FUNCTION XLOG10(Y)
      REAL Y
      IF(Y .EQ. 0) THEN
        XLOG10 = 0
      ELSE
        XLOG10 = LOG10(Y)
      ENDIF
      RETURN
      END