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 
                                                                                                                