%N pbfin %F $MIR/src/subs/pb.for
%D Delete a primary beam object and tidy up.
%P rjs
%: image-data
%B
      subroutine pbFin(pbObj)

      integer pbObj
  ---------------------------------------------------------------------
  This deletes a primary beam object and tidies up.

  Input:
    pbObj      Handle of the primary beam object.
