%N conlevcg %F $MIR/src/subs/cgsubs.for
%D Compute contour levels
%P nebk
%: plotting
%B
      subroutine conlevcg (mirror, maxlev, lcin, levtyp, slev, nlevs,
     *                     levs, srtlev)

      integer lcin, nlevs, maxlev, srtlev(maxlev)
      real slev, levs(maxlev)
      character*1 levtyp
      logical mirror
  ---------------------------------------------------------------------
  Compute contour levels

  Input:
    mirror   MUltiply specified contour levsls by -1 and add to list
    maxlev   Maximum number of levels allowed
    lcin     Handle of contour image
  Input/output:
    levtyp   Type of scale factor (percentage or absolute)
    slev     Contour scale factor
    nlevs    Number of contour levels
  Output:
    levs     Contour levels
    srtlev   Indexes of array giving levels in increasing order
