CI2t3>»RC2-RCI CI2t4l*=VM*»CPX Cl2t?J«CT»T+CT2T CC2.8)»CTIX+CT2X CC TC 33 32 CC2»5»*CPT+EVL*CT2T C!2.6»*CPX+EVL*CT2X CC2.7)»CT»T CC2»BJ*CTIX 33 CflNTlMOE VJ Js»Va J>l CI » f SCO/2. > C32s(AL/>tL>)*0«»VJJ/R^ V*^SC= YMKVM* S ft-O/a. $G^=VMSC»CR^2-(Wi> $C4)*SC4)*PE/4. 5Caj-SC2)^D£/^ CC3.i>«4#M+t4,0/P£>*SCl> CM, a > =R^* ^M* C 4. d/D« *Sf X>+C3i«tfa VM CO;3)=C4.0/DE>*SC3> CA*VCC*U>/R^>*VJ j*VaJ*a ./«t-*4UL>-C*C32iM/irfl. CC3> 4> *C A 3 4+C4,/ &£> *5 £ ) C*P*=1, +CALl>/R^>#Vaj*XV2J»Cl./R^-4U/R^M)^T/^V2J*Cl«/«^-^t/«^ i)*Cri+2«*Vai^l*CTl42.#Va^2#C7X) CWXs CMPJT4-VM S t* (A L* CT2+4 L±* CTd > C^TTIX* CALD/R#>*\/jJ*CVZJ4(l./f&l*All/&M)*CX±+7.*V2SL4±*CTlt CMTXX* tAl*/K.fa*Vj<9*Cinj+CL./ k$*-AL SR4*)4tr2 *2.* WL3 FC4)»-D Ytrfl.O 00 50 r=M ,4 50 Y*X*rci3 A(4)=CMPLX 00 301 I»J , 4 acr,.i>«cci,o 8«<»CT / 43 3oi scr,3^«=cci/65 CALL DETEHCB«P) B.cO»J> pp 3oz r*i >4 3oz &cr,4">»£ci#S) CALL PETfftC8,0) EC25-P 00 403 I'M, 4 8*CCI/3) 303 B*CCliO CALL PETEq(6rP) £C3>*0 o* 304 r»t,4 8Cr»0=CCX,2) 8CT,e)aCCI,3; 304 BCT>4>«CCi f l> CALL DETrft<8»P> ?C*>«J> P0 365 T»l»4 8ttr3>«ccx,a' 1 ) 3o5" Bcr*4>*ccr,*) CALL prrg-RcajD) PCJ 306 i=i,4 BCI>fc>»C 306 Bcri4i3Ccr,n? CALL pHtPKCPiP) FCO"J) Ya$,0 p»CCT/6> CALL PET£*K,6,0> ECi> = -C> DC* 403, r*i>4 Bcri3>*ccr,j; 402 Bcr,4)«ccr/*) CALL p£r£«(S,D) ffC2)a-p D*CCr,3) 403 e<,r,3i«ccr,o C4LL DETERCB/P) E<3)*-p 0* ^04 l«•> 4 8Cr,l)«£,0 404 8CI;2)*CC1«4) CALL PETERCBiP) £^4>a-D Y»©.0 *>£ 52. 1*1/4 J2 Y»Y*E(t) AC2>-CMrf>LXOfjO,0) Koi«(P*i44.)A*m) CT2»/«0/CR»T2J £OT2P-cp*;#j vr/bn*n 8 ) Cja*crz/3z.»7f 64 COHTWUE ABU-frCTI AB62)=R0T1 A8C3)sCTl AB(*)=ROT;I ABC*)^UI A8t6)*Ul ABC7)tH( A8CB>*«X ABO >«CP I A8CIO>=<*>2. ABU DsROJ ABCI3.