[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / mqv / zvfpri.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/03/06 10:47:13  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
      SUBROUTINE ZVFPRI

C-    Print pending header lines for ZVERIF

#include "zebra/zmach.inc"
#include "zebra/zstate.inc"
#include "zebra/zunit.inc"
#include "zebra/mqsys.inc"
#include "zebra/mzcn.inc"
#include "zebra/zvfaut.inc"
#include "zebra/zvfwkc.inc"
C--------------    END CDE                             --------------
      DIMENSION    MBKDES(9)
      EQUIVALENCE (MBKDES(1),LBKLS)
      CHARACTER    CHWK*12

C--                Print main header line

      IF (IFLHD.EQ.0)  THEN
          IFLHD = 7
          N = LNBLNK (TEXTHD)
          WRITE (IQLOG,9011) TEXTHD(1:N)
          IF (IQVSTA.NE.0) WRITE (IQLOG,9012) IQVID
        ENDIF

 9011 FORMAT (1X/' ZVERIF.  called, ',A)
 9012 FORMAT (10X,'Verify ID =',I4,I10)

      IF (JVMODE.LT.0)             RETURN

C--                Print store header line

      IF (IFLST.EQ.0)  THEN
          IFLST = 7
          WRITE (IQLOG,9014) JQSTOR,(NQSNAM(J),J=1,2)
        ENDIF

 9014 FORMAT (1X/' ZVERIF.  Doing store',I3,', id= ',2A4)

      IF (JVMODE.EQ.0)             RETURN

C----              Link areas / banks

      LFAILS = JQSTOR
      LFAILD = JQDIVI
      IF (JVMODE.GE.2)             GO TO 31

C--                Doing link area

      IF (IFLLA.NE.0)              RETURN
      IFLLA = 7
      IF (LATMP.EQ.0)  THEN
          CHWK = ', permanent '
        ELSE
          CHWK = ', temporary '
        ENDIF
      WRITE (IQLOG,9024) JQSTOR,CHWK,NAMEPR,JDESLA
      RETURN

 9024 FORMAT (' ZVERIF.  Store',I3,A,'link-area ',2A4,' J=',I6)

C--                Doing banks

   31 IF (IFLDV.EQ.0)  THEN
          IFLDV = 7
          WRITE (IQLOG,9031) JQSTOR,JQDIVI,NAMEPR,LDIVLO,LDIVHI
        ENDIF

 9031 FORMAT (' ZVERIF.  Store',I3,', doing division',I3,1X,2A4,
     F' from/to =',2I10)

      IF (IFLBK.NE.0)              RETURN
      IFLBK = 7
      IF (IBKXX.EQ.0)  THEN
          CHWK(1:6) = ' live '
        ELSE
          CHWK(1:6) = ' dead '
        ENDIF
      WRITE (IQLOG,9034) CHWK(1:6),MBKDES
      RETURN

 9034 FORMAT (' ZVERIF.  Doing',A,'bank at',I9,' IDH/IDN= ',A4,I5,
     F' NIO=',I3/10X,'NL/NS/ND=',2I6,I8,' LA/LE=',2I10)
      END
*      ==================================================
#include "zebra/qcardl.inc"
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	SUBROUTINE ZVFPRI
	11
	12	C- Print pending header lines for ZVERIF
	13
	14	#include "zebra/zmach.inc"
	15	#include "zebra/zstate.inc"
	16	#include "zebra/zunit.inc"
	17	#include "zebra/mqsys.inc"
	18	#include "zebra/mzcn.inc"
	19	#include "zebra/zvfaut.inc"
	20	#include "zebra/zvfwkc.inc"
	21	C-------------- END CDE --------------
	22	DIMENSION MBKDES(9)
	23	EQUIVALENCE (MBKDES(1),LBKLS)
	24	CHARACTER CHWK*12
	25
	26	C-- Print main header line
	27
	28	IF (IFLHD.EQ.0) THEN
	29	IFLHD = 7
	30	N = LNBLNK (TEXTHD)
	31	WRITE (IQLOG,9011) TEXTHD(1:N)
	32	IF (IQVSTA.NE.0) WRITE (IQLOG,9012) IQVID
	33	ENDIF
	34
	35	9011 FORMAT (1X/' ZVERIF. called, ',A)
	36	9012 FORMAT (10X,'Verify ID =',I4,I10)
	37
	38	IF (JVMODE.LT.0) RETURN
	39
	40	C-- Print store header line
	41
	42	IF (IFLST.EQ.0) THEN
	43	IFLST = 7
	44	WRITE (IQLOG,9014) JQSTOR,(NQSNAM(J),J=1,2)
	45	ENDIF
	46
	47	9014 FORMAT (1X/' ZVERIF. Doing store',I3,', id= ',2A4)
	48
	49	IF (JVMODE.EQ.0) RETURN
	50
	51	C---- Link areas / banks
	52
	53	LFAILS = JQSTOR
	54	LFAILD = JQDIVI
	55	IF (JVMODE.GE.2) GO TO 31
	56
	57	C-- Doing link area
	58
	59	IF (IFLLA.NE.0) RETURN
	60	IFLLA = 7
	61	IF (LATMP.EQ.0) THEN
	62	CHWK = ', permanent '
	63	ELSE
	64	CHWK = ', temporary '
65	ENDIF
66	WRITE (IQLOG,9024) JQSTOR,CHWK,NAMEPR,JDESLA
67	RETURN
68
69	9024 FORMAT (' ZVERIF. Store',I3,A,'link-area ',2A4,' J=',I6)
70
71	C-- Doing banks
72
73	31 IF (IFLDV.EQ.0) THEN
74	IFLDV = 7
75	WRITE (IQLOG,9031) JQSTOR,JQDIVI,NAMEPR,LDIVLO,LDIVHI
76	ENDIF
77
78	9031 FORMAT (' ZVERIF. Store',I3,', doing division',I3,1X,2A4,
79	F' from/to =',2I10)
80
81	IF (IFLBK.NE.0) RETURN
82	IFLBK = 7
83	IF (IBKXX.EQ.0) THEN
84	CHWK(1:6) = ' live '
85	ELSE
86	CHWK(1:6) = ' dead '
87	ENDIF
88	WRITE (IQLOG,9034) CHWK(1:6),MBKDES
89	RETURN
90
91	9034 FORMAT (' ZVERIF. Doing',A,'bank at',I9,' IDH/IDN= ',A4,I5,
92	F' NIO=',I3/10X,'NL/NS/ND=',2I6,I8,' LA/LE=',2I10)
93	END
94	* ==================================================
95	#include "zebra/qcardl.inc"