| /dports/science/afni/afni-AFNI_21.3.16/src/coxplot/ |
| H A D | zzchar.f | 90 DATA KU( 1),KU( 2),KU( 3),KU( 4),KU( 5),KU( 6)/0,4,7,0,0,1/
92 DATA KU( 7),KU( 8),KU( 9),KU( 10),KU( 11),KU( 12)/3,4,4,7,6,7/
94 DATA KU( 13),KU( 14),KU( 15),KU( 16),KU( 17),KU( 18)/0,3,4,4,3,0/
96 DATA KU( 19),KU( 20),KU( 21),KU( 22),KU( 23),KU( 24)/7,3,4,4,3,0/
98 DATA KU( 25),KU( 26),KU( 27),KU( 28),KU( 29),KU( 30)/7,6,7,7,4,3/
100 DATA KU( 31),KU( 32),KU( 33),KU( 34),KU( 35),KU( 36)/1,0,0,1,3,4/
102 DATA KU( 37),KU( 38),KU( 39),KU( 40),KU( 41),KU( 42)/7,6,7,0,3,4/
104 DATA KU( 43),KU( 44),KU( 45),KU( 46),KU( 47),KU( 48)/4,3,0,7,6,7/
106 DATA KU( 49),KU( 50),KU( 51),KU( 52),KU( 53),KU( 54)/0,4,7,3,0,7/
108 DATA KU( 55),KU( 56),KU( 57),KU( 58),KU( 59),KU( 60)/0,4,7,6,7,0/
[all …]
|
| /dports/science/eccodes/eccodes-2.23.0-Source/definitions/bufr/tables/0/wmo/14/codetables/ |
| H A D | 33053.table | 1 1 1 DATA BLOCK 1 INVALID (KU BAND)
2 2 2 DATA BLOCK 2 INVALID (KU BAND)
3 3 3 DATA BLOCK 3 INVALID (KU BAND)
4 4 4 DATA BLOCK 4 INVALID (KU BAND)
5 5 5 DATA BLOCK 5 INVALID (KU BAND)
6 6 6 DATA BLOCK 6 INVALID (KU BAND)
7 7 7 DATA BLOCK 7 INVALID (KU BAND)
8 8 8 DATA BLOCK 8 INVALID (KU BAND)
9 9 9 DATA BLOCK 9 INVALID (KU BAND)
10 10 10 DATA BLOCK 10 INVALID (KU BAND)
[all …]
|
| /dports/science/eccodes/eccodes-2.23.0-Source/definitions/bufr/tables/0/wmo/13/codetables/ |
| H A D | 33053.table | 1 1 1 DATA BLOCK 1 INVALID (KU BAND)
2 2 2 DATA BLOCK 2 INVALID (KU BAND)
3 3 3 DATA BLOCK 3 INVALID (KU BAND)
4 4 4 DATA BLOCK 4 INVALID (KU BAND)
5 5 5 DATA BLOCK 5 INVALID (KU BAND)
6 6 6 DATA BLOCK 6 INVALID (KU BAND)
7 7 7 DATA BLOCK 7 INVALID (KU BAND)
8 8 8 DATA BLOCK 8 INVALID (KU BAND)
9 9 9 DATA BLOCK 9 INVALID (KU BAND)
10 10 10 DATA BLOCK 10 INVALID (KU BAND)
[all …]
|
| /dports/science/eccodes/eccodes-2.23.0-Source/definitions/bufr/tables/0/wmo/12/codetables/ |
| H A D | 33053.table | 1 1 1 DATA BLOCK 1 INVALID (KU BAND)
2 2 2 DATA BLOCK 2 INVALID (KU BAND)
3 3 3 DATA BLOCK 3 INVALID (KU BAND)
4 4 4 DATA BLOCK 4 INVALID (KU BAND)
5 5 5 DATA BLOCK 5 INVALID (KU BAND)
6 6 6 DATA BLOCK 6 INVALID (KU BAND)
7 7 7 DATA BLOCK 7 INVALID (KU BAND)
8 8 8 DATA BLOCK 8 INVALID (KU BAND)
9 9 9 DATA BLOCK 9 INVALID (KU BAND)
10 10 10 DATA BLOCK 10 INVALID (KU BAND)
[all …]
|
| /dports/science/eccodes/eccodes-2.23.0-Source/definitions/bufr/tables/0/wmo/10/codetables/ |
| H A D | 33053.table | 1 1 1 DATA BLOCK 1 INVALID (KU BAND)
2 2 2 DATA BLOCK 2 INVALID (KU BAND)
3 3 3 DATA BLOCK 3 INVALID (KU BAND)
4 4 4 DATA BLOCK 4 INVALID (KU BAND)
5 5 5 DATA BLOCK 5 INVALID (KU BAND)
6 6 6 DATA BLOCK 6 INVALID (KU BAND)
7 7 7 DATA BLOCK 7 INVALID (KU BAND)
8 8 8 DATA BLOCK 8 INVALID (KU BAND)
9 9 9 DATA BLOCK 9 INVALID (KU BAND)
10 10 10 DATA BLOCK 10 INVALID (KU BAND)
[all …]
|
| /dports/science/eccodes/eccodes-2.23.0-Source/definitions/bufr/tables/0/wmo/11/codetables/ |
| H A D | 33053.table | 1 1 1 DATA BLOCK 1 INVALID (KU BAND)
2 2 2 DATA BLOCK 2 INVALID (KU BAND)
3 3 3 DATA BLOCK 3 INVALID (KU BAND)
4 4 4 DATA BLOCK 4 INVALID (KU BAND)
5 5 5 DATA BLOCK 5 INVALID (KU BAND)
6 6 6 DATA BLOCK 6 INVALID (KU BAND)
7 7 7 DATA BLOCK 7 INVALID (KU BAND)
8 8 8 DATA BLOCK 8 INVALID (KU BAND)
9 9 9 DATA BLOCK 9 INVALID (KU BAND)
10 10 10 DATA BLOCK 10 INVALID (KU BAND)
[all …]
|
| /dports/science/eccodes/eccodes-2.23.0-Source/definitions/bufr/tables/0/wmo/8/codetables/ |
| H A D | 33053.table | 1 1 1 DATA BLOCK 1 INVALID (KU BAND)
2 2 2 DATA BLOCK 2 INVALID (KU BAND)
3 3 3 DATA BLOCK 3 INVALID (KU BAND)
4 4 4 DATA BLOCK 4 INVALID (KU BAND)
5 5 5 DATA BLOCK 5 INVALID (KU BAND)
6 6 6 DATA BLOCK 6 INVALID (KU BAND)
7 7 7 DATA BLOCK 7 INVALID (KU BAND)
8 8 8 DATA BLOCK 8 INVALID (KU BAND)
9 9 9 DATA BLOCK 9 INVALID (KU BAND)
10 10 10 DATA BLOCK 10 INVALID (KU BAND)
[all …]
|
| /dports/science/eccodes/eccodes-2.23.0-Source/definitions/bufr/tables/0/wmo/7/codetables/ |
| H A D | 33053.table | 1 1 1 DATA BLOCK 1 INVALID (KU BAND)
2 2 2 DATA BLOCK 2 INVALID (KU BAND)
3 3 3 DATA BLOCK 3 INVALID (KU BAND)
4 4 4 DATA BLOCK 4 INVALID (KU BAND)
5 5 5 DATA BLOCK 5 INVALID (KU BAND)
6 6 6 DATA BLOCK 6 INVALID (KU BAND)
7 7 7 DATA BLOCK 7 INVALID (KU BAND)
8 8 8 DATA BLOCK 8 INVALID (KU BAND)
9 9 9 DATA BLOCK 9 INVALID (KU BAND)
10 10 10 DATA BLOCK 10 INVALID (KU BAND)
[all …]
|
| /dports/science/eccodes/eccodes-2.23.0-Source/definitions/bufr/tables/0/wmo/9/codetables/ |
| H A D | 33053.table | 1 1 1 DATA BLOCK 1 INVALID (KU BAND)
2 2 2 DATA BLOCK 2 INVALID (KU BAND)
3 3 3 DATA BLOCK 3 INVALID (KU BAND)
4 4 4 DATA BLOCK 4 INVALID (KU BAND)
5 5 5 DATA BLOCK 5 INVALID (KU BAND)
6 6 6 DATA BLOCK 6 INVALID (KU BAND)
7 7 7 DATA BLOCK 7 INVALID (KU BAND)
8 8 8 DATA BLOCK 8 INVALID (KU BAND)
9 9 9 DATA BLOCK 9 INVALID (KU BAND)
10 10 10 DATA BLOCK 10 INVALID (KU BAND)
[all …]
|
| /dports/math/xlapack/lapack-3.10.0/TESTING/MATGEN/ |
| H A D | zlagge.f | 161 ELSE IF( KU.LT.0 .OR. KU.GT.N-1 ) THEN
274 WN = DZNRM2( N-KU-I+1, A( I, KU+I ), LDA )
275 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
280 CALL ZSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
287 CALL ZLACGV( N-KU-I+1, A( I, KU+I ), LDA )
291 CALL ZGERC( M-I, N-KU-I+1, -TAU, WORK, 1, A( I, KU+I ),
304 WN = DZNRM2( N-KU-I+1, A( I, KU+I ), LDA )
305 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
310 CALL ZSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
317 CALL ZLACGV( N-KU-I+1, A( I, KU+I ), LDA )
[all …]
|
| H A D | clagge.f | 161 ELSE IF( KU.LT.0 .OR. KU.GT.N-1 ) THEN
274 WN = SCNRM2( N-KU-I+1, A( I, KU+I ), LDA )
275 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
280 CALL CSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
287 CALL CLACGV( N-KU-I+1, A( I, KU+I ), LDA )
291 CALL CGERC( M-I, N-KU-I+1, -TAU, WORK, 1, A( I, KU+I ),
304 WN = SCNRM2( N-KU-I+1, A( I, KU+I ), LDA )
305 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
310 CALL CSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
317 CALL CLACGV( N-KU-I+1, A( I, KU+I ), LDA )
[all …]
|
| /dports/math/blas/lapack-3.10.0/TESTING/MATGEN/ |
| H A D | clagge.f | 161 ELSE IF( KU.LT.0 .OR. KU.GT.N-1 ) THEN
274 WN = SCNRM2( N-KU-I+1, A( I, KU+I ), LDA )
275 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
280 CALL CSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
287 CALL CLACGV( N-KU-I+1, A( I, KU+I ), LDA )
291 CALL CGERC( M-I, N-KU-I+1, -TAU, WORK, 1, A( I, KU+I ),
304 WN = SCNRM2( N-KU-I+1, A( I, KU+I ), LDA )
305 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
310 CALL CSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
317 CALL CLACGV( N-KU-I+1, A( I, KU+I ), LDA )
[all …]
|
| H A D | zlagge.f | 161 ELSE IF( KU.LT.0 .OR. KU.GT.N-1 ) THEN
274 WN = DZNRM2( N-KU-I+1, A( I, KU+I ), LDA )
275 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
280 CALL ZSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
287 CALL ZLACGV( N-KU-I+1, A( I, KU+I ), LDA )
291 CALL ZGERC( M-I, N-KU-I+1, -TAU, WORK, 1, A( I, KU+I ),
304 WN = DZNRM2( N-KU-I+1, A( I, KU+I ), LDA )
305 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
310 CALL ZSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
317 CALL ZLACGV( N-KU-I+1, A( I, KU+I ), LDA )
[all …]
|
| /dports/math/lapacke/lapack-3.10.0/TESTING/MATGEN/ |
| H A D | clagge.f | 161 ELSE IF( KU.LT.0 .OR. KU.GT.N-1 ) THEN
274 WN = SCNRM2( N-KU-I+1, A( I, KU+I ), LDA )
275 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
280 CALL CSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
287 CALL CLACGV( N-KU-I+1, A( I, KU+I ), LDA )
291 CALL CGERC( M-I, N-KU-I+1, -TAU, WORK, 1, A( I, KU+I ),
304 WN = SCNRM2( N-KU-I+1, A( I, KU+I ), LDA )
305 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
310 CALL CSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
317 CALL CLACGV( N-KU-I+1, A( I, KU+I ), LDA )
[all …]
|
| H A D | zlagge.f | 161 ELSE IF( KU.LT.0 .OR. KU.GT.N-1 ) THEN
274 WN = DZNRM2( N-KU-I+1, A( I, KU+I ), LDA )
275 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
280 CALL ZSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
287 CALL ZLACGV( N-KU-I+1, A( I, KU+I ), LDA )
291 CALL ZGERC( M-I, N-KU-I+1, -TAU, WORK, 1, A( I, KU+I ),
304 WN = DZNRM2( N-KU-I+1, A( I, KU+I ), LDA )
305 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
310 CALL ZSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
317 CALL ZLACGV( N-KU-I+1, A( I, KU+I ), LDA )
[all …]
|
| /dports/math/lapack/lapack-3.10.0/TESTING/MATGEN/ |
| H A D | clagge.f | 161 ELSE IF( KU.LT.0 .OR. KU.GT.N-1 ) THEN
274 WN = SCNRM2( N-KU-I+1, A( I, KU+I ), LDA )
275 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
280 CALL CSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
287 CALL CLACGV( N-KU-I+1, A( I, KU+I ), LDA )
291 CALL CGERC( M-I, N-KU-I+1, -TAU, WORK, 1, A( I, KU+I ),
304 WN = SCNRM2( N-KU-I+1, A( I, KU+I ), LDA )
305 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
310 CALL CSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
317 CALL CLACGV( N-KU-I+1, A( I, KU+I ), LDA )
[all …]
|
| H A D | zlagge.f | 161 ELSE IF( KU.LT.0 .OR. KU.GT.N-1 ) THEN
274 WN = DZNRM2( N-KU-I+1, A( I, KU+I ), LDA )
275 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
280 CALL ZSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
287 CALL ZLACGV( N-KU-I+1, A( I, KU+I ), LDA )
291 CALL ZGERC( M-I, N-KU-I+1, -TAU, WORK, 1, A( I, KU+I ),
304 WN = DZNRM2( N-KU-I+1, A( I, KU+I ), LDA )
305 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
310 CALL ZSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
317 CALL ZLACGV( N-KU-I+1, A( I, KU+I ), LDA )
[all …]
|
| /dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/TESTING/MATGEN/ |
| H A D | clagge.f | 164 ELSE IF( KU.LT.0 .OR. KU.GT.N-1 ) THEN
277 WN = SCNRM2( N-KU-I+1, A( I, KU+I ), LDA )
278 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
283 CALL CSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
290 CALL CLACGV( N-KU-I+1, A( I, KU+I ), LDA )
294 CALL CGERC( M-I, N-KU-I+1, -TAU, WORK, 1, A( I, KU+I ),
307 WN = SCNRM2( N-KU-I+1, A( I, KU+I ), LDA )
308 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
313 CALL CSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
320 CALL CLACGV( N-KU-I+1, A( I, KU+I ), LDA )
[all …]
|
| H A D | zlagge.f | 164 ELSE IF( KU.LT.0 .OR. KU.GT.N-1 ) THEN
277 WN = DZNRM2( N-KU-I+1, A( I, KU+I ), LDA )
278 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
283 CALL ZSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
290 CALL ZLACGV( N-KU-I+1, A( I, KU+I ), LDA )
294 CALL ZGERC( M-I, N-KU-I+1, -TAU, WORK, 1, A( I, KU+I ),
307 WN = DZNRM2( N-KU-I+1, A( I, KU+I ), LDA )
308 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
313 CALL ZSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
320 CALL ZLACGV( N-KU-I+1, A( I, KU+I ), LDA )
[all …]
|
| /dports/math/cblas/lapack-3.10.0/TESTING/MATGEN/ |
| H A D | clagge.f | 161 ELSE IF( KU.LT.0 .OR. KU.GT.N-1 ) THEN
274 WN = SCNRM2( N-KU-I+1, A( I, KU+I ), LDA )
275 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
280 CALL CSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
287 CALL CLACGV( N-KU-I+1, A( I, KU+I ), LDA )
291 CALL CGERC( M-I, N-KU-I+1, -TAU, WORK, 1, A( I, KU+I ),
304 WN = SCNRM2( N-KU-I+1, A( I, KU+I ), LDA )
305 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
310 CALL CSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
317 CALL CLACGV( N-KU-I+1, A( I, KU+I ), LDA )
[all …]
|
| H A D | zlagge.f | 161 ELSE IF( KU.LT.0 .OR. KU.GT.N-1 ) THEN
274 WN = DZNRM2( N-KU-I+1, A( I, KU+I ), LDA )
275 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
280 CALL ZSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
287 CALL ZLACGV( N-KU-I+1, A( I, KU+I ), LDA )
291 CALL ZGERC( M-I, N-KU-I+1, -TAU, WORK, 1, A( I, KU+I ),
304 WN = DZNRM2( N-KU-I+1, A( I, KU+I ), LDA )
305 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
310 CALL ZSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
317 CALL ZLACGV( N-KU-I+1, A( I, KU+I ), LDA )
[all …]
|
| /dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/MATGEN/ |
| H A D | zlagge.f | 164 ELSE IF( KU.LT.0 .OR. KU.GT.N-1 ) THEN
277 WN = DZNRM2( N-KU-I+1, A( I, KU+I ), LDA )
278 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
283 CALL ZSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
290 CALL ZLACGV( N-KU-I+1, A( I, KU+I ), LDA )
294 CALL ZGERC( M-I, N-KU-I+1, -TAU, WORK, 1, A( I, KU+I ),
307 WN = DZNRM2( N-KU-I+1, A( I, KU+I ), LDA )
308 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
313 CALL ZSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
320 CALL ZLACGV( N-KU-I+1, A( I, KU+I ), LDA )
[all …]
|
| H A D | clagge.f | 164 ELSE IF( KU.LT.0 .OR. KU.GT.N-1 ) THEN
277 WN = SCNRM2( N-KU-I+1, A( I, KU+I ), LDA )
278 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
283 CALL CSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
290 CALL CLACGV( N-KU-I+1, A( I, KU+I ), LDA )
294 CALL CGERC( M-I, N-KU-I+1, -TAU, WORK, 1, A( I, KU+I ),
307 WN = SCNRM2( N-KU-I+1, A( I, KU+I ), LDA )
308 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
313 CALL CSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
320 CALL CLACGV( N-KU-I+1, A( I, KU+I ), LDA )
[all …]
|
| /dports/math/libflame/libflame-5.2.0/old/lapack-test/3.5.0/MATGEN/ |
| H A D | zlagge.f | 164 ELSE IF( KU.LT.0 .OR. KU.GT.N-1 ) THEN
273 WN = DZNRM2( N-KU-I+1, A( I, KU+I ), LDA )
274 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
279 CALL ZSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
286 CALL ZLACGV( N-KU-I+1, A( I, KU+I ), LDA )
290 CALL ZGERC( M-I, N-KU-I+1, -TAU, WORK, 1, A( I, KU+I ),
303 WN = DZNRM2( N-KU-I+1, A( I, KU+I ), LDA )
304 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
309 CALL ZSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
316 CALL ZLACGV( N-KU-I+1, A( I, KU+I ), LDA )
[all …]
|
| /dports/math/scalapack/scalapack-2.1.0/TOOLS/LAPACK/ |
| H A D | clagge.f | 95 ELSE IF( KU.LT.0 .OR. KU.GT.N-1 ) THEN
204 WN = SCNRM2( N-KU-I+1, A( I, KU+I ), LDA )
205 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
210 CALL CSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
217 CALL CLACGV( N-KU-I+1, A( I, KU+I ), LDA )
221 CALL CGERC( M-I, N-KU-I+1, -TAU, WORK, 1, A( I, KU+I ),
234 WN = SCNRM2( N-KU-I+1, A( I, KU+I ), LDA )
235 WA = ( WN / ABS( A( I, KU+I ) ) )*A( I, KU+I )
240 CALL CSCAL( N-KU-I, ONE / WB, A( I, KU+I+1 ), LDA )
247 CALL CLACGV( N-KU-I+1, A( I, KU+I ), LDA )
[all …]
|