2 calls to
EXPINT

THFLUX
THFLUX