      subroutine declare_commons()

      INCLUDE 'dblprc.inc'
      INCLUDE 'dimpar.inc'
      INCLUDE 'iounit.inc'

      EXTERNAL BDINPT, BDTRNS, BDHDR1, BDHDR2, BDHDR3, BDPART, BDPRDC,
     &         BDGNSC, BDNOPT, BDEVAP, BDPWXS, BDPREE, BDESJE, HADINI

      INCLUDE 'beamcm.inc'
      INCLUDE 'blnkcm.inc'
      INCLUDE 'caslim.inc'
      INCLUDE 'cmelds.inc'
      INCLUDE 'cmphnu.inc'
      INCLUDE 'ctitle.inc'
      INCLUDE 'currpt.inc'
      INCLUDE 'evaflg.inc'
      INCLUDE 'evapix.inc'
      INCLUDE 'fheavy.inc'
      INCLUDE 'flkmat.inc'
      INCLUDE 'genflg.inc'
      INCLUDE 'genstk.inc'
      INCLUDE 'genthr.inc'
      INCLUDE 'isotop.inc'
      INCLUDE 'ncsfta.inc'
      INCLUDE 'ndnicm.inc'
      INCLUDE 'nucdat.inc'
      INCLUDE 'nucflg.inc'
      INCLUDE 'nucgeo.inc'
      INCLUDE 'nucpot.inc'
      INCLUDE 'nuinfo.inc'
      INCLUDE 'paprop.inc'
      INCLUDE 'parevt.inc'
      INCLUDE 'part2.inc'
      INCLUDE 'phnccm.inc'
      INCLUDE 'resnuc.inc'
      INCLUDE 'sgtbcm.inc'
      INCLUDE 'sumcou.inc'
      INCLUDE 'thrscm.inc'

      end
