09/04/68 



SUBROUTINE C0RC(T. J,N|JMiM'.A.B) 

 riMENSlSN T<i) 



1PENT!FIES KIMMUf' AMD MAXIMUM SUBSrRIPTS, iwM AND M, 

 rar P0!NTS T(JH) TKR0UGH T(M) IN A CnRRID0RifF LEAST 9CUARE 

 DtFFERENCBS EXTENCED TjRST dSWnWaRD AND THB^ UPWARD rR0M P01nT 

 TtJ), LINE 0F LEAST SqUaRES !S GIVPN BY IHP EQUATI0N 

 T»A*8«K FgR KsJMiM 



MAXIMUM ERRGR (T(K)-T>**2 IS EQUAL T0 0R LB8S THAN TF(B) 

 YFRGEM 'NAVeCEAK© C0DE 7240 



JMsj.l i MsjM $IZIP»1 

 J MsM*iSIF<K-M) gi2»2 



2 CALL SCLIKE(T(i),Jm»MiA1#81) $ PRMsTF(Bi) 

 PS 3 L"vM,M 



C«L$Qs(A1*B1*Q-T(L')**2 

 rr(PRM*C) 7,3,3 



3 C0NTINLE S A«A1 * BsBl 

 !F(IZIP> 4ii,i 



4 JH»JM«1 i IF(JM) 6,6,2 



5 M»M-i SI:2lP«-iJ (i9 TS 4 



6 JM*JM*i .5 RETLRK 



7 IFdZiP) 6»5i5 



FND 



A-5 



