%N conturcg %F $MIR/src/subs/cgpgsubs.for
%D Draw contour plot
%P nebk
%: plotting
%B
      subroutine conturcg (conlab, blank, solneg, win1, win2, dobl,
     *                     image, nlevs, levs, tr, sdbreak, ncols, cols)

      integer win1, win2, nlevs, ncols, cols(*)
      real image(win1,win2), levs(*), tr(6), sdbreak, blank
      logical solneg, dobl, conlab
  ---------------------------------------------------------------------
  Draw contours

  Input:
    conlab   Label contours?
    blank    Value used for magic blanks.
    solneg   False => Positive contours solid, negative dashed.
             True  => Positive contours dashed, negative solid.
             "Positive" above means values >= SDBREAK.
    win1,2   Window sizes in x and y.
    dobl     True if blanks present in image section to contour.
    image    Image to contour.
    nlevs    Number of contour levels.
    levs     Contour levels.
    tr       Transformation matrix between array indices and
             world coords.
    sdbreak  Value for distinction between solid and dashed contours.
    ncols    Number of contour colours.
    cols     Contour colours.
