c compute f requency- direct ion spectrum fds(nf,na) from ddf(nf,na) 



c and sf(nf) 



c 



do 20 nf=1,nfrq 

 do 25 na=1 ,nang 



fds(nf,na)=sf(nf)*ddf(nf,na) 

 25 cont i nue 

 20 continue 

 c 



c at this point, all relevant variables are defined and arrays 

 c are loaded; subsequent computations or operations can be done 

 c at the user's discretion... 

 c 



end 



Figure C1. (Sheet 3 of 3) 



Appendix C Listing of FORTRAN Computer Program 



C3 



