This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / guser / gupara.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1995/10/24 10:21:47 cernlib
6* Geant
7*
8*
9#include "geant321/pilot.h"
10*CMZ : 3.21/02 29/03/94 15.41.25 by S.Giani
11*-- Author :
12 SUBROUTINE GUPARA
13C.
14C. ******************************************************************
15C. * *
16C. * User routine called every time a particle falls below *
17C. * parametrization threshold. This routine should create *
18C. * the parametrization stack, and, when this is full, *
19C. * parametrize the shower and track the geantinos. *
20C. * *
21C. * ==>Called by : GTRACK *
22C. * *
23C. ******************************************************************
24C.
25#include "geant321/gcflag.inc"
26#include "geant321/gckine.inc"
27#include "geant321/gcparm.inc"
28#include "geant321/gctmed.inc"
29#include "geant321/gctrak.inc"
30C.
31C. ------------------------------------------------------------------
32C.
33* CALL GSPARA
34*
35 END