37 RMS=RMS+(ENERGY(IE)/C3) 

 ADJUST ENERGY LEVEL IN LOG-LOG SPACE AFTER NORMALIZATION 

 XINTER=10**(AL0G10(XINTER)-.5) 

 IPNUM=IFIX(SQRT(RMS)/PDEL)+1 



IF(ILIST.EQ.1)WRITE(6,51)I,IPNUM,IS0LAT,SELAT,ISDLNG,SELNG,IDLAT, 

 1EELAT,IDLNG,EMLNG,RMS,IDIFF,SL0PEX,XINTER 



LOOP TO INSERT DATA INTO FILE FOR LATER FFT RUNS 

 IF(ISAVEl.NE.l) GO TO 49 

 ENDMRK=9. 999999 

 NPTS=JJ-JST 



WRITE(13.46) FILE(IKONT),I,SLOPEX,XINTER,GRID,NPTS 

 WRITE(13,50)I,IPNUM,ISDLAT,SELAT,ISDLNG,SELNG,IDLAT,EELAT, 

 1IDLNG,EMLNG,RMS 



WRITE(13,47)(AZ(IQ),IQ=JST,JJ) 

 XRMS=SRMS(AZ(JST),NPTS) 



46 F0RMAT(A20,I2,1X,F8.3,1X,E9.3,1X,F7.4,I5) 



47 FORMAT (10F8. 6) 

 WRITE(13,47)ENDMRK 



49 IF(IPLOT.NE.l) GO TO 248 

 APNUM=.5+IPNUM*.5 

 AJ=JST-1 



BJ=JJ-1 



C1=AJ*.02 



C2=BJ*.02 



CALL PL0T(C1,APNUM,3) 



CALL PL0T(C2,APNUM,2) 



50 F0RMAT(I5,I8,4(1X,I4,F6.2),F10.4) 



51 F0RMAT(I5,I8,4(1X,I4,F6.2),F10.4,I6,2F10.6) 

 248 J2=II 



36 CONTINUE 

 880 IF(IKONT.EQ.JTOTL) GO TO 500 

 REPOSITION PLOTTER FOR NEXT PLOT 



IF(M0D(IK0NT,4).NE.0) 60 TO 882 



C2MAX=C2MAX+15.0 



IF(IPLOT.EQ.l) CALL PL0T(C2MAX,-44.0,-3) 



C2MAX=0.0 



GO TO 440 

 882 IF(IPLOT.EQ.l) CALL PLOT(0. 0,8. 0,-3) 



GO TO 440 

 500 IF(IPLOT.EQ.l) CALL PL0T(0. 0,0. 0,999) 



IFdSAVEl.GT.O) CL0SE(UNIT=13) 



STOP 



END 



157 



