im CHARACTER*6e BOX (15) 



1B50 



106BC INITIALIZATION OF STRINGS AND CONSTANTS 



1078 IFLA6(l) = 'EnREHAL TYPE I' 



leee iflag(2)='heibull' 



1B9B IFLA6(3)='L06 EXTREMAL' 



liee DEF=7(hs)=Pr(H5<h5)= ' 



1110 FOR«(l)='EXP(-EXP(-(hs-EPSI)/PHI))' 



1120 F0RI1(2) = 'l-EXP((-(hs/BETA)*tALPHA))' 



1130 F0RI1(3) = 'EXP(-((BETA/hs)"ALPHA))' 



1140 TITLE (1) = 'LEAST SQUARES RESULTS' 



1150 DATA RET /S.0, 10. 0,25. 0,50. 0,100.0/ 



1160 EULER=. 5772156649 



1170 C2=.7796968 



1180 16 PRINT, 'PRINT RESIDUAL TABLES(Y/N1?' 



1190 READ(5,17) LOGIC 



1208 17 FORMAT(Al) 



1210 IFILOGIC .NE. 'N' .AND. LOGIC .NE. 'Y') 60 TO 16 



1228 DO 25 1=1, N 



1230 DO 30 K=l,3 



1240 YACT(I,K)=Y(I) 



1250 30 CONTINUE 



1260 25 CONTINUE 



1270 



1280C INITIALIZE VARIABLES FOR LEAST SQUARES FIT OF THE DISTRIBUTIONS 



1290 SX=0 



1300 SY=0 



1318 SXX=0 



1328 SLX=B 



1330 SLLY=0 



1348 SLXX=0 



1358 SLLQY=a 



1360 SXLLY=0 



1370 SLXLLY=0 



1380 TOO6IS=0 



1390 



1400C CALCULATE SUMS FOR THE LEAST SQUARES METHOD 



1410 DO 40 J=1,N 



1420 SX=SX+HS(J) 



1430 SY=SY+YACT(J,1) 



1440 SXX=SXX+HS(J)t*2 



1450 SLX=SLX+AL06(HS(J)) 



1460 SLXX=SLXX+(AL0G(HS(J)))t«2 



1470 SLLY=SLLY-AL0G(-AL06(YACT(J,1))) 



1400 SLLQY=SLLQY+ALO6(-ALO6(1.0-YACT(J,1))) 



1490 SXLLY=SXLLY-HS(J)»AL0G(-AL06(YACT(J,1))) 



1500 SLXLLY=SLXLLY-AL06 (HS ( J ) ) tALOG (-ALOB ( YACT ( J , 1) 1 ) 



1510 40 TOOBI6=TOOBI6+ALOG(HS(J))*(ALOG(-ALOG(1.0-YACT(J,1)))) 



1520 



1530C CALCULATE SLOPE AND INTERCEPT OF EACH "PLOTTED LINE" 



1540 A(l)=(N»SXLLY-SXtSLLY)/(N»SXX-SXt»2) 



1550 A(2) = (N»T00BIG-SLX«SLLQY)/(N«SLXX-SLXH2) 



1560 A(3)=(N»SLXLLY-SLX«SLLY)/(NtSLXX-SLX*»2) 



C8 



