/dports/math/ploticus/pl240src/pltestsuite/ |
H A D | dtfut.dat | 1 "CC JU" 65 35 2 "FX JU" 87 13 3 "LH JU" 59 41 5 "SP JU" 79 21 6 "BP JU" 87 13 7 "ND JU" 57 43 9 "HG JU" 50 50 11 "CT JU" 59 41 12 "SI JU" 68 32 13 "NK JU" 24 76 [all …]
|
/dports/math/ploticus-nox11/pl240src/pltestsuite/ |
H A D | dtfut.dat | 1 "CC JU" 65 35 2 "FX JU" 87 13 3 "LH JU" 59 41 5 "SP JU" 79 21 6 "BP JU" 87 13 7 "ND JU" 57 43 9 "HG JU" 50 50 11 "CT JU" 59 41 12 "SI JU" 68 32 13 "NK JU" 24 76 [all …]
|
/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 188 JU = MIN( KL+KU, J-1 ) 190 LENJ = MIN( M, J ) - J + JU + 1 192 CALL ZCOPY( LENJ, AFAC( KD-JU, J ), 1, WORK, 1 ) 193 DO 20 I = LENJ + 1, JU + JL + 1 200 DO 30 I = MIN( M-1, J ), J - JU, -1 203 IW = I - J + JU + 1 209 IP = IP - J + JU + 1 218 JUA = MIN( JU, KU ) 221 $ 1, WORK( JU+1-JUA ), 1 ) [all …]
|
H A D | sgbt01.f | 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 ) [all …]
|
H A D | cgbt01.f | 147 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ 188 JU = MIN( KL+KU, J-1 ) 190 LENJ = MIN( M, J ) - J + JU + 1 192 CALL CCOPY( LENJ, AFAC( KD-JU, J ), 1, WORK, 1 ) 193 DO 20 I = LENJ + 1, JU + JL + 1 200 DO 30 I = MIN( M-1, J ), J - JU, -1 203 IW = I - J + JU + 1 209 IP = IP - J + JU + 1 218 JUA = MIN( JU, KU ) 221 $ WORK( JU+1-JUA ), 1 ) [all …]
|
H A D | dgbt01.f | 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 DCOPY( 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 ) [all …]
|
/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 191 JU = MIN( KL+KU, J-1 ) 193 LENJ = MIN( M, J ) - J + JU + 1 195 CALL CCOPY( LENJ, AFAC( KD-JU, J ), 1, WORK, 1 ) 196 DO 20 I = LENJ + 1, JU + JL + 1 203 DO 30 I = MIN( M-1, J ), J - JU, -1 206 IW = I - J + JU + 1 212 IP = IP - J + JU + 1 221 JUA = MIN( JU, KU ) 224 $ WORK( JU+1-JUA ), 1 ) [all …]
|
H A D | dgbt01.f | 150 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ 190 JU = MIN( KL+KU, J-1 ) 192 LENJ = MIN( M, J ) - J + JU + 1 194 CALL DCOPY( LENJ, AFAC( KD-JU, J ), 1, WORK, 1 ) 195 DO 20 I = LENJ + 1, JU + JL + 1 202 DO 30 I = MIN( M-1, J ), J - JU, -1 205 IW = I - J + JU + 1 211 IP = IP - J + JU + 1 220 JUA = MIN( JU, KU ) 223 $ WORK( JU+1-JUA ), 1 ) [all …]
|
H A D | zgbt01.f | 150 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ 191 JU = MIN( KL+KU, J-1 ) 193 LENJ = MIN( M, J ) - J + JU + 1 195 CALL ZCOPY( LENJ, AFAC( KD-JU, J ), 1, WORK, 1 ) 196 DO 20 I = LENJ + 1, JU + JL + 1 203 DO 30 I = MIN( M-1, J ), J - JU, -1 206 IW = I - J + JU + 1 212 IP = IP - J + JU + 1 221 JUA = MIN( JU, KU ) 224 $ 1, WORK( JU+1-JUA ), 1 ) [all …]
|
/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 188 JU = MIN( KL+KU, J-1 ) 190 LENJ = MIN( M, J ) - J + JU + 1 192 CALL ZCOPY( LENJ, AFAC( KD-JU, J ), 1, WORK, 1 ) 193 DO 20 I = LENJ + 1, JU + JL + 1 200 DO 30 I = MIN( M-1, J ), J - JU, -1 203 IW = I - J + JU + 1 209 IP = IP - J + JU + 1 218 JUA = MIN( JU, KU ) 221 $ 1, WORK( JU+1-JUA ), 1 ) [all …]
|
H A D | sgbt01.f | 147 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ local 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 ) [all …]
|
H A D | cgbt01.f | 147 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ 188 JU = MIN( KL+KU, J-1 ) 190 LENJ = MIN( M, J ) - J + JU + 1 192 CALL CCOPY( LENJ, AFAC( KD-JU, J ), 1, WORK, 1 ) 193 DO 20 I = LENJ + 1, JU + JL + 1 200 DO 30 I = MIN( M-1, J ), J - JU, -1 203 IW = I - J + JU + 1 209 IP = IP - J + JU + 1 218 JUA = MIN( JU, KU ) 221 $ WORK( JU+1-JUA ), 1 ) [all …]
|
H A D | dgbt01.f | 147 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ local 187 JU = MIN( KL+KU, J-1 ) 189 LENJ = MIN( M, J ) - J + JU + 1 191 CALL DCOPY( 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 ) [all …]
|
/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 188 JU = MIN( KL+KU, J-1 ) 190 LENJ = MIN( M, J ) - J + JU + 1 192 CALL ZCOPY( LENJ, AFAC( KD-JU, J ), 1, WORK, 1 ) 193 DO 20 I = LENJ + 1, JU + JL + 1 200 DO 30 I = MIN( M-1, J ), J - JU, -1 203 IW = I - J + JU + 1 209 IP = IP - J + JU + 1 218 JUA = MIN( JU, KU ) 221 $ 1, WORK( JU+1-JUA ), 1 ) [all …]
|
H A D | sgbt01.f | 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 ) [all …]
|
H A D | dgbt01.f | 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 DCOPY( 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 ) [all …]
|
H A D | cgbt01.f | 147 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ 188 JU = MIN( KL+KU, J-1 ) 190 LENJ = MIN( M, J ) - J + JU + 1 192 CALL CCOPY( LENJ, AFAC( KD-JU, J ), 1, WORK, 1 ) 193 DO 20 I = LENJ + 1, JU + JL + 1 200 DO 30 I = MIN( M-1, J ), J - JU, -1 203 IW = I - J + JU + 1 209 IP = IP - J + JU + 1 218 JUA = MIN( JU, KU ) 221 $ WORK( JU+1-JUA ), 1 ) [all …]
|
/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 188 JU = MIN( KL+KU, J-1 ) 190 LENJ = MIN( M, J ) - J + JU + 1 192 CALL ZCOPY( LENJ, AFAC( KD-JU, J ), 1, WORK, 1 ) 193 DO 20 I = LENJ + 1, JU + JL + 1 200 DO 30 I = MIN( M-1, J ), J - JU, -1 203 IW = I - J + JU + 1 209 IP = IP - J + JU + 1 218 JUA = MIN( JU, KU ) 221 $ 1, WORK( JU+1-JUA ), 1 ) [all …]
|
H A D | cgbt01.f | 147 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ 188 JU = MIN( KL+KU, J-1 ) 190 LENJ = MIN( M, J ) - J + JU + 1 192 CALL CCOPY( LENJ, AFAC( KD-JU, J ), 1, WORK, 1 ) 193 DO 20 I = LENJ + 1, JU + JL + 1 200 DO 30 I = MIN( M-1, J ), J - JU, -1 203 IW = I - J + JU + 1 209 IP = IP - J + JU + 1 218 JUA = MIN( JU, KU ) 221 $ WORK( JU+1-JUA ), 1 ) [all …]
|
H A D | dgbt01.f | 147 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ local 187 JU = MIN( KL+KU, J-1 ) 189 LENJ = MIN( M, J ) - J + JU + 1 191 CALL DCOPY( 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 ) [all …]
|
H A D | sgbt01.f | 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 ) [all …]
|
/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 191 JU = MIN( KL+KU, J-1 ) 193 LENJ = MIN( M, J ) - J + JU + 1 195 CALL ZCOPY( LENJ, AFAC( KD-JU, J ), 1, WORK, 1 ) 196 DO 20 I = LENJ + 1, JU + JL + 1 203 DO 30 I = MIN( M-1, J ), J - JU, -1 206 IW = I - J + JU + 1 212 IP = IP - J + JU + 1 221 JUA = MIN( JU, KU ) 224 $ 1, WORK( JU+1-JUA ), 1 ) [all …]
|
H A D | dgbt01.f | 150 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ local 190 JU = MIN( KL+KU, J-1 ) 192 LENJ = MIN( M, J ) - J + JU + 1 194 CALL DCOPY( LENJ, AFAC( KD-JU, J ), 1, WORK, 1 ) 195 DO 20 I = LENJ + 1, JU + JL + 1 202 DO 30 I = MIN( M-1, J ), J - JU, -1 205 IW = I - J + JU + 1 211 IP = IP - J + JU + 1 220 JUA = MIN( JU, KU ) 223 $ WORK( JU+1-JUA ), 1 ) [all …]
|
H A D | sgbt01.f | 150 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ local 190 JU = MIN( KL+KU, J-1 ) 192 LENJ = MIN( M, J ) - J + JU + 1 194 CALL SCOPY( LENJ, AFAC( KD-JU, J ), 1, WORK, 1 ) 195 DO 20 I = LENJ + 1, JU + JL + 1 202 DO 30 I = MIN( M-1, J ), J - JU, -1 205 IW = I - J + JU + 1 211 IP = IP - J + JU + 1 220 JUA = MIN( JU, KU ) 223 $ WORK( JU+1-JUA ), 1 ) [all …]
|
/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 191 JU = MIN( KL+KU, J-1 ) 193 LENJ = MIN( M, J ) - J + JU + 1 195 CALL CCOPY( LENJ, AFAC( KD-JU, J ), 1, WORK, 1 ) 196 DO 20 I = LENJ + 1, JU + JL + 1 203 DO 30 I = MIN( M-1, J ), J - JU, -1 206 IW = I - J + JU + 1 212 IP = IP - J + JU + 1 221 JUA = MIN( JU, KU ) 224 $ WORK( JU+1-JUA ), 1 ) [all …]
|