This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / 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