*     -*-fortran-*-
*
*     Switch for the intrinsic charm
*
      logical IntrinsicCharm
      character*4 InIntrinsicCharm
*
      common / IntrinsicCharmAPFEL / IntrinsicCharm,InIntrinsicCharm