************************************************************************ * * EnableIntrinsicCharm.f: * * This subroutine enables or disables the computation of the * intrinsic charm component to the massive DIS structure functions. * ************************************************************************ subroutine EnableIntrinsicCharm(ic) * implicit none * include "../commons/IntrinsicCharm.h" * logical ic * IntrinsicCharm = ic InIntrinsicCharm = "done" * return end