Home
last modified time | relevance | path

Searched refs:JUA (Results 1 – 25 of 93) sorted by relevance

1234

/dports/math/xlapack/lapack-3.10.0/TESTING/LIN/
H A Dzgbt01.f147 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ
218 JUA = MIN( JU, KU )
219 IF( JUA+JL+1.GT.0 )
220 $ CALL ZAXPY( JUA+JL+1, -DCMPLX( ONE ), A( KU+1-JUA, J ),
221 $ 1, WORK( JU+1-JUA ), 1 )
H A Dsgbt01.f147 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ
217 JUA = MIN( JU, KU )
218 IF( JUA+JL+1.GT.0 )
219 $ CALL SAXPY( JUA+JL+1, -ONE, A( KU+1-JUA, J ), 1,
220 $ WORK( JU+1-JUA ), 1 )
H A Dcgbt01.f147 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ
218 JUA = MIN( JU, KU )
219 IF( JUA+JL+1.GT.0 )
220 $ CALL CAXPY( JUA+JL+1, -CMPLX( ONE ), A( KU+1-JUA, J ), 1,
221 $ WORK( JU+1-JUA ), 1 )
H A Ddgbt01.f147 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ
217 JUA = MIN( JU, KU )
218 IF( JUA+JL+1.GT.0 )
219 $ CALL DAXPY( JUA+JL+1, -ONE, A( KU+1-JUA, J ), 1,
220 $ WORK( JU+1-JUA ), 1 )
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/LIN/
H A Dcgbt01.f150 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ
221 JUA = MIN( JU, KU )
222 IF( JUA+JL+1.GT.0 )
223 $ CALL CAXPY( JUA+JL+1, -CMPLX( ONE ), A( KU+1-JUA, J ), 1,
224 $ WORK( JU+1-JUA ), 1 )
H A Ddgbt01.f150 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ
220 JUA = MIN( JU, KU )
221 IF( JUA+JL+1.GT.0 )
222 $ CALL DAXPY( JUA+JL+1, -ONE, A( KU+1-JUA, J ), 1,
223 $ WORK( JU+1-JUA ), 1 )
H A Dzgbt01.f150 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ
221 JUA = MIN( JU, KU )
222 IF( JUA+JL+1.GT.0 )
223 $ CALL ZAXPY( JUA+JL+1, -DCMPLX( ONE ), A( KU+1-JUA, J ),
224 $ 1, WORK( JU+1-JUA ), 1 )
/dports/math/blas/lapack-3.10.0/TESTING/LIN/
H A Dzgbt01.f147 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ local
218 JUA = MIN( JU, KU )
219 IF( JUA+JL+1.GT.0 )
220 $ CALL ZAXPY( JUA+JL+1, -DCMPLX( ONE ), A( KU+1-JUA, J ),
221 $ 1, WORK( JU+1-JUA ), 1 )
H A Dsgbt01.f147 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ local
217 JUA = MIN( JU, KU )
218 IF( JUA+JL+1.GT.0 )
219 $ CALL SAXPY( JUA+JL+1, -ONE, A( KU+1-JUA, J ), 1,
220 $ WORK( JU+1-JUA ), 1 )
H A Dcgbt01.f147 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ
218 JUA = MIN( JU, KU )
219 IF( JUA+JL+1.GT.0 )
220 $ CALL CAXPY( JUA+JL+1, -CMPLX( ONE ), A( KU+1-JUA, J ), 1,
221 $ WORK( JU+1-JUA ), 1 )
H A Ddgbt01.f147 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ local
217 JUA = MIN( JU, KU )
218 IF( JUA+JL+1.GT.0 )
219 $ CALL DAXPY( JUA+JL+1, -ONE, A( KU+1-JUA, J ), 1,
220 $ WORK( JU+1-JUA ), 1 )
/dports/math/lapacke/lapack-3.10.0/TESTING/LIN/
H A Dzgbt01.f147 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ
218 JUA = MIN( JU, KU )
219 IF( JUA+JL+1.GT.0 )
220 $ CALL ZAXPY( JUA+JL+1, -DCMPLX( ONE ), A( KU+1-JUA, J ),
221 $ 1, WORK( JU+1-JUA ), 1 )
H A Dsgbt01.f147 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ
217 JUA = MIN( JU, KU )
218 IF( JUA+JL+1.GT.0 )
219 $ CALL SAXPY( JUA+JL+1, -ONE, A( KU+1-JUA, J ), 1,
220 $ WORK( JU+1-JUA ), 1 )
H A Ddgbt01.f147 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ
217 JUA = MIN( JU, KU )
218 IF( JUA+JL+1.GT.0 )
219 $ CALL DAXPY( JUA+JL+1, -ONE, A( KU+1-JUA, J ), 1,
220 $ WORK( JU+1-JUA ), 1 )
H A Dcgbt01.f147 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ
218 JUA = MIN( JU, KU )
219 IF( JUA+JL+1.GT.0 )
220 $ CALL CAXPY( JUA+JL+1, -CMPLX( ONE ), A( KU+1-JUA, J ), 1,
221 $ WORK( JU+1-JUA ), 1 )
/dports/math/lapack/lapack-3.10.0/TESTING/LIN/
H A Dzgbt01.f147 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ local
218 JUA = MIN( JU, KU )
219 IF( JUA+JL+1.GT.0 )
220 $ CALL ZAXPY( JUA+JL+1, -DCMPLX( ONE ), A( KU+1-JUA, J ),
221 $ 1, WORK( JU+1-JUA ), 1 )
H A Dcgbt01.f147 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ
218 JUA = MIN( JU, KU )
219 IF( JUA+JL+1.GT.0 )
220 $ CALL CAXPY( JUA+JL+1, -CMPLX( ONE ), A( KU+1-JUA, J ), 1,
221 $ WORK( JU+1-JUA ), 1 )
H A Ddgbt01.f147 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ local
217 JUA = MIN( JU, KU )
218 IF( JUA+JL+1.GT.0 )
219 $ CALL DAXPY( JUA+JL+1, -ONE, A( KU+1-JUA, J ), 1,
220 $ WORK( JU+1-JUA ), 1 )
H A Dsgbt01.f147 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ
217 JUA = MIN( JU, KU )
218 IF( JUA+JL+1.GT.0 )
219 $ CALL SAXPY( JUA+JL+1, -ONE, A( KU+1-JUA, J ), 1,
220 $ WORK( JU+1-JUA ), 1 )
/dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/TESTING/LIN/
H A Dzgbt01.f150 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ local
221 JUA = MIN( JU, KU )
222 IF( JUA+JL+1.GT.0 )
223 $ CALL ZAXPY( JUA+JL+1, -DCMPLX( ONE ), A( KU+1-JUA, J ),
224 $ 1, WORK( JU+1-JUA ), 1 )
H A Ddgbt01.f150 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ local
220 JUA = MIN( JU, KU )
221 IF( JUA+JL+1.GT.0 )
222 $ CALL DAXPY( JUA+JL+1, -ONE, A( KU+1-JUA, J ), 1,
223 $ WORK( JU+1-JUA ), 1 )
H A Dsgbt01.f150 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ local
220 JUA = MIN( JU, KU )
221 IF( JUA+JL+1.GT.0 )
222 $ CALL SAXPY( JUA+JL+1, -ONE, A( KU+1-JUA, J ), 1,
223 $ WORK( JU+1-JUA ), 1 )
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.4.2/LIN/
H A Dcgbt01.f150 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ local
221 JUA = MIN( JU, KU )
222 IF( JUA+JL+1.GT.0 )
223 $ CALL CAXPY( JUA+JL+1, -CMPLX( ONE ), A( KU+1-JUA, J ), 1,
224 $ WORK( JU+1-JUA ), 1 )
H A Dsgbt01.f150 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ
220 JUA = MIN( JU, KU )
221 IF( JUA+JL+1.GT.0 )
222 $ CALL SAXPY( JUA+JL+1, -ONE, A( KU+1-JUA, J ), 1,
223 $ WORK( JU+1-JUA ), 1 )
H A Dzgbt01.f150 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ
221 JUA = MIN( JU, KU )
222 IF( JUA+JL+1.GT.0 )
223 $ CALL ZAXPY( JUA+JL+1, -DCMPLX( ONE ), A( KU+1-JUA, J ),
224 $ 1, WORK( JU+1-JUA ), 1 )

1234