* * $Id: gukine.F,v 1.1.1.1 1995/10/24 10:21:46 cernlib Exp $ * * $Log: gukine.F,v $ * Revision 1.1.1.1 1995/10/24 10:21:46 cernlib * Geant * * #include "geant321/pilot.h" *CMZ : 3.21/02 29/03/94 15.41.25 by S.Giani *-- Author : SUBROUTINE GUKINE C. C. ****************************************************************** C. * * C. * Read or Generates Kinematics for primary tracks * C. * * C. * ==>Called by : GTRIG * C. * * C. ****************************************************************** C. C. C. ------------------------------------------------------------------ C. C END