MINICERN/packlib/zebra/fq/fziprl.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:15  mclareni
   6 * Zebra
   7 *
   8 *
   9 #include "zebra/pilot.h"
  10       SUBROUTINE FZIPRL (IHOW)
  11
  12 C-    Physical record length mis-match, reset if possible
  13
  14 C-    in :    IHOW = 0  reset if possible
  15 C-                   1  reset only if start-of-run
  16
  17 C-    out :  IRETN = 0  reset done
  18 C-                   1  reset fails, not start-of-run
  19 C-                   2  reset fails, record larger than buffer
  20
  21 #include "zebra/zmach.inc"
  22 #include "zebra/zunit.inc"
  23 #include "zebra/mqsys.inc"
  24 #include "zebra/eqlqf.inc"
  25 #include "zebra/fzci.inc"
  26 #include "fzhci.inc"
  27 C--------------    End CDE                             --------------
  28
  29
  30       IF (NWRI.GT.IQ(KQSP+LBPARI))    GO TO 42
  31       IRETN = 0
  32       IF (IHOW.NE.0)  THEN
  33           IF (JMODI.NE.1)          GO TO 41
  34           IF (NTLRI.NE.8)          GO TO 41
  35           L4CURI = L4STAI + 8
  36           IF (LQ(L4CURI+1).NE.1)   GO TO 41
  37           IF (LQ(L4CURI+2).LE.0)   GO TO 41
  38         ENDIF
  39
  40 #if defined(CERNLIB_QPRINT)
  41       IF (LOGLVI.GE.-1)  WRITE (IQLOG,9066) LUNI, NWRI
  42  9066 FORMAT (1X/' FZIPHR.  LUN=',I3,', Reset block size to',I6)
  43 #endif
  44
  45       MAXREI = NWRI
  46       NWMIN  = NWRI
  47 #if defined(CERNLIB_FQNEEDPK)
  48       IF (IUPAKI.NE.0)             GO TO 38
  49 #include "fznwmach.inc"
  50 * Ignoring t=pass
  51 #endif
  52    38 IQ(KQSP+LQFI+5)   = MAXREI
  53       IQ(KQSP+LBPARI+1) = NWMIN
  54       GO TO 48
  55
  56    42 IRETN = 1
  57    41 IRETN = IRETN + 1
  58    48 IQUEST(1) = IRETN
  59       RETURN
  60       END