1 



2 

 3 

 4 



5 



6 



7 



8 



9 



10 



11 



12 



14 

 15 

 16 



SUBRGUriNE CFR(X, Y, SR, SI, A, B, M) 



IMPLICIT DOUBLE PRECISION (A-H,0-Z) 



DIMENSION A( 1 ) , B( 1 ) 



SR = O.DO 



SI = O.DO 



DO 10 d = 1 ,M 



I = M - J + 1 



TEMR 



TEMI 



TEMP = A(I) / (TEMR**2 + TEMI**2) 



SR 



SI 



B(I) 



= X + SR 



= Y + SI 



= A(I) / (TEMR**2 



TEMR * TEMP 



-TEMI * TEMP 



CONTINUE 



SR = SR + 1 .DO 



RETURN 



END 



72 



