ei.f 156 Bytes
edit raw blame history



1

2

3

4

5

6

7

8

9


function ei (x)
c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
c
      external e1
c
      ei = -e1(-x)
c
      return
      end