************************************************************************
*
*     SetPoleMasses.f:
*
*     This subroutine sets as a default the heavy quark pole masses. 
*
************************************************************************
      subroutine SetPoleMasses(mc,mb,mt)
*
      implicit none
*
      include "../commons/m2th.h"
      include "../commons/mass_scheme.h"
*
*     Variables
*
      double precision mc,mb,mt
*
      mass_scheme = "Pole"
      m2ph(4)     = mc * mc
      m2ph(5)     = mb * mb
      m2ph(6)     = mt * mt
      InMasses    = "done"
*
      return
      end