%N optcg %F $MIR/src/subs/cgsubs.for
%D Get command line options but only warn if unrecognized.
%: plotting
%B
      subroutine optcg (key, opts, present, nopt)

      character key*(*)
      integer nopt
      character opts(nopt)*(*)
      logical present(nopt)
  ---------------------------------------------------------------------
  Get options from the command line, and return to the caller those
  options that are present.

  Unrecognized options generate a warning only, unlike the standard
  Miriad subroutine that does this which issues a fatal error.

  Inputs:
    key        The task keyword to use.
    opts       An array of possible option values.  These should be in
               lower case.
    nopt       The number of possible options.
  Output:
    present    This indicates whether the option was present.
