sw/os8/v3d/sources/fortran/all/sngl.ra

   1 /       SUBROUTINE SNGL  -   DBL PREC TO REAL
   2 /
   3 / VERSION 5A 4-26-77 MH
   4 /
   5         SECT    SNGL
   6         DPCHK
   7         BASE    0
   8         FLDA    0
   9         STARTD
  10         FSTA    RETRN
  11         FADD    TWO
  12         FSTA    3
  13         FLDA%   3
  14         FSTA    3
  15         STARTE
  16         FLDA%   3
  17         STARTF
  18         JA      RETRN
  19 RETRN,  0;0
  20 TWO,    0;2
  21 \f