PROCEDURE (A,B);

EXF=0.0;

/*C*/

IF((ABS(A) > 44.3) AND (B < 0.)) RETURN EXF;

C= A - B * B;

/*C*/

IF((ABS(C) > 44.3) AND (B > 0.)) RETURN EXF;

IF(C < - 44.3) GO TO A3;

/*C*/

X=ABS(B);

/*C*/

IF(X > 3.0) GO TO A1;

/*C*/

T=1./(1.0+.3275911*X);

Y=T * (.254829592 -T * (.284496736 - T * (1.421413741 - T *

(1.453152027 - 1.061405429 * T ))));

GO TO A2;

A1: Y=.5641896 / (X + .5 / (X + 1. / (X + 1.5 /

(X+2. / (X + 2.5 / X + 1. )))));

A2: EXF = Y * EXP(C);

A3: IF(B < 0.0) THEN EXF = 2. * EXP(A) - EXF;

RETURN EXF;

END;