SUBROUTINE REPAR(THETA,NK)
      IMPLICIT REAL*8 (A-H,O-Z)
      COMMON/AAML/WT,PRI,PDAT,PAR(250),ITER,NPAR,LWRITE
      LOGICAL LWRITE
      DIMENSION THETA(NPAR)
      NK=NPAR/2+1
      CALL DCOPY(NK-1,PAR,1,THETA,1)
      THETA(NK)=DLOG(PAR(NPAR))
      PRI=PRI+DLOG(PAR(NPAR))
      RETURN
      ENTRY REPAR0
      RETURN
      END
      LOGICAL FUNCTION LRANGE(NK,THETA,LALL)
      IMPLICIT REAL*8 (A-H,O-Z)
      LOGICAL LALL
      LALL=.TRUE.
      LRANGE=.TRUE.
      RETURN
      END