SUBROUTINE ZSETREC (IPARAM)

C-    INITIALISE RECOVERY TO ZRECOV

      COMMON /EXCHPAK/JCONDT,JCODE,LREP,AB(8),X(8),PARITY,JCDID
      EXTERNAL     ZRECOV, REPFL
      DIMENSION    LIST(6)
      DATA  LIST   /1,0,0,0,2H**,-1/

      CALL REPINIT (ZRECOV)

      LIST(5) = LOCF (REPFL)
      DO 9 J=1,49
      CALL SYSTEMC (J,LIST)
    9 CONTINUE
      RETURN
      END