Home
last modified time | relevance | path

Searched refs:WA (Results 176 – 200 of 6826) sorted by relevance

12345678910>>...274

/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.4.2/MATGEN/
H A Dslagsy.f125 REAL ALPHA, TAU, WA, WB, WN local
174 WA = SIGN( WN, WORK( 1 ) )
178 WB = WORK( 1 ) + WA
181 TAU = WB / WA
210 WA = SIGN( WN, A( K+I, I ) )
214 WB = A( K+I, I ) + WA
217 TAU = WB / WA
244 A( K+I, I ) = -WA
H A Ddlagsy.f125 DOUBLE PRECISION ALPHA, TAU, WA, WB, WN
174 WA = SIGN( WN, WORK( 1 ) )
178 WB = WORK( 1 ) + WA
181 TAU = WB / WA
210 WA = SIGN( WN, A( K+I, I ) )
214 WB = A( K+I, I ) + WA
217 TAU = WB / WA
244 A( K+I, I ) = -WA
H A Dzlaghe.f130 COMPLEX*16 ALPHA, TAU, WA, WB local
180 WA = ( WN / ABS( WORK( 1 ) ) )*WORK( 1 )
184 WB = WORK( 1 ) + WA
187 TAU = DBLE( WB / WA )
216 WA = ( WN / ABS( A( K+I, I ) ) )*A( K+I, I )
220 WB = A( K+I, I ) + WA
223 TAU = DBLE( WB / WA )
250 A( K+I, I ) = -WA
/dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/TESTING/MATGEN/
H A Ddlagsy.f125 DOUBLE PRECISION ALPHA, TAU, WA, WB, WN local
174 WA = SIGN( WN, WORK( 1 ) )
178 WB = WORK( 1 ) + WA
181 TAU = WB / WA
210 WA = SIGN( WN, A( K+I, I ) )
214 WB = A( K+I, I ) + WA
217 TAU = WB / WA
244 A( K+I, I ) = -WA
H A Dslagsy.f125 REAL ALPHA, TAU, WA, WB, WN local
174 WA = SIGN( WN, WORK( 1 ) )
178 WB = WORK( 1 ) + WA
181 TAU = WB / WA
210 WA = SIGN( WN, A( K+I, I ) )
214 WB = A( K+I, I ) + WA
217 TAU = WB / WA
244 A( K+I, I ) = -WA
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.5.0/MATGEN/
H A Dzlaghe.f130 COMPLEX*16 ALPHA, TAU, WA, WB local
180 WA = ( WN / ABS( WORK( 1 ) ) )*WORK( 1 )
184 WB = WORK( 1 ) + WA
187 TAU = DBLE( WB / WA )
216 WA = ( WN / ABS( A( K+I, I ) ) )*A( K+I, I )
220 WB = A( K+I, I ) + WA
223 TAU = DBLE( WB / WA )
250 A( K+I, I ) = -WA
H A Dslagsy.f125 REAL ALPHA, TAU, WA, WB, WN
174 WA = SIGN( WN, WORK( 1 ) )
178 WB = WORK( 1 ) + WA
181 TAU = WB / WA
210 WA = SIGN( WN, A( K+I, I ) )
214 WB = A( K+I, I ) + WA
217 TAU = WB / WA
244 A( K+I, I ) = -WA
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/TESTING/MATGEN/
H A Dslagsy.f125 REAL ALPHA, TAU, WA, WB, WN
174 WA = SIGN( WN, WORK( 1 ) )
178 WB = WORK( 1 ) + WA
181 TAU = WB / WA
210 WA = SIGN( WN, A( K+I, I ) )
214 WB = A( K+I, I ) + WA
217 TAU = WB / WA
244 A( K+I, I ) = -WA
H A Ddlagsy.f125 DOUBLE PRECISION ALPHA, TAU, WA, WB, WN
174 WA = SIGN( WN, WORK( 1 ) )
178 WB = WORK( 1 ) + WA
181 TAU = WB / WA
210 WA = SIGN( WN, A( K+I, I ) )
214 WB = A( K+I, I ) + WA
217 TAU = WB / WA
244 A( K+I, I ) = -WA
H A Dzlaghe.f130 COMPLEX*16 ALPHA, TAU, WA, WB
180 WA = ( WN / ABS( WORK( 1 ) ) )*WORK( 1 )
184 WB = WORK( 1 ) + WA
187 TAU = DBLE( WB / WA )
216 WA = ( WN / ABS( A( K+I, I ) ) )*A( K+I, I )
220 WB = A( K+I, I ) + WA
223 TAU = DBLE( WB / WA )
250 A( K+I, I ) = -WA
/dports/math/cblas/lapack-3.10.0/TESTING/MATGEN/
H A Dslagsy.f122 REAL ALPHA, TAU, WA, WB, WN
171 WA = SIGN( WN, WORK( 1 ) )
175 WB = WORK( 1 ) + WA
178 TAU = WB / WA
207 WA = SIGN( WN, A( K+I, I ) )
211 WB = A( K+I, I ) + WA
214 TAU = WB / WA
241 A( K+I, I ) = -WA
H A Ddlagsy.f122 DOUBLE PRECISION ALPHA, TAU, WA, WB, WN
171 WA = SIGN( WN, WORK( 1 ) )
175 WB = WORK( 1 ) + WA
178 TAU = WB / WA
207 WA = SIGN( WN, A( K+I, I ) )
211 WB = A( K+I, I ) + WA
214 TAU = WB / WA
241 A( K+I, I ) = -WA
H A Dzlaghe.f127 COMPLEX*16 ALPHA, TAU, WA, WB
177 WA = ( WN / ABS( WORK( 1 ) ) )*WORK( 1 )
181 WB = WORK( 1 ) + WA
184 TAU = DBLE( WB / WA )
213 WA = ( WN / ABS( A( K+I, I ) ) )*A( K+I, I )
217 WB = A( K+I, I ) + WA
220 TAU = DBLE( WB / WA )
247 A( K+I, I ) = -WA
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/MATGEN/
H A Ddlagsy.f125 DOUBLE PRECISION ALPHA, TAU, WA, WB, WN
174 WA = SIGN( WN, WORK( 1 ) )
178 WB = WORK( 1 ) + WA
181 TAU = WB / WA
210 WA = SIGN( WN, A( K+I, I ) )
214 WB = A( K+I, I ) + WA
217 TAU = WB / WA
244 A( K+I, I ) = -WA
H A Dzlaghe.f130 COMPLEX*16 ALPHA, TAU, WA, WB
180 WA = ( WN / ABS( WORK( 1 ) ) )*WORK( 1 )
184 WB = WORK( 1 ) + WA
187 TAU = DBLE( WB / WA )
216 WA = ( WN / ABS( A( K+I, I ) ) )*A( K+I, I )
220 WB = A( K+I, I ) + WA
223 TAU = DBLE( WB / WA )
250 A( K+I, I ) = -WA
H A Dslagsy.f125 REAL ALPHA, TAU, WA, WB, WN
174 WA = SIGN( WN, WORK( 1 ) )
178 WB = WORK( 1 ) + WA
181 TAU = WB / WA
210 WA = SIGN( WN, A( K+I, I ) )
214 WB = A( K+I, I ) + WA
217 TAU = WB / WA
244 A( K+I, I ) = -WA
H A Dclaghe.f130 COMPLEX ALPHA, TAU, WA, WB
180 WA = ( WN / ABS( WORK( 1 ) ) )*WORK( 1 )
184 WB = WORK( 1 ) + WA
187 TAU = REAL( WB / WA )
216 WA = ( WN / ABS( A( K+I, I ) ) )*A( K+I, I )
220 WB = A( K+I, I ) + WA
223 TAU = REAL( WB / WA )
250 A( K+I, I ) = -WA
/dports/science/nwchem-data/nwchem-7.0.2-release/src/ddscf/fast/
H A Dvsint.F438 CH(M,I-1,K,J) = WA(IDIJ-1)*C1(M,I-1,K,J)+WA(IDIJ)
440 CH(M,I,K,J) = WA(IDIJ-1)*C1(M,I,K,J)-WA(IDIJ)
455 CH(M,I-1,K,J) = WA(IDIJ-1)*C1(M,I-1,K,J)+WA(IDIJ)
457 CH(M,I,K,J) = WA(IDIJ-1)*C1(M,I,K,J)-WA(IDIJ)
776 CALL VRADF4 (M,IDO,L1,C,CH,MDIMC,WA(IW),WA(IX2),WA(IX3))
778 101 CALL VRADF4 (M,IDO,L1,CH,C,MDIMC,WA(IW),WA(IX2),WA(IX3))
789 CALL VRADF3 (M,IDO,L1,C,CH,MDIMC,WA(IW),WA(IX2))
791 105 CALL VRADF3 (M,IDO,L1,CH,C,MDIMC,WA(IW),WA(IX2))
798 CALL VRADF5(M,IDO,L1,C,CH,MDIMC,WA(IW),WA(IX2),WA(IX3),WA(IX4))
800 107 CALL VRADF5 (M,IDO,L1,CH,C,MDIMC,WA(IW),WA(IX2),WA(IX3),WA(IX4))
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/ddscf/fast/
H A Dvsint.F438 CH(M,I-1,K,J) = WA(IDIJ-1)*C1(M,I-1,K,J)+WA(IDIJ)
440 CH(M,I,K,J) = WA(IDIJ-1)*C1(M,I,K,J)-WA(IDIJ)
455 CH(M,I-1,K,J) = WA(IDIJ-1)*C1(M,I-1,K,J)+WA(IDIJ)
457 CH(M,I,K,J) = WA(IDIJ-1)*C1(M,I,K,J)-WA(IDIJ)
776 CALL VRADF4 (M,IDO,L1,C,CH,MDIMC,WA(IW),WA(IX2),WA(IX3))
778 101 CALL VRADF4 (M,IDO,L1,CH,C,MDIMC,WA(IW),WA(IX2),WA(IX3))
789 CALL VRADF3 (M,IDO,L1,C,CH,MDIMC,WA(IW),WA(IX2))
791 105 CALL VRADF3 (M,IDO,L1,CH,C,MDIMC,WA(IW),WA(IX2))
798 CALL VRADF5(M,IDO,L1,C,CH,MDIMC,WA(IW),WA(IX2),WA(IX3),WA(IX4))
800 107 CALL VRADF5 (M,IDO,L1,CH,C,MDIMC,WA(IW),WA(IX2),WA(IX3),WA(IX4))
[all …]
/dports/math/cmlib/cmlib-3.0_8/src/snls1e/
H A Dqrfac.f1 SUBROUTINE QRFAC(M,N,A,LDA,PIVOT,IPVT,LIPVT,SIGMA,ACNORM,WA) argument
82 REAL A(LDA,N),SIGMA(N),ACNORM(N),WA(N)
95 WA(J) = SIGMA(J)
118 WA(KMAX) = WA(J)
152 IF (P05*(SIGMA(K)/WA(K))**2 .GT. EPSMCH) GO TO 80
154 WA(K) = SIGMA(K)
/dports/math/slatec/src/
H A Ddqrfac.f3 + ACNORM, WA)
90 DOUBLE PRECISION A(LDA,*),SIGMA(*),ACNORM(*),WA(*)
103 WA(J) = SIGMA(J)
126 WA(KMAX) = WA(J)
160 IF (P05*(SIGMA(K)/WA(K))**2 .GT. EPSMCH) GO TO 80
162 WA(K) = SIGMA(K)
H A Dqrfac.f3 + WA)
87 REAL A(LDA,*),SIGMA(*),ACNORM(*),WA(*)
101 WA(J) = SIGMA(J)
124 WA(KMAX) = WA(J)
158 IF (P05*(SIGMA(K)/WA(K))**2 .GT. EPSMCH) GO TO 80
160 WA(K) = SIGMA(K)
/dports/databases/pgloader3/pgloader-3.6.2/test/regress/expected/
H A Dcsv-districts.out218 WA 5301 16022887883 1096000986 6186.472 423.168 (-121.657957,48.367369)
219 WA 5302 2628891455 2689556004 1015.021 1038.443 (-122.625916,48.372848)
220 WA 5303 23605189465 1212430234 9114.015 468.122 (-122.262232,46.270813)
221 WA 5304 49857847670 807704671 19250.223 311.857 (-119.707229,47.294586)
222 WA 5305 40075210026 598889562 15473.126 231.233 (-117.867549,47.573205)
223 WA 5306 17877991988 5090892772 6902.732 1965.605 (-123.550926,47.638847)
224 WA 5307 373304595 340401468 144.134 131.43 (-122.391357,47.578426)
225 WA 5308 19061530450 364912810 7359.698 140.894 (-121.039403,47.362367)
226 WA 5309 475071785 107564403 183.426 41.531 (-122.258306,47.457524)
227 WA 5310 2141076293 233482676 826.674 90.148 (-122.755815,47.041722)
/dports/lang/spidermonkey78/firefox-78.9.0/testing/web-platform/meta/fetch/data-urls/
H A Dprocessing.any.js.ini23 ["data:x/x;base64;charset=x,WA"]
26 ["data:x;base64;x,WA"]
29 ["data:;base64;,WA"]
61 ["data:x/x;base64;charset=x,WA"]
64 ["data:x;base64;x,WA"]
67 ["data:;base64;,WA"]
/dports/math/xlapack/lapack-3.10.0/TESTING/MATGEN/
H A Dclaghe.f127 COMPLEX ALPHA, TAU, WA, WB
177 WA = ( WN / ABS( WORK( 1 ) ) )*WORK( 1 )
181 WB = WORK( 1 ) + WA
184 TAU = REAL( WB / WA )
213 WA = ( WN / ABS( A( K+I, I ) ) )*A( K+I, I )
217 WB = A( K+I, I ) + WA
220 TAU = REAL( WB / WA )
247 A( K+I, I ) = -WA

12345678910>>...274