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

      integer pbObj,coObj
      character type*(*),in*(*)
      double precision x1(*),x2(*),f
      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).
  This version is for antennas that move during the integration.
  A piecewise convolution is done around point x1, in the direction of
  x2.

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