      subroutine guphad

      call gpghei

      return
      end
