a. F = <f> in Equation 26 (wave response normalized by incident 

 wave amplitude) . 



b. FABS = amplification factor, the absolute value of <j> . 



c. FPHA = phase difference, the phase of <|> . 



Example and Test Run 



3. To serve as an example as well as to ensure the subroutine is the 

 correct one, the user should run the test program listed in Figure Al and make 

 sure the output is the same as that listed in Table Al . 



PROGRAM WEDGE1 ( INPUT, OUTPUT, TAPE5=INPUT,TAPE6=0UTPUT) TEST1 



COMPLEX F TEST2 



P I = 3 . 141592654 TEST3 



WRITE (6,4) TEST4 

 4 F0RMAT(//3X, ' WEDG-ANS WAV-ANG LOCATION WAVE RESPONSE TESTS 



1 ABS-VAL PHASE'/3X,' CDES) (DEG) XRL XTH(DEG) (N0RMTEST6 



2ALIZED) AHP-F.AC (RAD) ' /3X , 35 ( ' -')/) TEST? 



WEDGEA=90. TEST8 



WAVEA=135. TEST9 



XRL=2.0 TEST10 



XTH=30. TEST11 



IDX=0 TEST12 



CALL WEDGEiF, FABS, FPHA, XRL, XTH , WEDGEA , WAVEA , IDX ) TEST13 



WRITE(6,40) WEDGEA, WAVEA, XRL, XTH,F,FABS, FPHA TEST14 



40 F0RMAT(1X,8F9.2) TESTIS 



STOP TEST16 



END TEST17 

 Figure Al . Computer program list 1 



Table Al 

 Sample Output of the Test Program 



WEDG-ANG WAV-ANG LOCATION WAVE RESPONSE ABS-VAL PHASE 

 (DEG) (DEG) XRL XTH(DEG) (NORMALIZED) AMP-FAC (RAD) 



90 . 00 135. 00 2.00 30.00 -.41 .68 .79 2.11 



A2 



