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

      integer pbObj,coObj
      character pbtype*(*)
  ---------------------------------------------------------------------
  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.
  Output:
    pbObj      The primary beam object.
