home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / rt1 / dble.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  174 b   |  21 lines
  1. /
  2. /
  3.  
  4. / dble fortran function
  5.  
  6. .globl    dble.
  7.  
  8. .globl    rval4p
  9. .globl    lval
  10. .globl    r4r8
  11. .globl    gas8
  12. .globl    retrn
  13. .globl    temp
  14.  
  15. dble.:    temp
  16.     lval; temp
  17.     rval4p; 2
  18.     r4r8
  19.     gas8
  20.     retrn
  21.