/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | cunbdb5.f | 156 SUBROUTINE CUNBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, argument 165 INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, 202 ELSE IF( INCX1 .LT. 1 ) THEN 221 CALL CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, 226 IF( SCNRM2(M1,X1,INCX1) .NE. ZERO 242 CALL CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 244 IF( SCNRM2(M1,X1,INCX1) .NE. ZERO 261 CALL CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 263 IF( SCNRM2(M1,X1,INCX1) .NE. ZERO
|
H A D | dorbdb5.f | 156 SUBROUTINE DORBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, argument 165 INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, 202 ELSE IF( INCX1 .LT. 1 ) THEN 221 CALL DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, 226 IF( DNRM2(M1,X1,INCX1) .NE. ZERO 242 CALL DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 244 IF( DNRM2(M1,X1,INCX1) .NE. ZERO 261 CALL DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 263 IF( DNRM2(M1,X1,INCX1) .NE. ZERO
|
H A D | sorbdb5.f | 156 SUBROUTINE SORBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, argument 165 INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, 202 ELSE IF( INCX1 .LT. 1 ) THEN 221 CALL SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, 226 IF( SNRM2(M1,X1,INCX1) .NE. ZERO 242 CALL SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 244 IF( SNRM2(M1,X1,INCX1) .NE. ZERO 261 CALL SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 263 IF( SNRM2(M1,X1,INCX1) .NE. ZERO
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | cunbdb5.f | 154 SUBROUTINE CUNBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, argument 162 INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, 199 ELSE IF( INCX1 .LT. 1 ) THEN 218 CALL CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, 223 IF( SCNRM2(M1,X1,INCX1) .NE. ZERO 239 CALL CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 241 IF( SCNRM2(M1,X1,INCX1) .NE. ZERO 258 CALL CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 260 IF( SCNRM2(M1,X1,INCX1) .NE. ZERO
|
H A D | sorbdb5.f | 154 SUBROUTINE SORBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, argument 162 INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, 199 ELSE IF( INCX1 .LT. 1 ) THEN 218 CALL SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, 223 IF( SNRM2(M1,X1,INCX1) .NE. ZERO 239 CALL SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 241 IF( SNRM2(M1,X1,INCX1) .NE. ZERO 258 CALL SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 260 IF( SNRM2(M1,X1,INCX1) .NE. ZERO
|
H A D | dorbdb5.f | 154 SUBROUTINE DORBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, argument 162 INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, 199 ELSE IF( INCX1 .LT. 1 ) THEN 218 CALL DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, 223 IF( DNRM2(M1,X1,INCX1) .NE. ZERO 239 CALL DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 241 IF( DNRM2(M1,X1,INCX1) .NE. ZERO 258 CALL DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 260 IF( DNRM2(M1,X1,INCX1) .NE. ZERO
|
H A D | zunbdb5.f | 154 SUBROUTINE ZUNBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, argument 162 INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, 199 ELSE IF( INCX1 .LT. 1 ) THEN 218 CALL ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, 223 IF( DZNRM2(M1,X1,INCX1) .NE. ZERO 239 CALL ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 241 IF( DZNRM2(M1,X1,INCX1) .NE. ZERO 258 CALL ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 260 IF( DZNRM2(M1,X1,INCX1) .NE. ZERO
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | cunbdb5.f | 154 SUBROUTINE CUNBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, argument 162 INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, 199 ELSE IF( INCX1 .LT. 1 ) THEN 218 CALL CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, 223 IF( SCNRM2(M1,X1,INCX1) .NE. ZERO 239 CALL CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 241 IF( SCNRM2(M1,X1,INCX1) .NE. ZERO 258 CALL CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 260 IF( SCNRM2(M1,X1,INCX1) .NE. ZERO
|
H A D | zunbdb5.f | 154 SUBROUTINE ZUNBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, argument 162 INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, 199 ELSE IF( INCX1 .LT. 1 ) THEN 218 CALL ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, 223 IF( DZNRM2(M1,X1,INCX1) .NE. ZERO 239 CALL ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 241 IF( DZNRM2(M1,X1,INCX1) .NE. ZERO 258 CALL ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 260 IF( DZNRM2(M1,X1,INCX1) .NE. ZERO
|
H A D | sorbdb5.f | 154 SUBROUTINE SORBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, argument 162 INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, 199 ELSE IF( INCX1 .LT. 1 ) THEN 218 CALL SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, 223 IF( SNRM2(M1,X1,INCX1) .NE. ZERO 239 CALL SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 241 IF( SNRM2(M1,X1,INCX1) .NE. ZERO 258 CALL SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 260 IF( SNRM2(M1,X1,INCX1) .NE. ZERO
|
H A D | dorbdb5.f | 154 SUBROUTINE DORBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, argument 162 INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, 199 ELSE IF( INCX1 .LT. 1 ) THEN 218 CALL DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, 223 IF( DNRM2(M1,X1,INCX1) .NE. ZERO 239 CALL DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 241 IF( DNRM2(M1,X1,INCX1) .NE. ZERO 258 CALL DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 260 IF( DNRM2(M1,X1,INCX1) .NE. ZERO
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | dorbdb5.f | 154 SUBROUTINE DORBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, argument 162 INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, 199 ELSE IF( INCX1 .LT. 1 ) THEN 218 CALL DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, 223 IF( DNRM2(M1,X1,INCX1) .NE. ZERO 239 CALL DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 241 IF( DNRM2(M1,X1,INCX1) .NE. ZERO 258 CALL DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 260 IF( DNRM2(M1,X1,INCX1) .NE. ZERO
|
H A D | cunbdb5.f | 154 SUBROUTINE CUNBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, argument 162 INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, 199 ELSE IF( INCX1 .LT. 1 ) THEN 218 CALL CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, 223 IF( SCNRM2(M1,X1,INCX1) .NE. ZERO 239 CALL CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 241 IF( SCNRM2(M1,X1,INCX1) .NE. ZERO 258 CALL CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 260 IF( SCNRM2(M1,X1,INCX1) .NE. ZERO
|
H A D | sorbdb5.f | 154 SUBROUTINE SORBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, argument 162 INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, 199 ELSE IF( INCX1 .LT. 1 ) THEN 218 CALL SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, 223 IF( SNRM2(M1,X1,INCX1) .NE. ZERO 239 CALL SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 241 IF( SNRM2(M1,X1,INCX1) .NE. ZERO 258 CALL SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 260 IF( SNRM2(M1,X1,INCX1) .NE. ZERO
|
H A D | zunbdb5.f | 154 SUBROUTINE ZUNBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, argument 162 INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, 199 ELSE IF( INCX1 .LT. 1 ) THEN 218 CALL ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, 223 IF( DZNRM2(M1,X1,INCX1) .NE. ZERO 239 CALL ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 241 IF( DZNRM2(M1,X1,INCX1) .NE. ZERO 258 CALL ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 260 IF( DZNRM2(M1,X1,INCX1) .NE. ZERO
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | cunbdb5.f | 154 SUBROUTINE CUNBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, argument 162 INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, 199 ELSE IF( INCX1 .LT. 1 ) THEN 218 CALL CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, 223 IF( SCNRM2(M1,X1,INCX1) .NE. ZERO 239 CALL CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 241 IF( SCNRM2(M1,X1,INCX1) .NE. ZERO 258 CALL CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 260 IF( SCNRM2(M1,X1,INCX1) .NE. ZERO
|
H A D | zunbdb5.f | 154 SUBROUTINE ZUNBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, argument 162 INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, 199 ELSE IF( INCX1 .LT. 1 ) THEN 218 CALL ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, 223 IF( DZNRM2(M1,X1,INCX1) .NE. ZERO 239 CALL ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 241 IF( DZNRM2(M1,X1,INCX1) .NE. ZERO 258 CALL ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 260 IF( DZNRM2(M1,X1,INCX1) .NE. ZERO
|
H A D | sorbdb5.f | 154 SUBROUTINE SORBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, argument 162 INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, 199 ELSE IF( INCX1 .LT. 1 ) THEN 218 CALL SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, 223 IF( SNRM2(M1,X1,INCX1) .NE. ZERO 239 CALL SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 241 IF( SNRM2(M1,X1,INCX1) .NE. ZERO 258 CALL SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 260 IF( SNRM2(M1,X1,INCX1) .NE. ZERO
|
H A D | dorbdb5.f | 154 SUBROUTINE DORBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, argument 162 INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, 199 ELSE IF( INCX1 .LT. 1 ) THEN 218 CALL DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, 223 IF( DNRM2(M1,X1,INCX1) .NE. ZERO 239 CALL DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 241 IF( DNRM2(M1,X1,INCX1) .NE. ZERO 258 CALL DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 260 IF( DNRM2(M1,X1,INCX1) .NE. ZERO
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | dorbdb5.f | 156 SUBROUTINE DORBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, argument 165 INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, local 202 ELSE IF( INCX1 .LT. 1 ) THEN 221 CALL DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, 226 IF( DNRM2(M1,X1,INCX1) .NE. ZERO 242 CALL DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 244 IF( DNRM2(M1,X1,INCX1) .NE. ZERO 261 CALL DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 263 IF( DNRM2(M1,X1,INCX1) .NE. ZERO
|
H A D | cunbdb5.f | 156 SUBROUTINE CUNBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, argument 165 INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, local 202 ELSE IF( INCX1 .LT. 1 ) THEN 221 CALL CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, 226 IF( SCNRM2(M1,X1,INCX1) .NE. ZERO 242 CALL CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 244 IF( SCNRM2(M1,X1,INCX1) .NE. ZERO 261 CALL CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 263 IF( SCNRM2(M1,X1,INCX1) .NE. ZERO
|
H A D | sorbdb5.f | 156 SUBROUTINE SORBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, argument 165 INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, local 202 ELSE IF( INCX1 .LT. 1 ) THEN 221 CALL SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, 226 IF( SNRM2(M1,X1,INCX1) .NE. ZERO 242 CALL SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 244 IF( SNRM2(M1,X1,INCX1) .NE. ZERO 261 CALL SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 263 IF( SNRM2(M1,X1,INCX1) .NE. ZERO
|
H A D | zunbdb5.f | 156 SUBROUTINE ZUNBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, argument 165 INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, 202 ELSE IF( INCX1 .LT. 1 ) THEN 221 CALL ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, 226 IF( DZNRM2(M1,X1,INCX1) .NE. ZERO 242 CALL ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 244 IF( DZNRM2(M1,X1,INCX1) .NE. ZERO 261 CALL ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 263 IF( DZNRM2(M1,X1,INCX1) .NE. ZERO
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | cunbdb5.f | 154 SUBROUTINE CUNBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, argument 162 INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, 199 ELSE IF( INCX1 .LT. 1 ) THEN 218 CALL CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, 223 IF( SCNRM2(M1,X1,INCX1) .NE. ZERO 239 CALL CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 241 IF( SCNRM2(M1,X1,INCX1) .NE. ZERO 258 CALL CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 260 IF( SCNRM2(M1,X1,INCX1) .NE. ZERO
|
H A D | zunbdb5.f | 154 SUBROUTINE ZUNBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, argument 162 INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, 199 ELSE IF( INCX1 .LT. 1 ) THEN 218 CALL ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, 223 IF( DZNRM2(M1,X1,INCX1) .NE. ZERO 239 CALL ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 241 IF( DZNRM2(M1,X1,INCX1) .NE. ZERO 258 CALL ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, 260 IF( DZNRM2(M1,X1,INCX1) .NE. ZERO
|