GEANT321/block/fdpree.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:19:36  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 *=== bdpree ===========================================================*
  13 *
  14       SUBROUTINE FDPREE
  15
  16 #include "geant321/dblprc.inc"
  17 #include "geant321/dimpar.inc"
  18 #include "geant321/iounit.inc"
  19 *
  20 *----------------------------------------------------------------------*
  21 *                                                                      *
  22 *     Created on 16 september 1991 by    Alfredo Ferrari & Paola Sala  *
  23 *                                                   Infn - Milan       *
  24 *                                                                      *
  25 *     Last change on 23-feb-93     by    Alfredo Ferrari               *
  26 *                                                                      *
  27 *                                                                      *
  28 *----------------------------------------------------------------------*
  29 *
  30 #include "geant321/nucgeo.inc"
  31 #include "geant321/nuclev.inc"
  32       LOGICAL LABRS1,LELST1,LINEL1, LCHEX1, LBSRP1, LABST1
  33       DIMENSION JUSNU1(160,2), MAGNU1(8)
  34 *
  35 *
  36       DATA LABRS1, LELST1, LINEL1, LCHEX1, LBSRP1, LABST1 / 6*.FALSE. /
  37       DATA POTBA1 / POTBA0 /, POTME1 / POTME0 /, WLLRE1 / 0.D+00 /
  38       DATA JUSNU1 / 320 * 0 /, INUCL1 / 1 /, IEVPR1 / 0 /
  39       DATA MAGNU1 / 2, 8, 20, 28, 50, 82, 126, 160 /
  40 *
  41       LABRST = LABRS1
  42       LELSTC = LELST1
  43       LINELS = LINEL1
  44       LCHEXC = LCHEX1
  45       LABSRP = LBSRP1
  46       LABSTH = LABST1
  47 *
  48       POTBAR = POTBA1
  49       POTMES = POTME1
  50       WLLRES = WLLRE1
  51 *
  52       DO 10 I=1,160
  53         JUSNUC(I,1) = JUSNU1(I,1)
  54         JUSNUC(I,2) = JUSNU1(I,2)
  55   10  CONTINUE
  56       INUCLV = INUCL1
  57       IEVPRE = IEVPR1
  58 *
  59       DO 20 I=1,8
  60         MAGNUM(I) = MAGNU1(I)
  61  20   CONTINUE
  62 *=== End of Block Data Bdpree =========================================*
  63       END