%N setdspcg %F $MIR/src/subs/cgpgsubs.for
%D Set label axis displacements
%P nebk
%: plotting
%B
      subroutine setdspcg (lh, labtyp, blc, trc, xdispl, ydispb)

      integer lh, blc(2), trc(2)
      character labtyp(*)*(*)
      real xdispl, ydispb
  ---------------------------------------------------------------------
  Set the labelling displacements from the relevant axes

  Input
    lh       Handle of image
    labtyp   Label type requested by user
    blc      blc in pixels
    trc      trc in pixels
  Output
    xdispl   Displacement in character heights from left y-axis
             for Y label
    ydispb   Displacement in character heights from bottom x-axis
             for X label
