C...Process information.
      COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2)
      integer ISET,KFPR,ICOL
      double precision COEF