rTN5,4A 



09/04/68 



45 ^--M + i J irL(M)8N $ T|.(m)bA(L)*B<L)«DL(H) 

 IF(IVY) 50,50,301 



5n CONTINUE 



TALCULATE RMS CEpARTUrE Frbm SRIOInAL TEMplRATURE DATA 

 ^9T 08RFECTEC >eR S|.epE 



D0 409 K»2,H 

 RSM»0 ! RCT»0 



XlBDL(K-l) S X3»Uu(K)S A1*A<K-1) S Bl»l(K-l) 

 D0 405 1=1. N 

 f5"I $ IF<X1-G> 403,403,405 



403 lF(0.)f2) 404,4B4i406 



404 TJ«A1*C«E1 

 RSM«RSH*(T(I )-TJ)*«2 



RCTbRCT*!. 



405 C0NTINLE 



406 ir(PCT) 408,401,407 



407 RCT«SOFTF(RSM/RcT) 



408 RMS(K-l>tRCT 



409 C0NTINLE 



RETURN 

 END 



A-3 



