Home
last modified time | relevance | path

Searched refs:WA (Results 76 – 100 of 6058) sorted by relevance

12345678910>>...243

/dports/math/blas/lapack-3.10.0/TESTING/MATGEN/
H A Dzlagge.f138 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 Dclagge.f138 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 Dzlagge.f138 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 Dclagge.f138 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 Dzlagge.f138 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 Dclagge.f72 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 Dzlagge.f72 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 Dzlagge.f141 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 Dclagge.f141 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 Dclagge.f141 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 Dzlagge.f141 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 Dclagge.f141 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 Dclagge.f141 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 Dzlagge.f141 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 Dclagge.f138 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 Dzlagge.f138 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 Dzlagge.f141 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 Dclagge.f141 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 Dcffti1.f1 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 Dezfft1.f1 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 Dcffti1.f2 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 Dcffti1.f2 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 Dcffti1.f1 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 Dtest-RingWeyl1.C55 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 Dtest-RingWeyl1.C55 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()

12345678910>>...243