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