]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 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 |