subroutine f_hpminit(me,desc)
      character*20 desc
      return
      end
      subroutine f_hpmterminate(me)
      return
      end
      subroutine f_hpmstart(n,desc)
      character*20 desc
      return
      end
      subroutine f_hpmstop(n)
      return
      end