sw/f4/FRTSRC/dble.ra

   1 /       SUBROUTINE DBLE - REAL TO DBL PREC
   2 /
   3 / VERSION 5A 4-27-77  PT
   4 /
   5         SECT    DBLE
   6         BASE    0
   7         DPCHK
   8         FLDA    0
   9         STARTD
  10         FSTA    RETRN           /SAVE RETURN
  11         FADD    TWO             /ADDR OF ARG POINTER
  12         FSTA    3
  13         FLDA%   3               /ADDR OF ARG
  14         FSTA    3
  15         STARTF
  16         FLDA%   3               /GET ARG
  17         FSTA    DTEMP
  18         FCLA
  19         FSTA    DTEMP+3         /0 FOR LAST 3 WORDS
  20         STARTE
  21         FLDA    DTEMP
  22 RETRN,  0;0                     /FLOAT IS A NOP
  23 TWO,    0;2
  24 DTEMP,  F 0.0
  25         F 0.0
  26         END
  27 \f