MINICERN/packlib/zebra/fq/fzidum.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:13  mclareni
   6 * Zebra
   7 *
   8 *
   9 #include "zebra/pilot.h"
  10 #if defined(CERNLIB_QDEBPRI)
  11       SUBROUTINE FZIDUM (MREC,NW4USE)
  12
  13 C-    Dump start of or full physical record read
  14
  15 #include "zebra/zunit.inc"
  16 #include "zebra/fzci.inc"
  17 C--------------    End CDE                             --------------
  18       DIMENSION    MREC(3600)
  19 #if defined(CERNLIB_HEX)
  20       PARAMETER    (NWPLIN=8)
  21 #endif
  22 #if !defined(CERNLIB_HEX)
  23       PARAMETER    (NWPLIN=10)
  24 #endif
  25
  26       N  = NW4USE
  27       IF (LOGLVI.LT.4)  N=16
  28
  29       WRITE (IQLOG,9047) N
  30  9047 FORMAT (1X/' FZIPHx-  Dump first',I6,' words of block:')
  31
  32       JE = 0
  33    48 JA = JE + 1
  34       JE = MIN (N,JA+NWPLIN-1)
  35       WRITE (IQLOG,9048) JA,(MREC(J),J=JA,JE)
  36       IF (JE.LT.N)                 GO TO 48
  37       RETURN
  38 #if (defined(CERNLIB_HEX))&&(defined(CERNLIB_B32))
  39  9048 FORMAT (7X,I7,8(2X,Z8))
  40 #endif
  41 #if (defined(CERNLIB_HEX))&&(!defined(CERNLIB_B32))
  42  9048 FORMAT (7X,I7,8(1X,Z9))
  43 #endif
  44 #if !defined(CERNLIB_HEX)
  45  9048 FORMAT (7X,I7,5(2X,O12)/14X,5(2X,O12))
  46 #endif
  47       END
  48 #endif