%N pbget %F $MIR/src/subs/pb.for
%D Get the value of a primary beam, cope with large bandwidth.
%P mhw
%: image-data
%B
      real function pbget(pbObj,x,y)

      integer pbObj
      real x,y
      real pbVal,pbInt
  ---------------------------------------------------------------------
  Determine the value of the primary beam at a given location.

  Input:
    pbObj      Handle of the primary beam object.
    x,y        Grid location of the position of interest.
  Output:
    pbGet      Value of the primary beam.
