%N pgmtxt %F $MIR/src/pgmtxt.f
%D Write text at position relative to viewport
%B
      SUBROUTINE PGMTXT (SIDE, DISP, COORD, FJUST, TEXT)
      CHARACTER*(*) SIDE, TEXT
      REAL DISP, COORD, FJUST

 Write text at a position specified relative to the viewport (outside
 or inside).  This routine is useful for annotating graphs. It is used
 by routine PGLAB.  The text is written using the current values of
 attributes color-index, line-width, character-height, and
 character-font.

 Arguments:
  SIDE   (input)  : must include one of the characters 'B', 'L', 'T',
                    or 'R' signifying the Bottom, Left, Top, or Right
                    margin of the viewport. If it includes 'LV' or
                    'RV', the string is written perpendicular to the
                    frame rather than parallel to it.
  DISP   (input)  : the displacement of the character string from the
                    specified edge of the viewport, measured outwards
                    from the viewport in units of the character
                    height. Use a negative value to write inside the
                    viewport, a positive value to write outside.
  COORD  (input)  : the location of the character string along the
                    specified edge of the viewport, as a fraction of
                    the length of the edge.
  FJUST  (input)  : controls justification of the string parallel to
                    the specified edge of the viewport. If
                    FJUST = 0.0, the left-hand end of the string will
                    be placed at COORD; if JUST = 0.5, the center of
                    the string will be placed at COORD; if JUST = 1.0,
                    the right-hand end of the string will be placed at
                    at COORD. Other values between 0 and 1 give inter-
                    mediate placing, but they are not very useful.
  TEXT   (input) :  the text string to be plotted. Trailing spaces are
                    ignored when justifying the string, but leading
                    spaces are significant.
