ASMB,L,R,C * * **************************************************************** * * (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. * * **************************************************************** * * NAME: PART OF MATH LIBRARY * SOURCE: 24998-18XXX SEE NAM FOR LAST THREE DIGITS * RELOC: PART OF 24998-12001 * PGMR: BG & JTS * HED "FIXDR" - FORTRAN INTERFACE TO .FIXD . NAM FIXDR,7 24998-1X099 REV.2001 790417 * ENT FIXDR EXT .FIXD,.ENTR * * FIXDR PROVIDES A FORTRAN-CALLABLE CONVERSION FROM * SINGLE-PRECISION (32-BIT) FLOATING-POINT TO DOUBLE * INTEGER. * * CALLING SEQUENCE: * * Y = FIXDR(A) * * WHERE Y IS DECLARED REAL BUT CONTAINS A DOUBLE * INTEGER VALUE. * * OVERFLOW IS SET ONLY IF THE ARGUMENT IS OUTSIDE THE RANGE * [-2**31,+2**31), AND IS TESTABLE BY THE ROUTINE "OFL". SPC 3 FIXDA DEF *-* FIXDR NOP JSB .ENTR COPY ADDRESS. DEF FIXDA DLD FIXDA,I DO OPERATION. JSB .FIXD JMP FIXDR,I EXIT. RESULT IS IN (A,B) * END