%N pbinitb %F $MIR/src/subs/pb.for
%D Initialise a primary beam object.
%P rjs
%: image-data
%B
      subroutine pbInitb(pbObj,pbtype,coObj,bw)

      integer pbObj,coObj
      character pbtype*(*)
      real bw
  ---------------------------------------------------------------------
  Initialise a primary beam object. The primary beam is assumed to
  be centred at the reference pixel of the coordinate system.

  Input:
    pbtype     Primary beam type.
    coObj      The coordinate system used to form the primary beam
               object.
    bw         Bandwidth
  Output:
    pbObj      The primary beam object.
