%N maskorcg %F $MIR/src/subs/cgsubs.for
%D OR mask image mask with data image mask
%P nebk
%: plotting
%B
      subroutine maskorcg (blank, win, bimage, nimage, image)

      integer nimage(*), win(2)
      real image(*), blank
      logical bimage(*)
  ---------------------------------------------------------------------
  OR the mask image mask and the grey/contour/vector image mask

  Input:
    blank       Value to give blanked pixel
    win         Size of image
    bimage      The mask image mask.True is unflagged, false is flagged
  Input/Output
    nimage      The normalization image.  0-> blanked
    image       The image.  New blanks may be set
