1 subroutine f_hpminit(me,desc) 2 character*20 desc 3 return 4 end 5 subroutine f_hpmterminate(me) 6 return 7 end 8 subroutine f_hpmstart(n,desc) 9 character*20 desc 10 return 11 end 12 subroutine f_hpmstop(n) 13 return 14 end 15