PYTHIA6/pythia6_common_block_address.F

   1 #ifdef __ia64
   2       integer*8
   3 #else
   4       integer
   5 #endif
   6      + function pythia6_common_block_address(common_block_name)
   7 c-----------------------------------------------------------------------
   8 c  revision history:
   9 c  -----------------
  10 c *0001 Jun 29 1998 P.Murat: created
  11 c *0002 Apr 30 1999 P.Murat: force loading in the BLOCK DATA
  12 c-----------------------------------------------------------------------
  13 #include "pythia6.inc"
  14 c#include "stdhep.inc"
  15 c
  16       character*(*) common_block_name
  17       external      pydata
  18 c
  19 c-----------------------------------------------------------------------
  20 #ifdef __ia64
  21       integer*8
  22 #else
  23       integer
  24 #endif
  25      +     pythia6_addressc, pythia6_addressi,
  26      +     pythia6_addressd, pythia6_addressf,
  27      +     common_block_address
  28       external      pythia6_addressc, pythia6_addressi
  29       external      pythia6_addressd, pythia6_addressf
  30 c-----------------------------------------------------------------------
  31       common_block_address = 0
  32 c-----------------------------------------------------------------------
  33 c  GEANT common-blocks
  34 c-----------------------------------------------------------------------
  35       if     (common_block_name.eq."HEPEVT") then
  36         common_block_address = pythia6_addressi(NEVHEP)
  37       elseif (common_block_name.eq."PYJETS") then
  38         common_block_address = pythia6_addressi(N)
  39       elseif (common_block_name.eq."PYDAT1") then
  40         common_block_address = pythia6_addressi(MSTU)
  41       elseif (common_block_name.eq."PYDAT2") then
  42         common_block_address = pythia6_addressi(KCHG)
  43       elseif (common_block_name.eq."PYDAT3") then
  44         common_block_address = pythia6_addressi(MDCY)
  45       elseif (common_block_name.eq."PYDAT4") then
  46         common_block_address = pythia6_addressc(CHAF)
  47       elseif (common_block_name.eq."PYDATR") then
  48         common_block_address = pythia6_addressi(MRPY)
  49       elseif (common_block_name.eq."PYSUBS") then
  50         common_block_address = pythia6_addressi(MSEL)
  51       elseif (common_block_name.eq."PYPARS") then
  52         common_block_address = pythia6_addressi(MSTP)
  53       elseif (common_block_name.eq."PYINT1") then
  54         common_block_address = pythia6_addressi(MINT)
  55       elseif (common_block_name.eq."PYINT2") then
  56         common_block_address = pythia6_addressi(ISET)
  57       elseif (common_block_name.eq."PYINT3") then
  58         common_block_address = pythia6_addressd(XSFX)
  59       elseif (common_block_name.eq."PYINT4") then
  60         common_block_address = pythia6_addressi(MWID)
  61       elseif (common_block_name.eq."PYINT5" ) then
  62         common_block_address = pythia6_addressi(NGENPD)
  63       elseif (common_block_name.eq."PYINT6" ) then
  64         common_block_address = pythia6_addressc(PROC)
  65       elseif (common_block_name.eq."PYINT7") then
  66         common_block_address = pythia6_addressd(SIGT)
  67       elseif (common_block_name.eq."PYINT8") then
  68         common_block_address = pythia6_addressd(XPVMD)
  69       elseif (common_block_name.eq."PYINT9") then
  70         common_block_address = pythia6_addressd(VXPVMD)
  71       elseif (common_block_name.eq."PYUPPR") then
  72         common_block_address = pythia6_addressi(NUP)
  73       elseif (common_block_name.eq."PYMSSM") then
  74         common_block_address = pythia6_addressi(IMSS)
  75       elseif (common_block_name.eq."PYSSMT") then
  76         common_block_address = pythia6_addressd(ZMIX)
  77       elseif (common_block_name.eq."PYINTS") then
  78         common_block_address = pythia6_addressd(XXM(1))
  79       elseif (common_block_name.eq."PYBINS") then
  80         common_block_address = pythia6_addressi(IHIST(1))
  81       endif
  82 c
  83       pythia6_common_block_address = common_block_address
  84       end