lit
    JINRLIB

DPARIN -

E110

: .. :

popaa pop c oco ao F(X) apaoo, oopa cpoc o p oa.

:

: - SUBROUTINE
: - DPARIN

:

CALL DPARIN(X,X1,H,F,N,R), :

X - (REAL*8) oa, oopo c a ;
X1 - (REAL*8) po a a apo;
H - (REAL*8) a a apo;
F - (REAL*8) aa a ;
N - (INTEGER) ooo co, op oco a a;
R - (REAL*8) pa po.

:
       IMPLICIT REAL*8 (A-H,O-Z)
       DIMENSION A(20),F(20),X(8)
       DATA X/0.1D0,-0.2D0,1.5D0,0.65D0,1.89D0,1.0D0,0.135D0,1.9D0/
       A(1)=0.0D0                      
       F(1)=0.0D0                      
       DO    1 I=1,19                  
       A(I+1)=A(I)+0.1D0               
       F(I+1)=DSIN(A(I+1))             
    1  CONTINUE                        
       WRITE(*,11) F
    11 FORMAT(4X,'TABLE OF FUNCTION''S VALUE:',//,(5F14.8))
       WRITE(*,12)
    12 FORMAT(//4X,'ARGUMENT',14X,'RESULT'/)
       DO    2 K=1,8        
       CALL DPARIN(X(K),0.0D0,0.1D0,F,20,R)      
       WRITE(*,13) X(K),R
    13 FORMAT(F12.6,8X,F20.12)
    2  CONTINUE           
       . . .
:
       TABLE OF FUNCTION'S VALUE:
 
       0.00000000    0.09983342    0.19866933    0.29552021    0.38941834
       0.47942554    0.56464247    0.64421769    0.71735609    0.78332691
       0.84147098    0.89120736    0.93203909    0.96355819    0.98544973
       0.99749499    0.99957360    0.99166481    0.97384763    0.94630009
 
 
       ARGUMENT              RESULT
 
       0.100000              0.099833416647
       X IS OUT OF THE INTERVAL, X=    -0.20000000
      -0.200000              0.000000000000
       1.500000              0.997494986604
       0.650000              0.605135295435
       1.890000              0.949492708369
       1.000000              0.841470984808
       0.135000              0.134539452508
       1.900000              0.946300087687


home up e-mail