FTN4,L
C 
C 
C 
C 
C 
C 
CC************************************************************
C (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  ALL RIGHTS    *
C RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *
C PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH-  *
C OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.  *
CC************************************************************
C 
C 
C 
C      NAME: GWC
C      SOURCE: 92840 - XXXXX
C      RELOC:  92840 - 16021
C 
C 
C 
CC*********************************************************** 
      LOGICAL FUNCTION GWC(IGCB)
     +,92840-16021 REV.2013 790926
C***************************************************************
C GWC IS SET TO .TRUE. IF WC CHARACTERS ARE TO BE PLOTTED,
C OTHERWISE GWC IS SET TO .FALSE. 
C***************************************************************
      INTEGER IGCB(1) 
C***************************************************************
C ESTABLISH A LINK TO THE GRAPHICS PACKAGE. 
C (THIS STORES THE ADDRESS OF THE GCB INTO AN INTERNAL LOCATION 
C INSIDE ABSAD.)
C 
      ISUSP=0 
      CALL GCBIM(99,1,IGCB,ISUSP) 
      IF (ISUSP .NE. 0) RETURN
C***************************************************************
C CALL GRSTS TO LOOK AT BIT 14 IN THE GCB.
C NMASK RETURNS WITH BIT 15=0 IF CHARACTERS ARE PLOTTED IN WC,
C                         =1 IF CHARACTERS ARE PLOTTED IN NDC.
C 
      CALL GRSTS(1,40000B,NMASK)
      GWC=.TRUE.
      IF (NMASK .EQ. 0) GWC=.FALSE. 
      RETURN
      END 
                                                                                                                                                                                                                                                      