5 * Revision 1.1.1.1 1995/10/24 10:20:11 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.19 by S.Giani
14 C. ******************************************************************
16 C. * Prints Header bank JHEAD *
18 C. * ==>Called by : <USER> *
21 C. ******************************************************************
23 #include "geant321/gcbank.inc"
24 #include "geant321/gcunit.inc"
25 #include "geant321/gcflag.inc"
29 WRITE (CHMAIL,1000) (IQ(JHEAD+I),I=1,4)
31 WRITE (CHMAIL,1001) (IQ(JHEAD+I),I=5,NHEAD)
33 IF (LQ(JHEAD-1).NE.0) THEN
39 WRITE(CHMAIL,3000) (Q(JHU+I),I=1,NW)
41 IF ((NDT-NW).GT.0) THEN
44 WRITE(CHMAIL,3000) (Q(JHU+I),I=NS,NW)
49 WRITE(CHMAIL,4000) IEVENT
53 1000 FORMAT(' **** GPHEAD: IDRUN=',I4,' IDEVT=',I7,
54 & ' Random Seeds = ',I10,2X,I10)
55 1001 FORMAT(20X,10I10)
56 2000 FORMAT(14X,'User words')
57 3000 FORMAT( 1X,9(2X,E12.5))
58 4000 FORMAT(' **** GPHEAD: No Header bank in memory for ievent:',I7)