Lines Matching refs:WA2
4 + NFEV, NJEV, IPVT, QTF, WA1, WA2, WA3, WA4)
608 REAL X(*),FVEC(*),FJAC(LDFJAC,*),DIAG(*),QTF(*),WA1(*),WA2(*),
729 CALL QRFAC(M,N,FJAC,LDFJAC,.TRUE.,IPVT,N,WA1,WA2,WA3)
803 CALL RWUPDT(N,FJAC,LDFJAC,WA3,QTF,TEMP,WA1,WA2)
814 WA2(J) = ENORM(J,FJAC(1,J))
817 CALL QRFAC(N,N,FJAC,LDFJAC,.TRUE.,IPVT,N,WA1,WA2,WA3)
839 DIAG(J) = WA2(J)
840 IF (WA2(J) .EQ. ZERO) DIAG(J) = ONE
861 IF (WA2(L) .EQ. ZERO) GO TO 150
866 GNORM = MAX(GNORM,ABS(SUM/WA2(L)))
880 DIAG(J) = MAX(DIAG(J),WA2(J))
890 CALL LMPAR(N,FJAC,LDFJAC,IPVT,DIAG,QTF,DELTA,PAR,WA1,WA2,
897 WA2(J) = X(J) + WA1(J)
909 CALL FCN(IFLAG,M,N,WA2,WA4,FJAC,IJUNK)
965 X(J) = WA2(J)
966 WA2(J) = DIAG(J)*X(J)
971 XNORM = ENORM(N,WA2)