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