Am I using AGCHCU properly?

From: Mike Berkley (Mike.Berkley AT unknown)
Date: Mon Oct 27 1997 - 14:40:30 MST


I'm trying to use AGCHCU with autograph to get coloured lines. I get
the coloured lines alright, and I get the expected debugging printouts
when I run the program.

Unfortunately, the top and bottom axes are also coloured. I have even
tried adding agchax calls to force the axes back to black.

AGCHCU appears to be failing with NCAR 4.0 on an SGI machine. The
example works correctly on an IBM RS6000 machine running NCAR 3.2.

Here is my agchcu. Any obvious mistakes?

----------------------------------------------------------------------
      SUBROUTINE AGCHCU (IFLG,KDSH)
      IMPLICIT NONE

      INTEGER IFLG,KDSH

      LOGICAL COLOURCURVES
      INTEGER NCURVCOL,MAXNCURVCOL,ICURVCOL(7)
      INTEGER IPATNE
      CHARACTER PAT(26)*16
      COMMON /CCCAGCHCU/ COLOURCURVES,NCURVCOL,MAXNCURVCOL,ICURVCOL,
     $ PAT,IPATNE

      INTEGER NCURRCOL
      SAVE NCURRCOL
      DATA NCURRCOL/0/

      INTEGER I,K
      REAL CR,CG,CB

      WRITE(*,*)'AGCHCU: ',COLOURCURVES,IFLG
      IF(COLOURCURVES) THEN
CDEBUG
C CALL GQCR(1,0,0,K,CR,CG,CB)
C WRITE(*,*)'BACK: ',CR,CG,CB
C CALL GQCR(1,1,0,K,CR,CG,CB)
C WRITE(*,*)'FORE: ',CR,CG,CB
C WRITE(*,*)'PATTERNS: ',NCURVCOL,(ICURVCOL(I),I=1,NCURVCOL)
C WRITE(*,*)NCURRCOL,IFLG,MOD(NCURRCOL,NCURVCOL),
C $ ICURVCOL(MOD(NCURRCOL,NCURVCOL)+1)-98
CDEBUG

         IF(IFLG.EQ.0) THEN
            WRITE(*,*) 'colour'
            CALL GSPLCI(ICURVCOL(MOD(NCURRCOL,NCURVCOL)+1)-98)
            IF((NCURRCOL/NCURVCOL).GT.0) THEN
               CALL DASHDB(PAT(NCURRCOL/NCURVCOL))
            ENDIF
            NCURRCOL=NCURRCOL+1
         ELSE
            WRITE(*,*) 'black'
            CALL GSPLCI(1)
         ENDIF
      ELSE
         WRITE(*,*) 'not colourcurves'
         CALL GSPLCI(1)
      ENDIF

      RETURN

      END
----------------------------------------------------------------------



This archive was generated by hypermail 2b29 : Wed Jun 28 2000 - 09:40:32 MDT