Lines Matching refs:JU
147 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ
187 JU = MIN( KL+KU, J-1 )
189 LENJ = MIN( M, J ) - J + JU + 1
191 CALL SCOPY( LENJ, AFAC( KD-JU, J ), 1, WORK, 1 )
192 DO 20 I = LENJ + 1, JU + JL + 1
199 DO 30 I = MIN( M-1, J ), J - JU, -1
202 IW = I - J + JU + 1
208 IP = IP - J + JU + 1
217 JUA = MIN( JU, KU )
220 $ WORK( JU+1-JUA ), 1 )
224 RESID = MAX( RESID, SASUM( JU+JL+1, WORK, 1 ) )