5 * Revision 1.1.1.1 1996/04/01 15:02:24 mclareni
10 SUBROUTINE RLSQP2(N,X,Y,A0,A1,A2,SD,IFAIL)
11 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
52 DET=(FN*SXXXX-SXX**2)*SXX-FN*SXXX**2
54 D2=(SXX*(FN*SXXY-SXX*SY)-FN*SXXX*SXY)/DET
62 IF(IFAIL .EQ. 0 .AND. N .GT. 3)
63 1 SD=SQRT(MAX(R0,SYY-D0*SY-D1*SXY-D2*SXXY)/(N-3))