ASMB HED "FLTD" - FORTRAN INTERFACE TO .FLTD . NAM FLTD,7 92069-16279 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-18279 * RELOC: 92069-16279 * * *****************************************************************: * * * * * * ENT FLTD EXT .FLTD,.ENTR * * FLTD PROVIDES A FORTRAN-CALLABLE CONVERSION FROM * DOUBLE INTEGER TO SINGLE-PRECISION (32-BIT) * FLOATING-POINT. * * CALLING SEQUENCE: * * A = FLTD(X) * * WHERE X IS DECLARED REAL BUT CONTAINS A DOUBLE * INTEGER VALUE. * * OVERFLOW CANNOT OCCUR, BUT PRECISION MAY BE LOST * SINCE SINGLE PRECISION CARRIES ONLY 23 BITS AND * DOUBLE INTEGER HAS 31. EXCESS BITS ARE TRUNCATED, * SO THE VALUE OF THE RESULT IS ALWAYS LESS THAN OR * EQUAL TO THE VALUE OF THE ARGUMENT: IF IT IS NEGATIVE, * THE ABSOLUTE VALUE IS GREATER THAN OR EQUAL TO. SPC 3 FLTDA DEF *-* FLTD NOP JSB .ENTR COPY ADDRESS. DEF FLTDA DLD FLTDA,I DO OPERATION. JSB .FLTD JMP FLTD,I EXIT. RESULT IS IN (A,B) * END