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:  GPMM
C      SOURCE: 92840 - 18051
C      RELOC:  92840 - 16001
C 
C 
C 
CC*********************************************************** 
C 
      REAL FUNCTION XPMM(IN,IGCB,GMM), 92840-16001 REV.1819 780515
      DIMENSION VAR(6),ICODE(2) 
      EQUIVALENCE (VAR,XMU),(VAR(3),AP),(ICODE,MUMM)
      EQUIVALENCE (ICODE(2),IADP) 
      DATA MUMM/6/
      DATA IADP/11/ 
C 
C     GPMM CONVERTS MILLIMETERS TO GDU'S.  THE EQUATION 
C FOR DOING THE CONVERSION IN UNITS FORM IS AS FOLLOWS: 
C 
C      GDU'S = (MM * MU'S/MM * GDU/MU)
C 
CCCC
C     THIS CALL ESTABLISHES AN ADDRESS LINK BETWEEN THE GRAPGHICS 
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     START - RETRIEVE CONSTANTS FROM GCB 
C 
      CALL GCBIM(ICODE,2,VAR,0,1) 
      XPMM = (GMM *XMU)/AP
      RETURN
      END 
      END$
                                                                                                                                                                                    