Sample common blocks

The following are sample include files that put the registered variables into common blocks.

c
c parcommon.inc  -  Common block for registered parameters
c
  real*4 proton, neutron, pion, pizero
  real*4 offsets(8)
  real*4 thmin, thmax, phimin, phimax
  character*80 hbook_filename,report_filename
c
  common /parms/ proton, neutron, pion, pizero
 &      ,offsets, thmin, thmax, phimin, phimax
  common /strings/ hbook_filename,report_filename

c
c testcommon.inc - Common block for test results
c
  integer*4 clean(6)
c
  common /tests/ clean


c
c eventcommon.inc - Common for event variables
c
  real*4 mass, fptheta
c
  common /event/ mass,fptheta