SUBROUTINE REPAR(THETA,NPARS)
      IMPLICIT REAL*8 (A-H,O-Z)
      COMMON/AAML/WT,PRI,PDAT,PAR(250),ITER,NPAR,LWRITE
      COMMON/APAR/NK,NP,NALL,LH,LP
      LOGICAL LWRITE
      DIMENSION THETA(NPAR)
      NPARS=NALL
      CALL DCOPY(NPARS,PAR,1,THETA,1)
      THETA(LH)=DLOG(PAR(LH))
      PRI=PRI+DLOG(PAR(LH))
      RETURN
      ENTRY REPAR0
      READ(5,*,END=110,ERR=120)NK,NP
      NALL=NK+NP+1
      LH=NK+1
      LP=LH+1
      RETURN
  110 CALL PEND('UNEXPECTED END OF FILE READING NK AND NP')
  120 CALL PEND('READ ERROR FOR NK AND NP')
      END
      LOGICAL FUNCTION LRANGE(NPARS,THETA,LALL)
      IMPLICIT REAL*8 (A-H,O-Z)
      COMMON/APAR/NK,NP,NALL,LH,LP
      LOGICAL LALL
      DIMENSION THETA(NPARS)
      LALL=.FALSE.
      LRANGE=LINOP(NP,THETA(LP))
      RETURN
      END