*     -*-fortran-*-

      character*2 ProcessDIS
      character*4 InProcessDIS
*
      common / ProcessDISAPFEL / ProcessDIS,InProcessDIS