%N gaupar2 %F $MIR/src/subs/gaupar.for
%D Determine effective beam of the convolution of two images.
%P rjs
%: image analysis
%B
      subroutine GauPar2(lIn1,lIn2,bunit,bmaj,bmin,bpa,fac)

      integer lIn1,lIn2
      real bmaj,bmin,bpa,fac
      character bunit*(*)

  Determine the units and effective beam of the convolution of two
  image datasets.

  Input:
    lIn1,lIn2  Handle of the image datasets.
  Output:
    bunit      Units of the result (usually JY/BEAM).
    bmaj,bmin  Effective beam major and minor FWHM.
    bpa        Effective beam position angle, in degrees.
    fac        Scale factor to multiply by to correct units.
