DPMJET/flukapro/(TMPNUC)

   1 *$ CREATE TMPNUC.ADD
   2 *COPY TMPNUC
   3 *
   4 *=== tmpnuc ===========================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     TeMPorary storage for NUClear interaction secondaries:           *
   9 *                                                                      *
  10 *     Created on   25 june 1995    by    Alfredo Ferrari & Paola Sala  *
  11 *                                                   Infn - Milan       *
  12 *                                                                      *
  13 *     Last change on 08-sep-00     by    Alfredo Ferrari               *
  14 *                                                                      *
  15 *     This is just a mirror copy of parnuc common, to temporarily save *
  16 *     secondaries coming out from interactions while waiting for       *
  17 *     formation time checks                                            *
  18 *                                                                      *
  19 *               Nsavin = number of the stored interaction (=nuscin)    *
  20 *               Icycsv = Icycl                                         *
  21 *               Nholsv = Nhole                                         *
  22 *               Iabcsv = Iabcou                                        *
  23 *               Ininsv = Inindx                                        *
  24 *               Nhlxsv = Nhlexp                                        *
  25 *               Rhexsv = Rhoexp                                        *
  26 *               Hlexsv = Holexp                                        *
  27 *               Ekexsv = Ekfexp                                        *
  28 *               Amcrsv = Amcrea                                        *
  29 *               Rhmesv = Rhomem                                        *
  30 *               Ekmesv = Ekfmem                                        *
  31 *               Bimesv = Bimmem                                        *
  32 *               Llacsv = Lllact                                        *
  33 *               Nprnsv = Nprnuc                                        *
  34 *               Iprnsv = Iprnuc                                        *
  35 *               Jprnsv = Jprnuc                                        *
  36 *               Nlvlsv = Nlevel                                        *
  37 *               Nmshsv = Nmshll                                        *
  38 *               Rdscsv = Radscb                                        *
  39 *                                                                      *
  40 *               Agtrgt = "age" for materialization of the currently    *
  41 *                        saved interaction                             *
  42 *               Crrftp = proton  correlation variable for the currently*
  43 *                        saved interaction                             *
  44 *               Crrftn = neutron correlation variable for the currently*
  45 *                        saved interaction                             *
  46 *               Pafrft = hard core radius for the currently saved      *
  47 *                        interaction                                   *
  48 *               Rhexft = Rhoexi for hard core radius for the currently *
  49 *                        saved interaction                             *
  50 *               Rhcmft = Rhocmp for hard core radius for the currently *
  51 *                        saved interaction                             *
  52 *               Rhmnft = Rhomin for hard core radius for the currently *
  53 *                        saved interaction                             *
  54 *                                                                      *
  55 *----------------------------------------------------------------------*
  56 *
  57       LOGICAL LATATM
  58       PARAMETER ( NCTMX = 25 )
  59       COMMON / TMPNUC / ENCTM  (NCTMX), PNCTM  (NCTMX), EKFNTM (NCTMX),
  60      &                  XSTNTM (NCTMX), YSTNTM (NCTMX), ZSTNTM (NCTMX),
  61      &                  PXNCTM (NCTMX), PYNCTM (NCTMX), PZNCTM (NCTMX),
  62      &                  RSTNTM (NCTMX), FRPNTM (NCTMX), CRNNTM (NCTMX),
  63      &                  CRPNTM (NCTMX), BSTNTM (NCTMX), AGNCTM (NCTMX),
  64      &                  TFPNTM (NCTMX), RHNCTM(NCTMX,2),    RHEXSV (2),
  65      &                  RDSCSV (3),     HLEXSV, EKEXSV, AMCRSV, RHMESV,
  66      &                  EKMESV, BIMESV, AGTRGT, CRRFTP, CRRFTN, PAFRFT,
  67      &                  RHCMFT, RHEXFT, RHMNFT,
  68      &                  KPNCTM (NCTMX), KRFNTM (NCTMX), ILINTM (NCTMX),
  69      &                  INTNTM (NCTMX), ISFNTM (NCTMX), LATATM (NCTMX),
  70      &                  KRSNTM (NCTMX), NPNTM , NSAVIN, ICYCSV, NHOLSV,
  71      &                  IABCSV, NHLXSV, LLACSV, NPRNSV, NLVLSV, ININSV,
  72      &                  JPRNSV (3), IPRNSV (3), NMSHSV (3)
  73       COMMON / TMPLEV / RADSCB (3), NMSHLL (3), NLEVEL
  74