%N pbwrite %F $MIR/src/subs/pb.for
%D Write the primary beam type out to a dataset.
%P rjs
%: image-data
%B
      subroutine pbWrite(tno,pbtype)

      integer tno
      character pbtype*(*)
  ---------------------------------------------------------------------
  Determine the primary beam type associated with a dataset.

  Input:
    tno        Handle of the input dataset
    pbtype     Primary beam type.  Generally this will be just a
               telescope name (e.g. "atca" or "hatcreek"), but it could
               also be "gaus(xxx)", where xxx gives the FWHM of a
               Gaussian primary beam in arcsec.
