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