DPMJET/flukapro/(LOCSIG)

   1 *$ CREATE LOCSIG.ADD
   2 *COPY LOCSIG
   3 *
   4 *=== locsig ===========================================================*
   5 *
   6 *
   7 *----------------------------------------------------------------------*
   8 *                                                                      *
   9 *      Memory addresses for low energy neutron cross sections:         *
  10 *                                                                      *
  11 *      ALL THE ADDRESSES ARE FOR INDEX OF ZERO !!!!!!!!!!!!!!!!!!!     *
  12 *                                                                      *
  13 *            Istart = starting location for the total cross-section    *
  14 *                     vector for the first medium (absolute address!!) *
  15 *                                                                      *
  16 *            Iscang = starting location for the array of the primary   *
  17 *                     scattering angle matrix (absolute address!!)     *
  18 *                                                                      *
  19 *            Ifspog = starting location of the primary downscatter     *
  20 *                     probability matrix (absolute address!!)          *
  21 *                                                                      *
  22 *            Ings   = starting location of the indices for starting    *
  23 *                     location of the downscatter vector for each      *
  24 *                     group of primary particles (absolute address!!)  *
  25 *                                                                      *
  26 *            Innn   = starting location for the array of the number of *
  27 *                     downscatter groups for each primary group        *
  28 *                     (absolute address!!)                             *
  29 *                                                                      *
  30 *            Iprbng = starting location of the primary scattering      *
  31 *                     angle probability matrix (absolute address!!)    *
  32 *                                                                      *
  33 *            Ifngp  = starting location for the primary-secondary      *
  34 *                     transfer probability matrix (absolute address!!) *
  35 *                                                                      *
  36 *            Isporg = size of storage needed for each medium           *
  37 *                                                                      *
  38 *            Inabog = starting location for the non-absorption vector  *
  39 *                     for the first medium (absolute address!!)        *
  40 *                                                                      *
  41 *            Igabog = starting location for the gamma-ray production   *
  42 *                     vector for the first medium (absolute address!!) *
  43 *                                                                      *
  44 *            Nsct   = number of discrete angles                        *
  45 *                                                                      *
  46 *----------------------------------------------------------------------*
  47 *
  48       COMMON/LOCSIG/ISTART,ISCCOG,INABOG,IGABOG,IFPORG,IFNGP,IFSPOG,
  49      1       IDSGOG,IPRBNG,IPRBGG,ISCANG,ISCAGG,ISPORG,ISPORT,INPBUF,
  50      2       ISIGOG,INFPOG,IABSOG,ITOTSG,NGP,NDS,NGG,NDSG,INGP,INDS,
  51      3       NMED,NELEM,NMIX,NCOEF,NSCT,NTS,NTG,NDSNGP,NDSNGG,IADJ,
  52      4       NME,LOC,INGS,INSG,I1,I0, KKK,IXTAPE,IDEL,ITEML,ITEMG,IRSG,
  53      5       IRDSG,ISTR,IPRIN,IFMU,IMOM,IDTF,ISTAT,IPUN
  54      6       ,NUS,NGN,IHT,INUS,INUSN,INGN,INGNP,INNN,IGGG
  55