From flamant %-% at %-% messiaen.scf.fundp.ac.be  Thu Nov 24 10:14:24 1994
Received: from hermes.fundp.ac.be  for flamant %-% at %-% messiaen.scf.fundp.ac.be
	by www.ccl.net (8.6.9/930601.1506) id KAA09207; Thu, 24 Nov 1994 10:09:39 -0500
Received: by hermes.fundp.ac.be; id AA06329; Thu, 24 Nov 1994 16:14:41 +0100
Received: from messiaen.scf.fundp.ac.be by hermes.fundp.ac.be; id AA06329; Thu, 24 Nov 1994 16:14:41 +0100
Received: by messiaen.scf.fundp.ac.be (AIX 3.2/UCB 5.64/4.03)
          id AA15755; Thu, 24 Nov 1994 16:00:55 +0100
From: flamant |-at-| messiaen.scf.fundp.ac.be (Isabelle Flamant)
Message-Id: <9411241500.AA15755.,at,.messiaen.scf.fundp.ac.be>
To: chemistry %-% at %-% ccl.net
Subject: incomplete Bessel function
Date: Thu, 24 Nov 94 16:00:54 +0100


Hello,

I need to calculate the incomplete Bessel function.  
The form of this function is defined by the formula

                inf
  K  (x,y) = int   exp(-(xt+(y/t))) * (t**(n-1)) dt
   n            1

with x and y .gt. 0 and arbitrary n.
More particularly, I have to evaluate this for n=0.

Does anybody have any information on the availability 
of algorithm(s) for this.

Thanks in advance.

Isabelle Flamant