*     -*-fortran-*-

      character*9 TargetDIS
      character*4 InTargetDIS
*
      common / TargetDISAPFEL / TargetDIS,InTargetDIS