Appendix B 

 FORTRAN PROGRAM FOR LEAST-SQUARES ANALYSIS OF TABLE 3 DATA 



DlMENilOK HISh) (?) «H2Sbl (?) »Hlbb2 (4) ».^?SB> (4) ,R1SB3(5) »H?<i>H3(5) » 

 iH'iSH4l4),Hi::bB4(^),f'lwP](l'),lK?AHl(2),HlwfxZ(5)»R2WR?(5),t^lwR3(J), 

 1F<^WR3(3) »Hlv^t^4 (3) ♦R^'/JR<+ (3) »h 119) »ETA] (19) ,ETA?(]9) .Y (5) »AYT (19,]9» 





7 



9 



]C 

 11 



12 

 13 



14 

 lb 



/IF(A»R,C) = ( (A*A-b*tt)/ (2.«C) )- (C/2.) 



tlAf-- (A 



YTP(A,H)C»U)=-iA + B)*SI'\(C)+l)*CU5(C) 



READ 

 RFAO 

 RFAd 

 RFAii 

 RtAl,. 

 RFaIi 

 RtAl) 



RFAU 

 READ 

 RF. AH 

 READ 

 REAL) 

 RF-AU 

 READ 

 REAO 

 RFAD 



8) »tt (6) ♦£ (19» 19»19) ♦Lhi\!(H) 

 = SGR I «A*A-fH^*t5) 



H)=SURT (A«A-b*H) 



R?Sbi 

 Kl SHc 



R?Sti<: 

 H)SbJ 



R]Sb4 

 R?Sd4 

 R 1 lA R i 

 R ? /. P i 

 Rl f-Rc 

 f< ? V* R (C 

 R 1 vv R J 

 R ? l^ R j 

 R I V» R 4 

 H2Wh<H 



hl=37.i 



F lAin = ?3.(i 



ET A? '! = ?.(' 



RSC = 5i.bf ■^ 



DC 5 i\=l»e 



IF (N-n 6»c»7 



Ll = ^ 



GC TU R 



IP (fM-?) 9o»1i 



Ll=^ 



GC TO P. 



IF (iNj-j) 1 I til , 12 



Ll = 5 



GC Tu R 



IF (r-i-4) 1J>13»]4 



GC TO P 



IF (iM-b) 15»15«16 



Ll=2 



GC TO 8 



15 



