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
12 SUBROUTINE GSRUNG (NWBUF,UBUF,IADR)
14 C. ******************************************************************
16 C * Stores User's informations in RUNG user bank. *
17 C * IADR is the stating location in the bank *
19 C * on output IADR is the new starting location *
21 C. * ==>Called by : <USER> *
24 C. ******************************************************************
26 #include "geant321/gcbank.inc"
27 #include "geant321/gcunit.inc"
34 IF (LQ(JRUNG-1).EQ.0) THEN
35 CALL MZBOOK (IXCONS,JRU,JRUNG,-1,'RUNU',0,0,NDATA,3,0)
38 NFREE = IQ(JRU-1) - NDATA
39 IF (NFREE.LT.0) CALL MZPUSH (IXCONS,JRU,0,-NFREE,'I')
43 Q(JRU+IADR+I) = UBUF(I)
54 1000 FORMAT(' **** GSRUNG: No RUNG bank existing in memory ')