285 





GO TO 317 



286 



o i 



r LWuAu = - 1 



267 





YR = -Z32I 



288 





YI = Z32R 



289 





CALL CFR (YR, YI, FIR, F1 I , C4 , C5, 



290 





CPR = FIR 



291 





CPI = F1 I 



292 





ST0RE5 = K1 + (ZRTIVI4R*F1R-ZRTIVI4I*F1 I) 



293 





ST0RE6=K1 *(ZRTIVI4R*F1 I+ZRTM4I *F1 R ) 



294 





H21 RESTORES* CTP-ST0RE6*STP 



295 





H21 I=ST0RE5*STP+ST0RE6*CTP 



296 





H2R=H21R+H22R 



297 





H2I=H21 1+H22I 



293 



317 



IF ( IH .EQ. 2)G0 TO 80 



299 



60 



IF (FLPS .NE. 1 ) GO TO 320 



300 



70 



H1R = GR+SR 



301 





HI I = GI+SI 



302 





GO TO 362 



303 



320 



IF (FLQUAD .LT. ) GO TO 340 



304 



330 



YR = -Z32I 



305 





YI = Z32R 



306 





CALL CFR (YR, YI, FIR, F1I , C4 , C5, 



307 



340 



ST0RE7=K1*(ZRTIV14R*F1R-ZRTIVI4I*F1 I) 



308 





ST0RE8 = K1 + (ZRTM4I*F1R+ZRTM4R + F1 I) 



309 





HI 1R=ST0RE7*CTHR+STaRE8*STHR 



310 





HI 1 I=ST0RE7*(-STHR)+ST0RE8*CTHR 



311 





IF (FLQUAD .LE. 0) GO TO 360 



312 



350 



ST0RE9=K2*(ZRTIV14R+F2R-ZRTIV14I*F2I) 



313 





STOR10 = K2*(ZRTIVI4I*F2R+ZRTM4R*F2I) 



314 





H12R = STGRE9*CTP+STOR10*STP 



315 





H12I = ST0RE9*(-STP)+ST0R10*CTP 



316 





H1R = HI 1R+H12R 



317 





HI I = HI 1 I+H12I 



318 





GO TO 362 



319 



360 



H1R = HI 1R 



320 





HI I = H1 1 I 



321 



362 



IF ( IH .EO. 1 )G0 TO 999 



322 



80 



IF (FLPS .NE. 1 ) GO TO 380 



323 



90 



FPR = CO 



324 





FPI = 0.0 



325 





00 9? M = 1 ,MLS 



326 





FPR=FPR+C(M)*XPR(M) 



327 



92 



FPI=FPI+C(M)+XPI (M) 



328 





X =-(ST0RE1*FPR-ST0RE2*FPI) 



329 





FPI=-(STQRE1*FPI+ST0RE2*FPR) 



330 





FPR = X 



331 





GPR = DO 



332 





GPI = 0.0 



333 





DO 94 M = 1 ,MLS 



334 





GPR=GPR+D(M)*XPR(M) 



335 



94 



GPI=GPI+D(M)+XPI(M) 



336 





SPR=-C1 *(GPI-FPI-FPI) 



337 





SPI=C1*(GPR-FPR-FPR) 



33d 





H2PR=GPR-SPR 



3*39 





H2PI=GPI-SPI 



340 





GO TO 414 



341 



380 



YR = Z32I 



ML) 



70 



