%N pgqah %F $MIR/src/pgqah.f
%D Inquire arrow-head style
%B
      SUBROUTINE PGQAH (FS, ANGLE, BARB)
      INTEGER  FS
      REAL ANGLE, BARB

 Query the style to be used for arrowheads drawn with routine PGARRO.

 Argument:
  FS     (output) : FS = 1 => filled; FS = 2 => outline.
  ANGLE  (output) : the acute angle of the arrow point, in degrees.
  BARB   (output) : the fraction of the triangular arrow-head that
                    is cut away from the back. 
