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$