3200 FORTRAN 



(2.1) 



TM No. 377 



n 



SHqRO'iTlNF SPECTHa (NtCn(>ErMl»YO4»IOl»V0?tlO3) 

 DTMeM«:inN A(100).R(10n),C(100).D(100).E(lOO)tF(lOO) 



xammqi^ xt'iotn .y (?4ao) ~ 



PTaa.l^lBP 



W^TTE(ftl»«.n5) in] ,Y02,I03 



SMMYaO.O 



IF (COnp) 11.12. 1 1 



DO 5 T=1.N 



Wl ."itYO* 

 Ml ,'M»Y04 



975 



4 



SilMK = SUMX + X (I) 

 S')MY = <;ilMY*Y(I) 



Em=N 



SiJMY = =;UMY/PN 



SlIMXsSi.lMX/FN 



WPTTE t«?.i^Ob) 



WCJTTE (61.^06) 



WsTTE (i^?.*,'^7)Sl.tMX 



WPTTE (^1 .^07) Sy^X 

 WOTTE (ft?.f,riR) SUMY 

 WQTTE (61 .6n8)SI'MY 

 WOTTE (6?»'^f^'=') 



^"•'TTE (61 .604) 

 Oo «J7"-t 1 = 1. N 

 X ( T ) =< ( T )-«;limx 

 Y /T)=Y(I)-«;i.)MY 

 (in TO 1ft 



n^ 4 1=1 .N 



Sl|MX = SljMX*V ( I ) 



Em=ni 



siiMX=«;uMx/FN 



WT5TTE (67»ftn6) m1,m,Y04 



WPTTE («>1 ,6nft) Ml.M,Y04 



wtTTT^t*,?-, fnrr^mrx - 



WPTTE(6l ,An7) SUMX 

 WqTTE(61 .f,n3) 

 WDTTE(6?.603) 

 Dn 913 1=1 .M 

 X(T)»X ( T) -«iUMX 



M5aMl*l 



Do ?2 L=l.w2 



Si IM 1 = 0.0 



SiiM3=0.o 



t)n ?3-r=L-i-PT - — 



L7=I-L*1 



SnMla<;iiN«i+x(LZ)»X{n 

 Sil("i23SUM?*.y (LZ) 

 ?3 SirM33Sui«r3 + x (I) 



77=N-L*1 

 CnFFBi,/7T 



C0EF2aC0EF»*2 

 - a rLT3^0FF«SUMl -Ct 



iF'(cnnE) ?<i.24.25 

 yr S()M»»Tr.O 



Si)M5«0.0 



913 



5trwT 



-D=e- 



