*     -*-fortran-*-

      integer ipt
      character*4 InPt
*
      common / PerturbativeOrderAPFEL / ipt,InPt