%N pbinfo %F $MIR/src/subs/pb.for
%D Return information about a primary beam.
%P rjs
%: image-data
%B
      subroutine pbinfo(pbObj,pbfwhmd,cutoffd,maxradd)

      integer pbObj
      real pbfwhmd,cutoffd,maxradd
  ---------------------------------------------------------------------
  This returns information about a primary beam.

  Input:
    pbObj      Handle of the primary beam object.
  Output:
    pbfwhmd    Primary beam FWHM, in radians.
    cutoffd    Minimum non-zero value of the primary beam.
    maxradd    Maximum radious (in radians) where the primary beam
               model is non-zero.
