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: GKAR 
C      SOURCE: 92840 - 18159
C      RELOC:  92840 - 16021
C 
C 
C 
CC*********************************************************** 
      SUBROUTINE GKAR(IGCB,WIDTH,HEIGHT)
     +,92840-16021 REV.2013 790904
C***************************************************************
C GKAR RETURNS THE WIDTH AND HEIGHT IN CURRENT UNITS OF A 
C STANDARD SOFTWARE OR HARDWARE CHARACTER CELL, ACCORDING 
C TO WHETHER HARDWARE OR SOFTWARE TEXT IS CURRENTLY ENABLED.
C************************************************************** 
      INTEGER IGCB(1) 
      REAL WIDTH,HEIGHT 
C 
      REAL TEMP(4)
      LOGICAL GSOFT,GWC 
C************************************************************** 
C BRANCH ACCORDING TO WHETHER SOFTWARE OR HARDWARE TEXT IS ENABLED
C 
      IF (GSOFT(IGCB)) GO TO 1000 
C***************************************************************
C HARDWARE TEXT IS ENABLED. GET THE HARDWARE CELL SIZE (MU'S) 
C 
      CALL GCBIM(7,1,TEMP,0,1)
      CWIDE=TEMP(1) 
      CHIGH=TEMP(2) 
      GO TO 2000
C************************************************************** 
C SOFTWARE TEXT IS ENABLED. GET THE SOFTWARE CELL SIZE(WC OR NDC
C UNITS ACCORDING TO HOW THE USER SPECIFIED THEM).
C CONVERT THE UNITS TO MU'S 
C 
1000  CALL GCBIM(33,1,TEMP,0,1) 
      CWIDE=TEMP(1) 
      CHIGH=TEMP(2) 
C 
      IADP=11 
      IF (GWC(IGCB)) IADP=12
      CALL GCBIM(IADP,1,TEMP,0,1) 
      CWIDE=CWIDE*TEMP(1) 
      CHIGH=CHIGH*TEMP(3) 
      GO TO 2000
C************************************************************ 
C CONVERT MU'S TO CURRENT UNITS.
C 
2000  CALL GCBIM(IADCD(IDUMY),1,TEMP,0,1) 
      WIDTH=CWIDE/TEMP(1) 
      HEIGHT=CHIGH/TEMP(3)
      RETURN
      END 
                                                                                                                                              