I am trying to modify the Autograph routine AGPWRT so that it will
(optionally) use PLCHHQ instead of PWRIT. (My goal is to be able
to write things like m^2/s^2 in a more elegant way using function
codes).
Can anyone see why the following code will not work? When IQU1=0
no characters at all are written on the plot during the call to
EZMXY, but I see nothing wrong with the variables printed out in the
diagnostic write statement. The mapping flag, MA, =0 (no mapping).
C
C ***** ***** ***** ***** ***** *****
C
SUBROUTINE AGPWRT (XPOS,YPOS,CHRS,NCHS,ISIZ,IORI,ICEN)
C
C ** Note from NCAR Graphics version:
C $Id: agpwrt.f,v 1.1.1.1 1992/04/17 22:31:02 ncargd Exp $
C
C This routine just passes its arguments along to the character-drawing
C routine PWRIT, in the system plot package. By substituting his/her
C own version of AGPWRT, the user can cause a fancier character-drawer
C to be used.
C
C ***** ***** ***** ***** ***** *****
C
C *** Declarations
C
CHARACTER*(*) CHRS
C
C *** Start subroutine
C
CALL PCGETI('QU - Quality flag', IQU1)
C
IF (IQU1.GE.1) THEN
CALL PWRIT (XPOS,YPOS,CHRS,NCHS,ISIZ,IORI,ICEN)
ELSE
write(*,*)'in AGPWRT XPOS/YPOS/NCHS/ISIZ/IORI/ICEN=',
1 XPOS,'/',YPOS,'/',NCHS,'/',ISIZ,'/',IORI,'/',ICEN
write(*,*)' CHRS=',chrs
CALL PLCHHQ(XPOS,YPOS,CHRS(1:NCHS),ISIZ,IORI,ICEN)
END IF
C
C Done.
C
RETURN
END
This archive was generated by hypermail 2b29 : Wed Jun 28 2000 - 09:40:24 MDT