lit
    JINRLIB

DEXP1Z, DEXPIZ -

C350

: .. :

popaa c :

c350

aao ooc , Z=(REZ,AIMZ) - ,
a REZ >= 0 , AIMZ >0 - c p.

:

: - SUBROUTINE
: - DEXP1Z, DEXPIZ
: - DFUTR1,DFU1,DFUTRI,DFUI
: - DGAUSS(D103), DCAUCH(D104)

:

CALL DEXP1Z(REZ,AIMZ,EPS,R1Z,A1Z)
CALL DEXPIZ(REZ,AIMZ,EPS,RIZ,AIZ), :

REZ - (REAL*8) ca ac apa, REZ >= 0;
AIMZ - (REAL*8) a ac apa, AIMZ > 0;
EPS - (REAL*8) , ooc c
(c. pa "ooc" D103);
R1Z - (REAL*8) a co ac E1(Z);
A1Z - (REAL*8) a o ac E1(Z);
RIZ - (REAL*8) a co ac EI(Z);
AIZ - (REAL*8) a o ac EI(Z).

:

C. pa "o" C349.


:
       . . .
       IMPLICIT REAL*8 (A-H,O-Z)
       EPS=1.D-8
       A=8.D0
       B=2.D0
       CALL DEXP1Z(A,B,EPS,C,D)
       CALL DEXPIZ(A,B,EPS,E,F)
       . . .
:
       C=    -.222780490653D-04 D=    -.291919404565D-04
       E=    -.546332526674D+02 F=     .416344774292D+03


home up e-mail