*     -*-fortran-*-

      character*50 pdfset
      character*4  InPDFs
      integer pdfsetlen
*
      common / PDFsetAPFEL / pdfsetlen,pdfset,InPDFs