This commit was generated by cvs2svn to compensate for changes in r7641,
[u/mrichter/AliRoot.git] / DPMJET / flukapro / (CMTIME)
1 *$ CREATE CMTIME.ADD
2 *COPY CMTIME
3 *
4 *=== cmtime ===========================================================*
5 *
6 *----------------------------------------------------------------------*
7 *                                                                      *
8 *     Include file cmtime                                              *
9 *                                                                      *
10 *     Created on  03 august 1991   by    Alfredo Ferrari & Paola Sala  *
11 *                                                   Infn - Milan       *
12 *                                                                      *
13 *     Last change on 08-jul-92     by    Alfredo Ferrari               *
14 *                                                                      *
15 *          Included in:                                                *
16 *                       Electr                                         *
17 *                       Feeder                                         *
18 *                       Fluka                                          *
19 *                       Kaskad                                         *
20 *                       Kasneu                                         *
21 *                       Photon                                         *
22 *                       Zeroin                                         *
23 *          Variables:                                                  *
24 *                       Tctffp(i) = cut off time for ith-particle type *
25 *                                   in seconds                         *
26 *                       Tdelap(i) = delay time before applying the ti- *
27 *                                   me cutoff for ith-particle type in *
28 *                                   seconds                            *
29 *                       Tcutof    = total time cutoff for the present  *
30 *                                   particle in seconds                *
31 *                       Tstart    = start time in seconds              *
32 *                       Mtstrp(i) = material number for the start si-  *
33 *                                   gnal                               *
34 *                                                                      *
35 *      W A R N I N G !!!  S T A R T   S I G N A L   N O T   Y E T      *
36 *                         I M P L E M E N T E D !!!                    *
37 *                                                                      *
38 *----------------------------------------------------------------------*
39 *
40       COMMON / CMTIME / TCTFFP (-6:NALLWP), TDELAP (-6:NALLWP), TCUTOF,
41      &                  TSTART, MTSTRP (-6:NALLWP)
42