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