END 



FUNCTION F2(X4,A4,PHI4) 



CALCULATE PARTIAL OF FUNCTION WITH RESPECT TO 

 F2=C0S(2.*(X4-PHI4)) 

 A4=A4 

 RETURN 

 END 



FUNCTION F3(X5,A5,B5,PHI5) 



CALCULATE FUNCTION 

 F3=A5+B5*C0S(2.*(X5-PHI5)) 

 RETURN 

 END 



FUNCTION F4(X6,A6,B6,PHI5) 



CALCULATE PARTIAL WITH RESPECT TO PHI 

 F4=2.*SIN(2.*(X6-PHI6)) 

 A6=A6 

 B6=B6 

 RETURN 

 END 



184 



