SUBROUTINE PARPRT(ITN,X,XLOG)
      INCLUDE 'PARMTR.INC'
      DOUBLE PRECISION X(*),XLOG
      DOUBLE PRECISION PAR, VCMAT, G, XLL
      COMMON /DPAR/ PAR(MAXPR2), VCMAT(MAXPAR,MAXPAR), G(MAXPAR),
     1    XLL, NPAR, INDEX
      COMMON /ERROR/ IER(4), LER
      LOGICAL LER
      CHARACTER*8 ERRSTR
      INTEGER*2 ERR(4)
      LOGICAL TRAN
      TRAN=.TRUE.
      CALL DOMAIN(INDEX,PAR,X,NPAR,TRAN)
  120 NERR=0
      DO 130 I=1,4
      IF (IER(I).NE.-1) GO TO 130
      IER(I)=0
      NERR=NERR+1
      ERR(NERR)=I
  130 CONTINUE
      IF (NERR.EQ.0) THEN
         ERRSTR=' '
      ELSE
         LER=.TRUE.
         ERRSTR=' '
         WRITE (ERRSTR,'(4I2)') (ERR(I),I=1,NERR)
      ENDIF
      WRITE(6,'(1X,I3,1X,G11.5,A8,4G14.6,3(:,/24X,4G14.6))')
     1   ITN,-XLOG,ERRSTR,(PAR(I),I=1,NPAR)
      RETURN
      END