57 





b8 





59 



106 



60 





61 



108 



62 



109 



63 





64 





65 



107 



66 





67 





68 





PRINT 106, (RTd) , I = 1 ,NM) 

 PRINT 106, (RA(I) ,1=1 ,NM) 

 FORMAT (9G13.4) 

 RETURN 



PRINT 109, Z(L), RR(I), RT(I), RI(I), RA(I) 



FORMAT (9H AT DEPTH, F7.0,8ri YD, R = ,F9.4 , 7H DB , 0R,D12.4, 

 ^ 8H, PH A = ,F9.3,16H DEGREES, GR A =,F8.2,9H DEGREES. ) 

 RETURN 

 EL = O.DO 



ELI = DSORT ( DABS (ELSQ)) 

 GO TO 103 

 END 



64 



