5 * Revision 1.1.1.1 1995/10/24 10:21:19 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.21 by S.Giani
12 SUBROUTINE GSVERU (IVTX,NWBUF,UBUF,IADR)
14 C. ******************************************************************
16 C * Stores User's informations in VERTEX user bank, *
17 C * for vertex IVTX. (IVTX must be an already existing vertex)*
18 C * IADR is the stating location within the bank. *
20 C * on output IADR is the new starting location *
22 C. * ==>Called by : <USER> *
25 C. ******************************************************************
27 #include "geant321/gcbank.inc"
28 #include "geant321/gcunit.inc"
29 #include "geant321/gcflag.inc"
33 IF ((JVERTX.GT.0).AND.(LQ(JVERTX-IVTX).GT.0)) THEN
37 IF (LQ(JV-1).EQ.0) THEN
38 CALL MZBOOK (IXDIV,JVU,JV,-1,'VERU',0,0,NDATA,3,0)
42 NFREE = IQ(JVU-1) - NDATA
43 IF (NFREE.LT.0) CALL MZPUSH (IXDIV,JVU,0,-NFREE,'I')
47 Q(JVU+IADR+I) = UBUF(I)
54 WRITE(CHMAIL,1000) IEVENT,IVTX
58 1000 FORMAT(' **** GSVERU: No Vertex bank in memory for ievent:',I7,
59 & ' or vertex:',I4,'does not exist')