IF(IPHA.GT.O) Y=Y*30.0/APHA 



IBB=4 



IF(Y.LT.8.0.AND.PHASE(2).GE.0.0) GO TO 552 



IF(Y.LT.8.0.AND.PHASE(2).LT.0.0) IBB=2 



IF(Y.GE.8.0) Y=8.5 



CALL SYMB0L(X,Y,.05,IBB,0.,-1) 



GO TO '553 



552 CALL PL0T(X,Y,3) 



553 00 571 J=3,JX 

 XJ=J-1 



X=ALOG10((XJ*DELK)/XORG)*3.0125 

 Y=ABS(PHASE(J)/30.0) 

 IF(IPHA.GT.O) Y=Y*30.0/APHA 

 IBB=4 



IF(Y.LT.8.0.AND.PHASE(J).GE.0.0) GO TO 554 

 IF(Y.LT.8.0.AND.PHASE(J).LT.0.0) IBB=2 

 IF(Y.GE.8.0) Y=8.5 



CALL SYMB0L(X,Y,.05,IBB,0.,-2) 

 GO TO 571 



554 CALL PL0T(X,Y,2) 



571 CONTINUE 

 486 CONTINUE 



COMPUTE AND PLOT SMOOTHED PHASE SPECTRUM 

 IF(N(2).EQ.O) GO TO 579 

 DO 572 I=NA,NB 

 IA=I-NA+1 

 SUM=0.0 

 DO 573 J=1,NA 

 J1=H-J-1 

 J2=I-J+1 

 573 SUM=SUM+BOATA( J )* (PHASE ( Jl )+PHASE ( J2 ) ) 



572 SMPH(IA)=SUM-BDATA(1)*PHASE(I) 

 IFdPHA.GT.O) GO TO 544 

 WRITE(I0UT,582) FIRSTK 



582 FORMATC SMOOTHED PHASE SPECTRUM(DEG)-FIRST FREQ.=' ,E8.3) 

 GO TO 545 



544 WRITE (lOUT, 545) FIRSTK 



546 FORMATC SMOOTHED PHASE SPECTRUM{DATA INT. )-FIRST FREQ. = ' ,F8.5) 



545 WRITE(I0UT,81)(SMPH(J),J=2,IA) 

 IF(JCODE.LT.O) GO TO 581 



CALL NEWPEN(l) 



X=AL0G10 (F IRSTK/XORG )*3. 0125 



Y=ABS(SMPH(2)/30.0) 



IFdPHA.GT.O) Y=Y*30.0/APHA 



188=4 



IF(Y.LT.8.0.AND.SMPH(2).GE.0.0) GO TO 548 



IF(Y.LT.8.0.AND.SMPH(2).LT.0.0) IBB=2 



IF(Y.GE.8.0) Y=8.5 



CALL SYMB0L(X,Y,.05,IBB,0.,-1) 



GO TO 549 



548 CALL PL0T(X,Y,3) 



549 DO 574 J=3,IA 

 XJ=J-1+N(2) 



195 



