FTN,L 
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:  FRAME 
C      SOURCE: 92840 - 18052
C      RELOC:  92840 - 16001
C 
C 
C 
CC*********************************************************** 
C 
      SUBROUTINE XFRME(INN,IGCB), 92840-16001 REV.1913 781206 
      INTEGER DRPPN,PLTAB,GRIFX                                         EM1913
      DIMENSION VAR(4),IBUFR(18)                                        EM1913
      EQUIVALENCE (VAR(1),XL),(VAR(2),YL),(VAR(3),XU),(VAR(4),YU)       EM1913
      EQUIVALENCE (IBUFR(1),LFTPN),(IBUFR(2),PLTAB)                     EM1913
      EQUIVALENCE (IBUFR(3),IXL),(IBUFR(4),IYL),(IBUFR(5),DRPPN)        EM1913
      EQUIVALENCE (IBUFR(7),IXU),(IBUFR(11),IYU)                        EM1913
C 
      DATA LFTPN/20400B/
      DATA DRPPN/21000B/
      DATA PLTAB/21402B/
C 
C     THIS ROUTINE IS FOR THE AGL COMMAND "FRAME", WHICH DRAWS
C  A NICE LITTLE BOX AROUND THE CURRENT WINDOW MAPPING END- 
C  POINTS.
C 
CCCC
C     THIS CALL ESTABLISHES AN ADDRESS LINK BETWEEN THE GRAPHICS
C  PACKAGE AND THE CURRENT GCB AND ALSO CHECKS FOR A SUSPENDED GCB. 
C 
      ISUSP= 0
      CALL GCBIM(99,1,IGCB,ISUSP) 
      IF(ISUSP.NE.0)RETURN
C 
C FIRST GET THE APPROPRIATE CODE FOR V1,V2, OR S1,S2                    EM1913
C 
      ICODE = IS1V1(D)
      CALL GCBIM(ICODE,1,VAR,0,1) 
C 
C     NOW INTERGERIZE THE REAL VALUES IN VAR(I)                       
C     LOWER X = VAR(1)      LOWER Y = VAR(2)                            EM1913
C     UPPER X = VAR(3)      UPPER Y = VAR(4)                            EM1913
C 
      IXL = GRIFX(XL)                                                   EM1913
      IYL = GRIFX(YL)                                                   EM1913
      IXU = GRIFX(XU)                                                   EM1913
      IYU = GRIFX(YU)                                                   EM1913
C 
C     SET THE GIC CODES AND THE GIC DATA TO BE PASSED INTO THE ARRAY.   EM1913
C     THE STARRED COMMENT LINES HAVE ALREADY BEEN DONE VIA EQUIVALENCE  EM1913
C     STATEMENTS.  THE NEED FOR THESE STATEMENTS MUST BE RE-EVALUATED   EM1913
C     WHENEVER CODE IS CHANGED.                                         EM1913
C 
C     WE MOVE COUNTER-CLOCKWISE AROUND THE FRAME, OR, USING THE         EM1913
C     INDICES OF VAR                                                    EM1913
C         1,2 ->  3,2 ->  3,4 ->  1,4 ->  1,2                           EM1913
C 
C 
C 
C**   IBUFR(1) = LFTPN                                                  EM1913
C**   IBUFR(2) = PLTAB                                                  EM1913
C**   IBUFR(3) = IXL                                                    EM1913
C**   IBUFR(4) = IYL                                                    EM1913
C**   IBUFR(5) = DRPPN                                                  EM1913
      IBUFR(6) = PLTAB                                                  EM1913
C**   IBUFR(7) = IXU                                                    EM1913  
      IBUFR(8) = IYL                                                    EM1913
      IBUFR(9) = PLTAB                                                  EM1913
      IBUFR(10) = IXU                                                   EM1913
C**   IBUFR(11) = IYU                                                   EM1913
      IBUFR(12) = PLTAB                                                 EM1913
      IBUFR(13) = IXL                                                   EM1913
      IBUFR(14) = IYU                                                   EM1913
      IBUFR(15) = PLTAB                                                 EM1913
      IBUFR(16) = IXL                                                   EM1913
      IBUFR(17) = IYL                                                   EM1913
      IBUFR(18) = LFTPN                                                 EM1913
C 
C 
C NOW SEND OUT THE WHOLE ARRAY OF GICS, 8 IN TOTAL                      EM1913
C 
      CALL OUTPT(8,IBUFR,2)                                             EM1913
      RETURN
      END 
      END$
                                                                                            