DPMJET/flukapro/(PATHCM)

   1 *$ CREATE PATHCM.ADD
   2 *COPY PATHCM
   3 *----------------------------------------------------------------------*
   4 *                                                                      *
   5 *     Common Pathcm for EGS4                                           *
   6 *                                                                      *
   7 *----------------------------------------------------------------------*
   8       COMMON /PATHCM/ B0PTH, B1PTH, PTH0(6), PTH1(6), PTH2(6), NPTH
   9