%N wedgincg %F $MIR/src/subs/cgsubs.for
%D See if grey scale wedges are inside or outside subplots
%P nebk
%: plotting
%B
      subroutine wedgincg (hard, dofid, dowedge, nx, ny, npixr,
     *                     trfun, wedcod)

      logical dowedge, dofid
      integer nx, ny, npixr, wedcod
      character trfun*3, hard*3
  ---------------------------------------------------------------------
  Work out whether the grey scale wedges are to be drawn inside
  or outside the subplots, and whether there will be one or many

  Input
    hard     'YES' if writing to hardcopy PGPLOT device
    dofid    True if user has requested OFM fiddle option
    dowedge  True if user requests wedge
    nx,ny    Number of subplots in x and y directions
    npixr    NUmber of grey scale "range" groups given by user
    trfun    Transfer function type of first "range" group
  Output
    wedcod   0 -> No wedges
             1 -> one wedge to right of all subplots
             2 -> one wedge to right per subplot
             3 -> one wedge per subplot inside subplot
