modifications to AGPWRT

From: Leslie Hartten (lhartten@XXXXXX)
Date: Thu Feb 02 1995 - 13:55:49 MST


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:45:31 MDT