This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / fluka / decaux.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:19:59  cernlib
6 * Geant
7 *
8 *
9 #include "geant321/pilot.h"
10 *CMZ :  3.21/02 29/03/94  15.41.44  by  S.Giani
11 *-- Author :
12 *$ CREATE DECAUX.FOR
13 *COPY DECAUX
14 *
15 *=== decaux ===========================================================*
16 *
17       SUBROUTINE DECAUX(NHAD,NUMU)
18  
19 #include "geant321/dblprc.inc"
20 #include "geant321/dimpar.inc"
21 #include "geant321/iounit.inc"
22 *
23 *----------------------------------------------------------------------*
24 *  Decaux89: slight revision by A. Ferrari                             *
25 *----------------------------------------------------------------------*
26 *
27 #include "geant321/finpar2.inc"
28 #include "geant321/auxpar.inc"
29 C      STORE VARIABLES FROM HADPAR INTO FINPAR
30       DO 1 I=1,NHAD
31          PXF(I)  = PXA(I)
32          PYF(I)  = PYA(I)
33          PZF(I)  = PZA(I)
34          HEF(I)  = HEPA(I)
35          AMF(I)  = AMA(I)
36          ICHF(I) = ICHA(I)
37          IBARF(I)= IBARA(I)
38          ANF(I)  = ANA(I)
39          NREF(I) = NREA(I)
40 C     PRINT 3358,PXA(I),PYA(I),PZA(I),HEPA(I),AMA(I),ICHA(I),IBARA(I),
41 C    1ANA(I),NREA(I)
42 C3358 FORMAT (5E15.5,2I10,A8,I10)
43     1 CONTINUE
44 C
45       CALL FKDECA (NHAD,NUMU)
46 C
47       DO 2 I=1,NHAD
48          PXA(I)  = PXF(I)
49          PYA(I)  = PYF(I)
50          PZA(I)  = PZF(I)
51          HEPA(I) = HEF(I)
52          AMA(I)  = AMF(I)
53          ICHA(I) = ICHF(I)
54          IBARA(I)= IBARF(I)
55          ANA(I)  = ANF(I)
56          NREA(I) = NREF(I)
57 C     PRINT 3358,PXA(I),PYA(I),PZA(I),HEPA(I),AMA(I),ICHA(I),IBARA(I),
58 C    1ANA(I),NREA(I)
59     2 CONTINUE
60       RETURN
61       END