C...Parameters. 
      COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200)
      integer MSTP,MSTI
      double precision PARP,PARI