This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / block / flkdt2.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:19:35  cernlib
6 * Geant
7 *
8 *
9 #include "geant321/pilot.h"
10 *CMZ :  3.21/02 29/03/94  15.41.45  by  S.Giani
11 *-- Author :
12 *$ CREATE BLKDT2.FOR
13 *COPY BLKDT2
14 *
15 *=== blkdt2 ===========================================================*
16 *==                                                                    *
17       SUBROUTINE FLKDT2
18  
19 #include "geant321/dblprc.inc"
20 #include "geant321/dimpar.inc"
21 #include "geant321/iounit.inc"
22 *         CHARACTER*8 EDI, EDI1, EDI2      Not used here! A.F.
23 *
24       DIMENSION RUNT1(2)
25 *
26       COMMON /FKCD97/ CDDT
27         DATA CDDT1 / .3D0 /
28       COMMON /FKRUN/ RUNT(2)
29         DATA RUNT1 / 2*100.D0 /
30       COMMON/FKIDGB/ IDGB, IGB
31         DATA IDGB1,IGB1 / 0, 0 /
32       COMMON / FKENCO/ ETEST, TNKTE
33       COMMON / FKNUCT / ETHR, PTHR
34         DATA ETHR1,TNKTE1 / 2*1.D-3 /
35 *
36       CDDT    = CDDT1
37       RUNT(1) = RUNT1(1)
38       RUNT(2) = RUNT1(2)
39       IDGB    = IDGB1
40       IGB     = IGB1
41       ETHR    = ETHR1
42       TNKTE   = TNKTE1
43 *=                                               end*block.blkdt2      *
44       END