program mcfm implicit none call mcfmsub end