%N fuvsetpa %F $MIR/src/subs/fitsio.for
%D Set random parameters expected by the FITS uv routines.
%P rjs
%: fits
%B
      subroutine fuvSetPa(lu,nparam,params)

      integer lu,nparam
      character params(*)*(*)
  ---------------------------------------------------------------------
  This sets the random parameters that the calling program wants
  returned.

  Input:
    lu         Handle of the input uv FITS file.
    nparam     Number of random parameters to be returned.
    params     The names of the random parameters.
