ASMB HED "FIXD" - FORTRAN INTERFACE TO .FIXD . NAM FIXD,7 92069-16276 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-18276 * RELOC: 92069-16276 * * *****************************************************************: * * * * * * ENT FIXD EXT .FIXD,.ENTR * * FIXD PROVIDES A FORTRAN-CALLABLE CONVERSION FROM * SINGLE-PRECISION (32-BIT) FLOATING-POINT TO DOUBLE * INTEGER. * * CALLING SEQUENCE: * * Y = FIXD(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 *-* FIXD NOP JSB .ENTR COPY ADDRESS. DEF FIXDA DLD FIXDA,I DO OPERATION. JSB .FIXD JMP FIXD,I EXIT. RESULT IS IN (A,B) * END