]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 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 |