GEANT321/fluka/hadden.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:00  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 HADDEN.FOR
  13 *COPY HADDEN
  14 *
  15 *=== hadden ===========================================================*
  16 *
  17       SUBROUTINE HADDEN
  18
  19 #include "geant321/dblprc.inc"
  20 #include "geant321/dimpar.inc"
  21 #include "geant321/iounit.inc"
  22 *
  23 *----------------------------------------------------------------------*
  24 *  Hadden89: slight modifications by A. Ferrari, INFN-Milan and CERN-SPS
  25 *            7-9-89
  26 *----------------------------------------------------------------------*
  27 *
  28 #include "geant321/decayc2.inc"
  29 #include "geant321/part3.inc"
  30 #include "geant321/split.inc"
  31 *
  32       COMMON /FKNAMS/ ANAME(110),ZKNAME(460),RKNAME(268)
  33 C
  34       COMMON / FKABLT / AM   (110), GA   (110), TAU  (110), ICH   (110),
  35      &                  IBAR (110), K1   (110), K2   (110)
  36       CHARACTER*8 ANAME,ZKNAME,RKNAME,ANAMZ,ZKNAMZ
  37       COMMON /FKADHP/AMZ(16),GAZ(16),TAUZ(16),ICHZ(16),IBARZ(16),K1Z(16)
  38      *,K2Z(16),WTZ(153),II22,
  39      * NZKZ(153,3)
  40       COMMON/FKADHN/ANAMZ(16),ZKNAMZ(153)
  41       DATA IRETUR/0/
  42       IRETUR=IRETUR+1
  43       IF (IRETUR.GT.1) RETURN
  44       DO 1 I=1,94
  45          ANAME(I) = ANAMC(I)
  46          AM   (I) = AMC  (I)
  47          GA   (I) = GAC  (I)
  48          TAU  (I) = TAUC (I)
  49          ICH  (I) = ICHC (I)
  50          IBAR (I) = IBARC(I)
  51          K1   (I) = K1C  (I)
  52          K2   (I) = K2C  (I)
  53    1  CONTINUE
  54       AM(31) = 0.48D0
  55       DO 5 I=26,30
  56          K1(I) = 452
  57          K2(I) = 452
  58    5  CONTINUE
  59       DO 2 I=1,307
  60          ZKNAME(I) = ZKNAMC(I)
  61          WT    (I) = WTC   (I)
  62          NZK (I,1) = NZKC(I,1)
  63          NZK (I,2) = NZKC(I,2)
  64          NZK (I,3) = NZKC(I,3)
  65    2  CONTINUE
  66       DO 3 I=1,16
  67          L=I+94
  68          ANAME(L) = ANAMZ(I)
  69          AM   (L) = AMZ  (I)
  70          GA   (L) = GAZ  (I)
  71          TAU  (L) = TAUZ (I)
  72          ICH  (L) = ICHZ (I)
  73          IBAR (L) = IBARZ(I)
  74          K1   (L) = K1Z  (I)
  75          K2   (L) = K2Z  (I)
  76    3  CONTINUE
  77       DO 4 I=1,153
  78          L=I+307
  79          ZKNAME(L) = ZKNAMZ(I)
  80          WT    (L) = WTZ   (I)
  81          NZK (L,3) = NZKZ(I,3)
  82          NZK (L,2) = NZKZ(I,2)
  83          NZK (L,1) = NZKZ(I,1)
  84    4  CONTINUE
  85       RETURN
  86       END