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