      IPRED = RX_PRED_F_
      IF (IPRED .EQ. 0.0) THEN
         IPRED = -1000000000
      ELSE
         IPRED = DLOG(IPRED)
      END IF
