Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / gbase / gshead.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1995/10/24 10:20:11 cernlib
6* Geant
7*
8*
9#include "geant321/pilot.h"
10*CMZ : 3.21/02 29/03/94 15.41.19 by S.Giani
11*-- Author :
12 SUBROUTINE GSHEAD (NWBUF,UBUF,IADR)
13C.
14C. ******************************************************************
15C. * *
16C * Stores User's informations in HEADER user bank. *
17C * IADR is the stating location in the bank *
18C * *
19C * on output IADR is the new starting location *
20C. * *
21C. * ==>Called by : <USER> *
22C. * Author M.Maire *
23C. * *
24C. ******************************************************************
25C.
26#include "geant321/gcbank.inc"
27#include "geant321/gcunit.inc"
28#include "geant321/gcflag.inc"
29*
30 DIMENSION UBUF(1)
31*
32 IF (JHEAD.GT.0) THEN
33*
34 NDATA = IADR + NWBUF
35 IF (LQ(JHEAD-1).EQ.0) THEN
36 CALL MZBOOK (IXDIV,JHU,JHEAD,-1,'HEDU',0,0,NDATA,3,0)
37 ELSE
38 JHU = LQ(JHEAD-1)
39 NFREE = IQ(JHU-1) - NDATA
40 IF (NFREE.LT.0) CALL MZPUSH (IXDIV,JHU,0,-NFREE,'I')
41 ENDIF
42*
43 DO 10 I=1,NWBUF
44 Q(JHU+IADR+I) = UBUF(I)
45 10 CONTINUE
46*
47 IADR = IADR + NWBUF
48 ELSE
49*
50 IADR = 0
51 WRITE(CHMAIL,1000) IEVENT
52 CALL GMAIL(0,0)
53 ENDIF
54*
55 1000 FORMAT(' **** GSHEAD: No Header bank in memory for ievent:',I7)
56*
57 END