lit
    JINRLIB

DFREC, DFRIC -

309

: K.S.Koelbig :

popaa DFREC c pa p

c309_1

coo apa X.

o DFRIC coc c c :

c309_2

coo apa X. a, o

c309_3

:

: - SUBROUTINE
: - DFREC,DFRIC

:

CALL DFREC(X,C,S),:
C,S - (REAL*8) C(X) S(X) X.
CALL DFRIC(X,C2,S2), :
C2,S2 - (REAL*8) C2(X) S2(X) X.

REAL*8.

:

p 7-10 aa p.

:

  1. R.Bulirsch, Numerical calculation of sine, cosine and Fresnel integrals. Numer.Math., 9(1967), 380-385.
:
       . . .
       IMPLICIT REAL*8 (A-H,O-Z)
       X=1.D0
       CALL DFREC(X,C,S)
       WRITE(*,1) X,C,S
       X=X*X*1.570796326795D0
       CALL DFRIC(X,C2,S2)
       WRITE(*,2) X,C2,S2
    1  FORMAT(' X = ',F12.10,'   C  = ',F12.10,'   S  = ', F12.10)
    2  FORMAT(' X = ',F12.10,'   C2 = ',F12.10,'   S2 = ', F12.10)
       . . .
:
       X = 1.0000000000   C  = 0.7798934004   S  = 0.4382591474
       X = 1.5707963268   C2 = 0.7798934004   S2 = 0.4382591474


home up e-mail