/dports/math/scilab/scilab-6.1.1/scilab/modules/cacsd/src/slicot/ |
H A D | sb04py.f | 293 SUMR = DDOT( M-K1+1, A( K1, K1 ), LDA, DWORK( K1 ), 329 SUMR = DDOT( M-K1+1, A( K1, K1 ), LDA, DWORK( K1 ), 359 SUMR = DDOT( M-K1+1, A( K1, K1 ), LDA, DWORK( K1 ), 366 SUMR = DDOT( M-K1+1, A( K1, K1 ), LDA, DWORK( K1+M ), 401 SUMR = DDOT( M-K1+1, A( K1, K1 ), LDA, DWORK( K1 ), 410 SUMR = DDOT( M-K1+1, A( K1, K1 ), LDA, DWORK( K1+M ), 933 SUMR = DDOT( M-K1+1, A( K1, K1 ), LDA, DWORK( K1 ), 969 SUMR = DDOT( M-K1+1, A( K1, K1 ), LDA, DWORK( K1 ), 999 SUMR = DDOT( M-K1+1, A( K1, K1 ), LDA, DWORK( K1 ), 1006 SUMR = DDOT( M-K1+1, A( K1, K1 ), LDA, DWORK( K1+M ), [all …]
|
H A D | sb03mx.f | 259 A11 = A( K1, K1 )*A( L1, L1 ) - ONE 490 $ K1 = K1 - 1 501 $ ( DDOT( N-K1+1, A( K1, K1 ), LDA, DWORK( K1 ), 1 ) 542 $ ( DDOT( NP1-K1, A( K1, K1 ), LDA, DWORK( K1 ), 1 ) 547 $ ( DDOT( NP1-K1, A( K2, K1 ), LDA, DWORK( K1 ), 1 ) 583 $ ( DDOT( NP1-K1, A( K1, K1 ), LDA, DWORK( K1 ), 1 ) 587 $ ( DDOT( NP1-K1, A( K1, K1 ), LDA, DWORK( N+K1 ), 1) 631 $ ( DDOT( NP1-K1, A( K1, K1 ), LDA, DWORK( K1 ), 1 ) 635 $ ( DDOT( NP1-K1, A( K1, K1 ), LDA, DWORK( N+K1 ), 639 $ ( DDOT( NP1-K1, A( K2, K1 ), LDA, DWORK( K1 ), [all …]
|
H A D | sb03my.f | 229 $ ( DDOT( K1-1, A( 1, K1 ), 1, C( 1, L1 ), 1 ) + 233 A11 = A( K1, K1 ) + A( L1, L1 ) 263 $ ( DDOT( K1-1, A( 1, K1 ), 1, C( 1, L1 ), 1 ) + 292 $ ( DDOT( K1-1, A( 1, K1 ), 1, C( 1, L1 ), 1 ) + 296 $ ( DDOT( K1-1, A( 1, K1 ), 1, C( 1, L2 ), 1 ) + 300 $ LDA, ONE, ONE, VEC, 2, -A( K1, K1 ), 420 $ K1 = K1 - 1 428 $ ( DDOT( N-K1, A( K1, MINK1N ), LDA, 434 A11 = A( K1, K1 ) + A( L1, L1 ) 497 $ ( DDOT( N-K1, A( K1, MINK1N ), LDA, [all …]
|
/dports/math/arpack-ng/arpack-ng-3.8.0/PARPACK/UTIL/MPI/ |
H A D | pzvout.f | 74 DO 30 K1 = 1, N, 2 76 IF (K1.NE.N) THEN 85 DO 40 K1 = 1, N, 2 87 IF (K1.NE.N) THEN 96 DO 50 K1 = 1, N, 2 98 IF (K1.NE.N) THEN 107 DO 60 K1 = 1, N 108 WRITE( LOUT, 9968 )K1, K1, CX( I ) 118 DO 70 K1 = 1, N, 4 135 DO 80 K1 = 1, N, 3 [all …]
|
H A D | pcvout.f | 74 DO 30 K1 = 1, N, 2 76 IF (K1.NE.N) THEN 85 DO 40 K1 = 1, N, 2 87 IF (K1.NE.N) THEN 96 DO 50 K1 = 1, N, 2 98 IF (K1.NE.N) THEN 107 DO 60 K1 = 1, N 108 WRITE( LOUT, 9968 )K1, K1, CX( I ) 118 DO 70 K1 = 1, N, 4 135 DO 80 K1 = 1, N, 3 [all …]
|
/dports/math/arpack-ng/arpack-ng-3.8.0/PARPACK/UTIL/BLACS/ |
H A D | pzvout.f | 75 DO 30 K1 = 1, N, 2 77 IF (K1.NE.N) THEN 86 DO 40 K1 = 1, N, 2 88 IF (K1.NE.N) THEN 97 DO 50 K1 = 1, N, 2 99 IF (K1.NE.N) THEN 108 DO 60 K1 = 1, N 109 WRITE( LOUT, 9968 )K1, K1, CX( I ) 119 DO 70 K1 = 1, N, 4 136 DO 80 K1 = 1, N, 3 [all …]
|
H A D | pcvout.f | 75 DO 30 K1 = 1, N, 2 77 IF (K1.NE.N) THEN 86 DO 40 K1 = 1, N, 2 88 IF (K1.NE.N) THEN 97 DO 50 K1 = 1, N, 2 99 IF (K1.NE.N) THEN 108 DO 60 K1 = 1, N 109 WRITE( LOUT, 9968 )K1, K1, CX( I ) 119 DO 70 K1 = 1, N, 4 136 DO 80 K1 = 1, N, 3 [all …]
|
/dports/math/arpack-ng/arpack-ng-3.8.0/UTIL/ |
H A D | cvout.f | 63 DO 30 K1 = 1, N, 2 65 IF (K1.NE.N) THEN 74 DO 40 K1 = 1, N, 2 76 IF (K1.NE.N) THEN 85 DO 50 K1 = 1, N, 2 87 IF (K1.NE.N) THEN 96 DO 60 K1 = 1, N 97 WRITE( LOUT, 9968 )K1, K1, CX( I ) 107 DO 70 K1 = 1, N, 4 124 DO 80 K1 = 1, N, 3 [all …]
|
H A D | zvout.f | 63 DO 30 K1 = 1, N, 2 65 IF (K1.NE.N) THEN 74 DO 40 K1 = 1, N, 2 76 IF (K1.NE.N) THEN 85 DO 50 K1 = 1, N, 2 87 IF (K1.NE.N) THEN 96 DO 60 K1 = 1, N 97 WRITE( LOUT, 9968 )K1, K1, CX( I ) 107 DO 70 K1 = 1, N, 4 124 DO 80 K1 = 1, N, 3 [all …]
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/arpack/util_f77/ |
H A D | cvout.f | 63 DO 30 K1 = 1, N, 2 65 IF (K1.NE.N) THEN 74 DO 40 K1 = 1, N, 2 76 IF (K1.NE.N) THEN 85 DO 50 K1 = 1, N, 2 87 IF (K1.NE.N) THEN 96 DO 60 K1 = 1, N 97 WRITE( LOUT, 9968 )K1, K1, CX( I ) 107 DO 70 K1 = 1, N, 4 124 DO 80 K1 = 1, N, 3 [all …]
|
H A D | zvout.f | 63 DO 30 K1 = 1, N, 2 65 IF (K1.NE.N) THEN 74 DO 40 K1 = 1, N, 2 76 IF (K1.NE.N) THEN 85 DO 50 K1 = 1, N, 2 87 IF (K1.NE.N) THEN 96 DO 60 K1 = 1, N 97 WRITE( LOUT, 9968 )K1, K1, CX( I ) 107 DO 70 K1 = 1, N, 4 124 DO 80 K1 = 1, N, 3 [all …]
|
/dports/science/getdp/getdp-3.4.0-source/contrib/Arpack/ |
H A D | zvout.f | 63 DO 30 K1 = 1, N, 2 65 IF (K1.NE.N) THEN 74 DO 40 K1 = 1, N, 2 76 IF (K1.NE.N) THEN 85 DO 50 K1 = 1, N, 2 87 IF (K1.NE.N) THEN 96 DO 60 K1 = 1, N 97 WRITE( LOUT, 9968 )K1, K1, CX( I ) 107 DO 70 K1 = 1, N, 4 124 DO 80 K1 = 1, N, 3 [all …]
|
H A D | cvout.f | 63 DO 30 K1 = 1, N, 2 65 IF (K1.NE.N) THEN 74 DO 40 K1 = 1, N, 2 76 IF (K1.NE.N) THEN 85 DO 50 K1 = 1, N, 2 87 IF (K1.NE.N) THEN 96 DO 60 K1 = 1, N 97 WRITE( LOUT, 9968 )K1, K1, CX( I ) 107 DO 70 K1 = 1, N, 4 124 DO 80 K1 = 1, N, 3 [all …]
|
/dports/math/algae/algae-4.3.6/arpack/ |
H A D | zvout.f | 63 DO 30 K1 = 1, N, 2 65 IF (K1.NE.N) THEN 74 DO 40 K1 = 1, N, 2 76 IF (K1.NE.N) THEN 85 DO 50 K1 = 1, N, 2 87 IF (K1.NE.N) THEN 96 DO 60 K1 = 1, N 97 WRITE( LOUT, 9968 )K1, K1, CX( I ) 107 DO 70 K1 = 1, N, 4 124 DO 80 K1 = 1, N, 3 [all …]
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/arpack/ |
H A D | cvout.f | 63 DO 30 K1 = 1, N, 2 65 IF (K1.NE.N) THEN 74 DO 40 K1 = 1, N, 2 76 IF (K1.NE.N) THEN 85 DO 50 K1 = 1, N, 2 87 IF (K1.NE.N) THEN 96 DO 60 K1 = 1, N 97 WRITE( LOUT, 9968 )K1, K1, CX( I ) 107 DO 70 K1 = 1, N, 4 124 DO 80 K1 = 1, N, 3 [all …]
|
H A D | zvout.f | 63 DO 30 K1 = 1, N, 2 65 IF (K1.NE.N) THEN 74 DO 40 K1 = 1, N, 2 76 IF (K1.NE.N) THEN 85 DO 50 K1 = 1, N, 2 87 IF (K1.NE.N) THEN 96 DO 60 K1 = 1, N 97 WRITE( LOUT, 9968 )K1, K1, CX( I ) 107 DO 70 K1 = 1, N, 4 124 DO 80 K1 = 1, N, 3 [all …]
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/parpack/ |
H A D | pzvout.f | 74 DO 30 K1 = 1, N, 2 76 IF (K1.NE.N) THEN 85 DO 40 K1 = 1, N, 2 87 IF (K1.NE.N) THEN 96 DO 50 K1 = 1, N, 2 98 IF (K1.NE.N) THEN 107 DO 60 K1 = 1, N 108 WRITE( LOUT, 9968 )K1, K1, CX( I ) 118 DO 70 K1 = 1, N, 4 135 DO 80 K1 = 1, N, 3 [all …]
|
H A D | pcvout.f | 74 DO 30 K1 = 1, N, 2 76 IF (K1.NE.N) THEN 85 DO 40 K1 = 1, N, 2 87 IF (K1.NE.N) THEN 96 DO 50 K1 = 1, N, 2 98 IF (K1.NE.N) THEN 107 DO 60 K1 = 1, N 108 WRITE( LOUT, 9968 )K1, K1, CX( I ) 118 DO 70 K1 = 1, N, 4 135 DO 80 K1 = 1, N, 3 [all …]
|
/dports/science/py-scipy/scipy-1.7.1/scipy/sparse/linalg/eigen/arpack/ARPACK/UTIL/ |
H A D | cvout.f | 63 DO 30 K1 = 1, N, 2 65 IF (K1.NE.N) THEN 74 DO 40 K1 = 1, N, 2 76 IF (K1.NE.N) THEN 85 DO 50 K1 = 1, N, 2 87 IF (K1.NE.N) THEN 96 DO 60 K1 = 1, N 97 WRITE( LOUT, 9968 )K1, K1, CX( I ) 107 DO 70 K1 = 1, N, 4 124 DO 80 K1 = 1, N, 3 [all …]
|
H A D | zvout.f | 63 DO 30 K1 = 1, N, 2 65 IF (K1.NE.N) THEN 74 DO 40 K1 = 1, N, 2 76 IF (K1.NE.N) THEN 85 DO 50 K1 = 1, N, 2 87 IF (K1.NE.N) THEN 96 DO 60 K1 = 1, N 97 WRITE( LOUT, 9968 )K1, K1, CX( I ) 107 DO 70 K1 = 1, N, 4 124 DO 80 K1 = 1, N, 3 [all …]
|
/dports/lang/go-devel/go-becaeea1199b875bc24800fa88f2f4fea119bf78/src/cmd/asm/internal/asm/testdata/avx512enc/ |
H A D | avx512_ifma.s | 6 VPMADD52HUQ X7, X11, K1, X18 // 62e2a509b5d7 7 VPMADD52HUQ X0, X11, K1, X18 // 62e2a509b5d0 10 VPMADD52HUQ X7, X31, K1, X18 // 62e28501b5d7 11 VPMADD52HUQ X0, X31, K1, X18 // 62e28501b5d0 14 VPMADD52HUQ X7, X3, K1, X18 // 62e2e509b5d7 15 VPMADD52HUQ X0, X3, K1, X18 // 62e2e509b5d0 18 VPMADD52HUQ X7, X11, K1, X21 // 62e2a509b5ef 19 VPMADD52HUQ X0, X11, K1, X21 // 62e2a509b5e8 22 VPMADD52HUQ X7, X31, K1, X21 // 62e28501b5ef 23 VPMADD52HUQ X0, X31, K1, X21 // 62e28501b5e8 [all …]
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | strsyl.f | 318 SUML = SDOT( M-K1, A( K1, MIN( K1+1, M ) ), LDA, 324 A11 = A( K1, K1 ) + SGN*B( L1, L1 ) 375 SUML = SDOT( M-K1, A( K1, MIN( K1+1, M ) ), LDA, 380 SUML = SDOT( M-K1, A( K1, MIN( K1+1, M ) ), LDA, 503 SUML = SDOT( K1-1, A( 1, K1 ), 1, C( 1, L1 ), 1 ) 508 A11 = A( K1, K1 ) + SGN*B( L1, L1 ) 684 A11 = A( K1, K1 ) + SGN*B( L1, L1 ) 862 SUML = SDOT( M-K1, A( K1, MIN(K1+1, M ) ), LDA, 869 A11 = A( K1, K1 ) + SGN*B( L1, L1 ) 922 SUML = SDOT( M-K1, A( K1, MIN( K1+1, M ) ), LDA, [all …]
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | dtrsyl.f | 315 SUML = DDOT( M-K1, A( K1, MIN( K1+1, M ) ), LDA, 321 A11 = A( K1, K1 ) + SGN*B( L1, L1 ) 372 SUML = DDOT( M-K1, A( K1, MIN( K1+1, M ) ), LDA, 377 SUML = DDOT( M-K1, A( K1, MIN( K1+1, M ) ), LDA, 500 SUML = DDOT( K1-1, A( 1, K1 ), 1, C( 1, L1 ), 1 ) 505 A11 = A( K1, K1 ) + SGN*B( L1, L1 ) 681 A11 = A( K1, K1 ) + SGN*B( L1, L1 ) 859 SUML = DDOT( M-K1, A( K1, MIN( K1+1, M ) ), LDA, 866 A11 = A( K1, K1 ) + SGN*B( L1, L1 ) 919 SUML = DDOT( M-K1, A( K1, MIN( K1+1, M ) ), LDA, [all …]
|
H A D | strsyl.f | 315 SUML = SDOT( M-K1, A( K1, MIN( K1+1, M ) ), LDA, 321 A11 = A( K1, K1 ) + SGN*B( L1, L1 ) 372 SUML = SDOT( M-K1, A( K1, MIN( K1+1, M ) ), LDA, 377 SUML = SDOT( M-K1, A( K1, MIN( K1+1, M ) ), LDA, 500 SUML = SDOT( K1-1, A( 1, K1 ), 1, C( 1, L1 ), 1 ) 505 A11 = A( K1, K1 ) + SGN*B( L1, L1 ) 681 A11 = A( K1, K1 ) + SGN*B( L1, L1 ) 859 SUML = SDOT( M-K1, A( K1, MIN(K1+1, M ) ), LDA, 866 A11 = A( K1, K1 ) + SGN*B( L1, L1 ) 919 SUML = SDOT( M-K1, A( K1, MIN( K1+1, M ) ), LDA, [all …]
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | strsyl.f | 315 SUML = SDOT( M-K1, A( K1, MIN( K1+1, M ) ), LDA, 321 A11 = A( K1, K1 ) + SGN*B( L1, L1 ) 372 SUML = SDOT( M-K1, A( K1, MIN( K1+1, M ) ), LDA, 377 SUML = SDOT( M-K1, A( K1, MIN( K1+1, M ) ), LDA, 500 SUML = SDOT( K1-1, A( 1, K1 ), 1, C( 1, L1 ), 1 ) 505 A11 = A( K1, K1 ) + SGN*B( L1, L1 ) 681 A11 = A( K1, K1 ) + SGN*B( L1, L1 ) 859 SUML = SDOT( M-K1, A( K1, MIN(K1+1, M ) ), LDA, 866 A11 = A( K1, K1 ) + SGN*B( L1, L1 ) 919 SUML = SDOT( M-K1, A( K1, MIN( K1+1, M ) ), LDA, [all …]
|