e1xa Subroutine

public subroutine e1xa(x, e1)

Compute exponential integral E1(x)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp)				::	x
real(kind=wp)				::	e1