/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.4.2/MATGEN/ |
H A D | slagsy.f | 125 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 D | dlagsy.f | 125 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 D | zlaghe.f | 130 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 D | dlagsy.f | 125 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 D | slagsy.f | 125 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 D | zlaghe.f | 130 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 D | slagsy.f | 125 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 D | slagsy.f | 125 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 D | dlagsy.f | 125 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 D | zlaghe.f | 130 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 D | slagsy.f | 122 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 D | dlagsy.f | 122 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 D | zlaghe.f | 127 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 D | dlagsy.f | 125 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 D | zlaghe.f | 130 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 D | slagsy.f | 125 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 D | claghe.f | 130 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 D | vsint.F | 438 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 D | vsint.F | 438 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 D | qrfac.f | 1 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 D | dqrfac.f | 3 + 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 D | qrfac.f | 3 + 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 D | csv-districts.out | 218 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 D | processing.any.js.ini | 23 ["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 D | claghe.f | 127 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
|