COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) 
      INTEGER MSTP,MSTI
      double precision PARP,PARI
      SAVE /PYPARS/