/dports/math/xlapack/lapack-3.10.0/TESTING/LIN/ |
H A D | zgbt01.f | 147 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 D | sgbt01.f | 147 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 D | cgbt01.f | 147 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 D | dgbt01.f | 147 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 D | cgbt01.f | 150 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 D | dgbt01.f | 150 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 D | zgbt01.f | 150 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 D | zgbt01.f | 147 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 D | sgbt01.f | 147 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 D | cgbt01.f | 147 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 D | dgbt01.f | 147 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 D | zgbt01.f | 147 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 D | sgbt01.f | 147 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 D | dgbt01.f | 147 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 D | cgbt01.f | 147 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 D | zgbt01.f | 147 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 D | cgbt01.f | 147 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 D | dgbt01.f | 147 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 D | sgbt01.f | 147 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 D | zgbt01.f | 150 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 D | dgbt01.f | 150 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 D | sgbt01.f | 150 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 D | cgbt01.f | 150 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 D | sgbt01.f | 150 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 D | zgbt01.f | 150 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 )
|