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