Lines Matching refs:KPLUS1
147 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L local
209 KPLUS1 = K + 1
214 L = KPLUS1 - J
218 IF (NOUNIT) X(J) = X(J)*A(KPLUS1,J)
227 L = KPLUS1 - J
232 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J)
274 KPLUS1 = K + 1
278 L = KPLUS1 - J
280 IF (NOUNIT) TEMP = TEMP*A(KPLUS1,J)
285 IF (NOUNIT) TEMP = TEMP*CONJG(A(KPLUS1,J))
299 L = KPLUS1 - J
301 IF (NOUNIT) TEMP = TEMP*A(KPLUS1,J)
307 IF (NOUNIT) TEMP = TEMP*CONJG(A(KPLUS1,J))