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=K
      CALL DCOPY(NK,PAR,1,THETA,1)
      RETURN
      ENTRY REPAR0
      READ(5,*)K
      RETURN
      END
      LOGICAL FUNCTION LRANGE(NK,THETA,LALL)
      IMPLICIT REAL*8 (A-H,O-Z)
      LOGICAL LALL
      LALL=.TRUE.
      LRANGE=.TRUE.
      RETURN
      END