ASMB HED "XFTD" - FORTRAN INTERFACE TO .XFTD . NAM XFTD,7 92069-16280 REV.1912 790320 * * ****************************************************************** * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS RESERVED * NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, REPRODUCED, OR * TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THE PRIOR * WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. ******************************************************************* * * * SOURCE: 92069-18280 * RELOC: 92069-16280 * * *****************************************************************: * * * * * * ENT XFTD EXT .XFTD,.ENTR * * XFTD PROVIDES A FORTRAN-CALLABLE CONVERSION FROM * DOUBLE INTEGER TO EXTENDED-PRECISION (48-BIT) * FLOATING-POINT. * * CALLING SEQUENCE: * * FTN,L * . * . * DOUBLE PRECISION DA,XFTD * . * . * DA = XFTD(X) * * WHERE X IS DECLARED REAL BUT CONTAINS A DOUBLE * INTEGER VALUE. * * OVERFLOW CANNOT OCCUR. SPC 3 XFTDA DEF *-* XFTDB DEF *-* XFTD NOP JSB .ENTR COPY ADDRESSES. DEF XFTDA DLD XFTDB,I DO OPERATION. JSB .XFTD DEF XFTDA,I JMP XFTD,I EXIT. * END