HIJING/hijing/dpmcom1.inc

   1 * $Id$
   2       REAL AMP,AMT,APX0,ATX0,AMPN,AMTN,AMP0,AMT0,WP,WM,SW,XREMP,
   3      &     XREMT,DPKC1,DPKC2,PP11,PP12,PT11,PT12,PTP2,PTT2
   4       COMMON/DPMCOM1/JJP,JJT,AMP,AMT,APX0,ATX0,AMPN,AMTN,AMP0,AMT0,
   5      &          NFDP,NFDT,WP,WM,SW,XREMP,XREMT,DPKC1,DPKC2,PP11,PP12,
   6      &          PT11,PT12,PTP2,PTT2
   7 #ifndef BLANKET_SAVE
   8       SAVE  /DPMCOM1/
   9 #endif