5 * Revision 1.1.1.1 1995/10/24 10:20:09 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.19 by S.Giani
12 SUBROUTINE GFHEAD (NWHEAD,IHEAD,NWBUF,UBUF)
14 C. ******************************************************************
16 C * Retrieves the parameter of the Header bank *
18 C. * ==>Called by : <USER> *
21 C. ******************************************************************
23 #include "geant321/gcbank.inc"
24 #include "geant321/gcunit.inc"
25 #include "geant321/gcflag.inc"
27 DIMENSION IHEAD(1),UBUF(1)
32 IHEAD(I) = IQ(JHEAD+I)
36 IF (LQ(JHEAD-1).NE.0) THEN
46 WRITE(CHMAIL,1000) IEVENT
50 1000 FORMAT(' **** GFHEAD: No Header bank in memory for ievent:',I7)