Lines Matching refs:KPLUS1
147 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L local
208 KPLUS1 = K + 1
213 L = KPLUS1 - J
217 IF (NOUNIT) X(J) = X(J)*A(KPLUS1,J)
226 L = KPLUS1 - J
231 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J)
273 KPLUS1 = K + 1
277 L = KPLUS1 - J
278 IF (NOUNIT) TEMP = TEMP*A(KPLUS1,J)
291 L = KPLUS1 - J
292 IF (NOUNIT) TEMP = TEMP*A(KPLUS1,J)