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