%N pbinitc %F $MIR/src/subs/pb.for
%D Initialise a primary beam object.
%P rjs
%B
image-data
%B
      subroutine pbInitc(pbObj,type,coObj,in,x1,frq,bw)

      character type*(*),in*(*)
      integer pbObj,coObj
      double precision x1(*),frq
      real bw
  ---------------------------------------------------------------------
  Initialise a primary beam object. The primary beam is assumed to
  be centred at the location given by the coordinate system (coObj),
  the coordinate specification (in) and the coordinate (x1).

  Input:
    pbtype     Primary beam type.
    coObj      The coordinate system.
    in         Form of the input coordinate defining the reference
               location (passed to the co routines).
    x1         The reference location.
    frq        The frequency
    bw         The bandwidth
  Output:
    pbObj      The primary beam object.
