SUBROUTINE AGPWRT (XPOS,YPOS,CHRS,NCHS,ISIZ,IORI,ICEN)
C
	CHARACTER*(*) CHRS
C
C This subroutine replaces the default version in the NCAR Graphics
C libraries (which just calls PWRIT).
C
C If IFLG is zero, labels are drawn using calls to the SPPS routine
C PWRIT (the default behavior of AUTOGRAPH); otherwise, labels are
C drawn using calls to PLCHHQ and, in addition, the constant-spacing
C parameter of PLCHHQ is used to achieve a more consistent appearance
C for numeric labels (which are distinguished from the others by virtue
C of the fact that they are drawn with a non-zero centering flag).
C
	COMMON /PSSFLG/ IFLG
C
C Do it.
C
	IF (IFLG.EQ.0) THEN
	  CALL PWRIT (XPOS,YPOS,CHRS,NCHS,ISIZ,IORI,ICEN)
	ELSE
	  CALL PCGETR ('CS - CONSTANT SPACING FLAG',CSFL)
	  IF (ICEN.NE.0) THEN
	    CALL PCSETR ('CS - CONSTANT SPACING FLAG',1.25)
	  ELSE
	    CALL PCSETR ('CS - CONSTANT SPACING FLAG',0.)
	  END IF
	  CALL PLCHHQ (XPOS,YPOS,CHRS(1:NCHS),
     +                 .8*REAL(ISIZ),REAL(IORI),REAL(ICEN))
	  CALL PCSETR ('CS - CONSTANT SPACING FLAG',CSFL)
	END IF
C
C Done.
C
	RETURN
C
      END