ASMB HED "TFTD" - FORTRAN INTERFACE TO .TFTD . NAM TFTD,7 92069-16281 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-18281 * RELOC: 92069-16281 * * *****************************************************************: * * * * * * ENT TFTD EXT .TFTD,.ENTR * * TFTD PROVIDES A FORTRAN-CALLABLE CONVERSION FROM * DOUBLE INTEGER TO DOUBLE-PRECISION (64-BIT) * FLOATING-POINT. * * CALLING SEQUENCE: * * FTN,L,Y * . * . * DOUBLE PRECISION DA,TFTD * . * . * DA = TFTD(X) * * WHERE X IS DECLARED REAL BUT CONTAINS A DOUBLE * INTEGER VALUE. * * OVERFLOW CANNOT OCCUR. SPC 3 TFTDA DEF *-* TFTDB DEF *-* TFTD NOP JSB .ENTR COPY ADDRESSES. DEF TFTDA DLD TFTDB,I DO OPERATION. JSB .TFTD DEF TFTDA,I JMP TFTD,I EXIT. * END