/dports/math/blas/lapack-3.10.0/TESTING/MATGEN/ |
H A D | zlagge.f | 138 COMPLEX*16 TAU, WA, WB local 199 WB = WORK( 1 ) + WA 202 TAU = DBLE( WB / WA ) 222 WB = WORK( 1 ) + WA 225 TAU = DBLE( WB / WA ) 257 TAU = DBLE( WB / WA ) 267 A( KL+I, I ) = -WA 282 TAU = DBLE( WB / WA ) 293 A( I, KU+I ) = -WA 323 A( I, KU+I ) = -WA [all …]
|
/dports/math/lapacke/lapack-3.10.0/TESTING/MATGEN/ |
H A D | clagge.f | 138 COMPLEX TAU, WA, WB 199 WB = WORK( 1 ) + WA 202 TAU = REAL( WB / WA ) 222 WB = WORK( 1 ) + WA 225 TAU = REAL( WB / WA ) 257 TAU = REAL( WB / WA ) 267 A( KL+I, I ) = -WA 282 TAU = REAL( WB / WA ) 293 A( I, KU+I ) = -WA 323 A( I, KU+I ) = -WA [all …]
|
H A D | zlagge.f | 138 COMPLEX*16 TAU, WA, WB 199 WB = WORK( 1 ) + WA 202 TAU = DBLE( WB / WA ) 222 WB = WORK( 1 ) + WA 225 TAU = DBLE( WB / WA ) 257 TAU = DBLE( WB / WA ) 267 A( KL+I, I ) = -WA 282 TAU = DBLE( WB / WA ) 293 A( I, KU+I ) = -WA 323 A( I, KU+I ) = -WA [all …]
|
/dports/math/lapack/lapack-3.10.0/TESTING/MATGEN/ |
H A D | clagge.f | 138 COMPLEX TAU, WA, WB 199 WB = WORK( 1 ) + WA 202 TAU = REAL( WB / WA ) 222 WB = WORK( 1 ) + WA 225 TAU = REAL( WB / WA ) 257 TAU = REAL( WB / WA ) 267 A( KL+I, I ) = -WA 282 TAU = REAL( WB / WA ) 293 A( I, KU+I ) = -WA 323 A( I, KU+I ) = -WA [all …]
|
H A D | zlagge.f | 138 COMPLEX*16 TAU, WA, WB local 199 WB = WORK( 1 ) + WA 202 TAU = DBLE( WB / WA ) 222 WB = WORK( 1 ) + WA 225 TAU = DBLE( WB / WA ) 257 TAU = DBLE( WB / WA ) 267 A( KL+I, I ) = -WA 282 TAU = DBLE( WB / WA ) 293 A( I, KU+I ) = -WA 323 A( I, KU+I ) = -WA [all …]
|
/dports/math/scalapack/scalapack-2.1.0/TOOLS/LAPACK/ |
H A D | clagge.f | 72 COMPLEX TAU, WA, WB 129 WB = WORK( 1 ) + WA 132 TAU = REAL( WB / WA ) 152 WB = WORK( 1 ) + WA 155 TAU = REAL( WB / WA ) 187 TAU = REAL( WB / WA ) 197 A( KL+I, I ) = -WA 212 TAU = REAL( WB / WA ) 223 A( I, KU+I ) = -WA 253 A( I, KU+I ) = -WA [all …]
|
H A D | zlagge.f | 72 COMPLEX*16 TAU, WA, WB 129 WB = WORK( 1 ) + WA 132 TAU = DBLE( WB / WA ) 152 WB = WORK( 1 ) + WA 155 TAU = DBLE( WB / WA ) 187 TAU = DBLE( WB / WA ) 197 A( KL+I, I ) = -WA 212 TAU = DBLE( WB / WA ) 223 A( I, KU+I ) = -WA 253 A( I, KU+I ) = -WA [all …]
|
/dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/TESTING/MATGEN/ |
H A D | zlagge.f | 141 COMPLEX*16 TAU, WA, WB local 198 WB = WORK( 1 ) + WA 201 TAU = DBLE( WB / WA ) 221 WB = WORK( 1 ) + WA 224 TAU = DBLE( WB / WA ) 256 TAU = DBLE( WB / WA ) 266 A( KL+I, I ) = -WA 281 TAU = DBLE( WB / WA ) 292 A( I, KU+I ) = -WA 322 A( I, KU+I ) = -WA [all …]
|
H A D | clagge.f | 141 COMPLEX TAU, WA, WB local 198 WB = WORK( 1 ) + WA 201 TAU = REAL( WB / WA ) 221 WB = WORK( 1 ) + WA 224 TAU = REAL( WB / WA ) 256 TAU = REAL( WB / WA ) 266 A( KL+I, I ) = -WA 281 TAU = REAL( WB / WA ) 292 A( I, KU+I ) = -WA 322 A( I, KU+I ) = -WA [all …]
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.4.2/MATGEN/ |
H A D | clagge.f | 141 COMPLEX TAU, WA, WB local 198 WB = WORK( 1 ) + WA 201 TAU = REAL( WB / WA ) 221 WB = WORK( 1 ) + WA 224 TAU = REAL( WB / WA ) 256 TAU = REAL( WB / WA ) 266 A( KL+I, I ) = -WA 281 TAU = REAL( WB / WA ) 292 A( I, KU+I ) = -WA 322 A( I, KU+I ) = -WA [all …]
|
H A D | zlagge.f | 141 COMPLEX*16 TAU, WA, WB local 198 WB = WORK( 1 ) + WA 201 TAU = DBLE( WB / WA ) 221 WB = WORK( 1 ) + WA 224 TAU = DBLE( WB / WA ) 256 TAU = DBLE( WB / WA ) 266 A( KL+I, I ) = -WA 281 TAU = DBLE( WB / WA ) 292 A( I, KU+I ) = -WA 322 A( I, KU+I ) = -WA [all …]
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.5.0/MATGEN/ |
H A D | clagge.f | 141 COMPLEX TAU, WA, WB 198 WB = WORK( 1 ) + WA 201 TAU = REAL( WB / WA ) 221 WB = WORK( 1 ) + WA 224 TAU = REAL( WB / WA ) 256 TAU = REAL( WB / WA ) 266 A( KL+I, I ) = -WA 281 TAU = REAL( WB / WA ) 292 A( I, KU+I ) = -WA 322 A( I, KU+I ) = -WA [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/TESTING/MATGEN/ |
H A D | clagge.f | 141 COMPLEX TAU, WA, WB 202 WB = WORK( 1 ) + WA 205 TAU = REAL( WB / WA ) 225 WB = WORK( 1 ) + WA 228 TAU = REAL( WB / WA ) 260 TAU = REAL( WB / WA ) 270 A( KL+I, I ) = -WA 285 TAU = REAL( WB / WA ) 296 A( I, KU+I ) = -WA 326 A( I, KU+I ) = -WA [all …]
|
H A D | zlagge.f | 141 COMPLEX*16 TAU, WA, WB 202 WB = WORK( 1 ) + WA 205 TAU = DBLE( WB / WA ) 225 WB = WORK( 1 ) + WA 228 TAU = DBLE( WB / WA ) 260 TAU = DBLE( WB / WA ) 270 A( KL+I, I ) = -WA 285 TAU = DBLE( WB / WA ) 296 A( I, KU+I ) = -WA 326 A( I, KU+I ) = -WA [all …]
|
/dports/math/cblas/lapack-3.10.0/TESTING/MATGEN/ |
H A D | clagge.f | 138 COMPLEX TAU, WA, WB 199 WB = WORK( 1 ) + WA 202 TAU = REAL( WB / WA ) 222 WB = WORK( 1 ) + WA 225 TAU = REAL( WB / WA ) 257 TAU = REAL( WB / WA ) 267 A( KL+I, I ) = -WA 282 TAU = REAL( WB / WA ) 293 A( I, KU+I ) = -WA 323 A( I, KU+I ) = -WA [all …]
|
H A D | zlagge.f | 138 COMPLEX*16 TAU, WA, WB 199 WB = WORK( 1 ) + WA 202 TAU = DBLE( WB / WA ) 222 WB = WORK( 1 ) + WA 225 TAU = DBLE( WB / WA ) 257 TAU = DBLE( WB / WA ) 267 A( KL+I, I ) = -WA 282 TAU = DBLE( WB / WA ) 293 A( I, KU+I ) = -WA 323 A( I, KU+I ) = -WA [all …]
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/MATGEN/ |
H A D | zlagge.f | 141 COMPLEX*16 TAU, WA, WB 202 WB = WORK( 1 ) + WA 205 TAU = DBLE( WB / WA ) 225 WB = WORK( 1 ) + WA 228 TAU = DBLE( WB / WA ) 260 TAU = DBLE( WB / WA ) 270 A( KL+I, I ) = -WA 285 TAU = DBLE( WB / WA ) 296 A( I, KU+I ) = -WA 326 A( I, KU+I ) = -WA [all …]
|
H A D | clagge.f | 141 COMPLEX TAU, WA, WB 202 WB = WORK( 1 ) + WA 205 TAU = REAL( WB / WA ) 225 WB = WORK( 1 ) + WA 228 TAU = REAL( WB / WA ) 260 TAU = REAL( WB / WA ) 270 A( KL+I, I ) = -WA 285 TAU = REAL( WB / WA ) 296 A( I, KU+I ) = -WA 326 A( I, KU+I ) = -WA [all …]
|
/dports/math/cmlib/cmlib-3.0_8/src/fftpkg/ |
H A D | cffti1.f | 1 SUBROUTINE CFFTI1(N,WA,IFAC) argument 9 DIMENSION WA(*) ,IFAC(*) ,NTRYH(4) 49 WA(I-1) = 1. 50 WA(I) = 0. 58 WA(I-1) = COS(ARG) 59 WA(I) = SIN(ARG) 62 WA(I1-1) = WA(I-1) 63 WA(I1) = WA(I)
|
H A D | ezfft1.f | 1 SUBROUTINE EZFFT1(N,WA,IFAC) argument 9 DIMENSION WA(*) ,IFAC(*) ,NTRYH(4) 57 WA(I-1) = CH1 58 WA(I) = SH1 62 WA(I-1) = CH1*WA(I-3)-SH1*WA(I-2) 63 WA(I) = CH1*WA(I-2)+SH1*WA(I-3)
|
/dports/science/dcl/dcl-5.4.8/src/math2/fftlib/ |
H A D | cffti1.f | 2 SUBROUTINE CFFTI1 (N,WA,IFAC) argument 3 DIMENSION WA(*) ,IFAC(*) ,NTRYH(4) 43 WA(I-1) = 1. 44 WA(I) = 0. 52 WA(I-1) = COS(ARG) 53 WA(I) = SIN(ARG) 56 WA(I1-1) = WA(I-1) 57 WA(I1) = WA(I)
|
/dports/math/slatec/src/ |
H A D | cffti1.f | 2 SUBROUTINE CFFTI1 (N, WA, IFAC) argument 54 DIMENSION WA(*), IFAC(*), NTRYH(4) 95 WA(I-1) = 1. 96 WA(I) = 0. 104 WA(I-1) = COS(ARG) 105 WA(I) = SIN(ARG) 108 WA(I1-1) = WA(I-1) 109 WA(I1) = WA(I)
|
/dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/dfftpack/ |
H A D | cffti1.f | 1 SUBROUTINE CFFTI1 (N,WA,IFAC) argument 3 DIMENSION WA(*) ,IFAC(*) ,NTRYH(4) 42 WA(I-1) = 1.0D0 43 WA(I) = 0.0D0 51 WA(I-1) = COS(ARG) 52 WA(I) = SIN(ARG) 55 WA(I1-1) = WA(I-1) 56 WA(I1) = WA(I)
|
/dports/math/giacxcas/CoCoALib-0.99700/src/tests/ |
H A D | test-RingWeyl1.C | 55 SparsePolyRing WA = NewWeylAlgebra(RingQQ(), names, ElimIndets); in program() local 56 CoCoA_ASSERT_ALWAYS(!IsCommutative(WA)); in program() 58 RingElem x = indet(WA, 0); in program() 59 RingElem y = indet(WA, 1); in program() 60 RingElem z = indet(WA, 2); in program() 61 RingElem t = indet(WA, 3); in program() 63 RingElem dx = indet(WA, 0+NumInds); in program() 64 RingElem dy = indet(WA, 1+NumInds); in program() 65 RingElem dz = indet(WA, 2+NumInds); in program() 66 RingElem dt = indet(WA, 3+NumInds); in program()
|
/dports/math/cocoalib/CoCoALib-0.99712/src/tests/ |
H A D | test-RingWeyl1.C | 55 SparsePolyRing WA = NewWeylAlgebra(RingQQ(), names, ElimIndets); in program() local 56 CoCoA_ASSERT_ALWAYS(!IsCommutative(WA)); in program() 58 RingElem x = indet(WA, 0); in program() 59 RingElem y = indet(WA, 1); in program() 60 RingElem z = indet(WA, 2); in program() 61 RingElem t = indet(WA, 3); in program() 63 RingElem dx = indet(WA, 0+NumInds); in program() 64 RingElem dy = indet(WA, 1+NumInds); in program() 65 RingElem dz = indet(WA, 2+NumInds); in program() 66 RingElem dt = indet(WA, 3+NumInds); in program()
|