      SUBROUTINE ZRECAPL

C-    SELECT RECOVERY OPTIONS, REPLACABLE BY AN APPLICATION ROUTINE

#include "zebra/quest.inc"

C---  QUEST COMMUNICATES BETWEEN ZRECOV AND ZRECAPL
C-
C-    1   NCOUNT'TH  ERROR          (INPUT)
C-        DIRECT QFATAL IF .GE.0    (OUTPUT)
C-    2   JCONDT, SYSTEM CONDITION NUMBER
C-    3   RQ CONDITION NUMBER  (OUTPUT)  PRESET TO JCDID, NORMALLY 8
C-    4   (OUTPUT) NO/YES FLAG 'DUMP',  PRESET TO  .NE.0 = YES
C-    5   (OUTPUT) IF'DUMP' SELECTED, DETAILS ON HOW? FOR 900 ERRORS
C-        +VE  EXCH PACK + PROGRAM, =N WORDS EITHER SIDE OF P-COUNTER
C-          0  EXCHANGE PACK ONLY TO BE DUMPED
C-        -VE  NO DUMP  (EXCEPT TRACE-BACK SELECTED BY IQUEST(4) )
C-    6   (OUTPUT) FLAG: CALL ZEND/ZFATAL AFTER  CALL ZTELL
C-                       PRESET TO .NE.0 = QFATAL

#if !defined(CERNLIB_QDEBUG)
      IF (IQUEST(3).EQ.9)       CALL ZEND
      IQUEST(1) = IQUEST(1) - 24
#endif
      RETURN
      END
