%N strerscg %F $MIR/src/subs/cgpgsubs.for
%D Optionally erase a rectangle on the view-port & write a
%P nebk
%: plotting
%B
      subroutine strerscg (doerase, just, string, x, y)

      real x, y, just
      character string*(*)
      logical doerase
  ---------------------------------------------------------------------
  Optionally erase a snugly fitting rectangle and write a string to the
  view-port into it

  Input
    doerase     Erase rectangle behind string if true.
    just        Horizontal string justification.
                     0.0 -> left just
                     0.5 -> centred
                     1.0 -> right just
    string      String to write
    x,y         World coordinates of BLC of string
