5 * Revision 1.2 1998/02/10 16:04:18 japost
6 * Comments are correctly redistributed.
8 * Revision 1.1.1.1 1995/10/24 10:21:18 cernlib
12 #include "geant321/pilot.h"
13 *CMZ : 3.21/02 29/03/94 15.41.21 by S.Giani
15 SUBROUTINE GFKINE(ITRA,VERT,PVERT,IPART,NVERT,UBUF,NWBUF)
17 ************************************************************************
19 * Retrieves Vertex and Track parameters *
20 * ------------------------------------- *
22 * Retrieves parameters for a track with a long lifetime. *
25 * ITRA track number for which parameters are requested *
28 * VERT vector origin of the track *
29 * PVERT 4 momentum components at the track origin *
30 * IPART particle type (=0 if track ITRA does not exist) *
31 * NVERT vertex number origin of the track *
32 * UBUF user words stored in GSKINE. *
34 * ==>Called by : <USER>, GTREVE *
35 * Author R.Brun ********* *
37 ************************************************************************
39 #include "geant321/gcbank.inc"
40 #include "geant321/gcnum.inc"
41 #include "geant321/gctrak.inc"
42 DIMENSION VERT(3),PVERT(4),UBUF(*)
44 C. ------------------------------------------------------------------
47 IF (JKINE.LE.0)GO TO 99
48 IF (ITRA.LE.0)GO TO 99
49 IF (ITRA.GT.NTRACK)GO TO 99
54 IF (JVERTX.LE.0)GO TO 99
58 10 VERT(I) = Q(JV + I)
62 20 PVERT(I) = Q(JK + I)
67 IF (NLINK.LE.0)GO TO 99