SUBROUTINE XLIKE(N,X,XLOG)
      INCLUDE 'PARMTR.INC'
      DOUBLE PRECISION X(*),XLOG
      LOGICAL GRP, POOL, PEST, SEST, DESC, DEF, CUPT, TRUNC, HELP, TRAN
      COMMON /OPTION/ GRP, POOL, PEST, SEST, DESC, DEF, CUTP, TRUNC,
     1 HELP
      DOUBLE PRECISION PAR, VCMAT, G, XLL
      COMMON /DPAR/ PAR(MAXPR2), VCMAT(MAXPAR,MAXPAR), G(MAXPAR),
     1    XLL, NPAR, INDEX
      TRAN=.TRUE.
      CALL DOMAIN(INDEX,PAR,X,NPAR,TRAN)
      ITIME=2
      IF (GRP) THEN
         CALL CELLS (ITIME)
      ELSE
         CALL UMLE (ITIME)
      ENDIF
      XLOG=-XLL
      RETURN
      END