/dports/math/lapack/lapack-3.10.0/TESTING/MATGEN/ |
H A D | slagge.f | 195 WB = WORK( 1 ) + WA 198 TAU = WB / WA 218 WB = WORK( 1 ) + WA 221 TAU = WB / WA 253 TAU = WB / WA 263 A( KL+I, I ) = -WA 278 TAU = WB / WA 288 A( I, KU+I ) = -WA 307 TAU = WB / WA 317 A( I, KU+I ) = -WA [all …]
|
/dports/math/scalapack/scalapack-2.1.0/TOOLS/LAPACK/ |
H A D | dlagge.f | 126 WB = WORK( 1 ) + WA 129 TAU = WB / WA 149 WB = WORK( 1 ) + WA 152 TAU = WB / WA 184 TAU = WB / WA 194 A( KL+I, I ) = -WA 209 TAU = WB / WA 219 A( I, KU+I ) = -WA 238 TAU = WB / WA 248 A( I, KU+I ) = -WA [all …]
|
H A D | slagge.f | 126 WB = WORK( 1 ) + WA 129 TAU = WB / WA 149 WB = WORK( 1 ) + WA 152 TAU = WB / WA 184 TAU = WB / WA 194 A( KL+I, I ) = -WA 209 TAU = WB / WA 219 A( I, KU+I ) = -WA 238 TAU = WB / WA 248 A( I, KU+I ) = -WA [all …]
|
/dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/TESTING/MATGEN/ |
H A D | slagge.f | 194 WB = WORK( 1 ) + WA 197 TAU = WB / WA 217 WB = WORK( 1 ) + WA 220 TAU = WB / WA 252 TAU = WB / WA 262 A( KL+I, I ) = -WA 277 TAU = WB / WA 287 A( I, KU+I ) = -WA 306 TAU = WB / WA 316 A( I, KU+I ) = -WA [all …]
|
H A D | dlagge.f | 194 WB = WORK( 1 ) + WA 197 TAU = WB / WA 217 WB = WORK( 1 ) + WA 220 TAU = WB / WA 252 TAU = WB / WA 262 A( KL+I, I ) = -WA 277 TAU = WB / WA 287 A( I, KU+I ) = -WA 306 TAU = WB / WA 316 A( I, KU+I ) = -WA [all …]
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.4.2/MATGEN/ |
H A D | slagge.f | 194 WB = WORK( 1 ) + WA 197 TAU = WB / WA 217 WB = WORK( 1 ) + WA 220 TAU = WB / WA 252 TAU = WB / WA 262 A( KL+I, I ) = -WA 277 TAU = WB / WA 287 A( I, KU+I ) = -WA 306 TAU = WB / WA 316 A( I, KU+I ) = -WA [all …]
|
H A D | dlagge.f | 194 WB = WORK( 1 ) + WA 197 TAU = WB / WA 217 WB = WORK( 1 ) + WA 220 TAU = WB / WA 252 TAU = WB / WA 262 A( KL+I, I ) = -WA 277 TAU = WB / WA 287 A( I, KU+I ) = -WA 306 TAU = WB / WA 316 A( I, KU+I ) = -WA [all …]
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.5.0/MATGEN/ |
H A D | dlagge.f | 194 WB = WORK( 1 ) + WA 197 TAU = WB / WA 217 WB = WORK( 1 ) + WA 220 TAU = WB / WA 252 TAU = WB / WA 262 A( KL+I, I ) = -WA 277 TAU = WB / WA 287 A( I, KU+I ) = -WA 306 TAU = WB / WA 316 A( I, KU+I ) = -WA [all …]
|
H A D | slagge.f | 194 WB = WORK( 1 ) + WA 197 TAU = WB / WA 217 WB = WORK( 1 ) + WA 220 TAU = WB / WA 252 TAU = WB / WA 262 A( KL+I, I ) = -WA 277 TAU = WB / WA 287 A( I, KU+I ) = -WA 306 TAU = WB / WA 316 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/openblas/OpenBLAS-0.3.18/lapack-netlib/TESTING/MATGEN/ |
H A D | slagge.f | 198 WB = WORK( 1 ) + WA 201 TAU = WB / WA 221 WB = WORK( 1 ) + WA 224 TAU = WB / WA 256 TAU = WB / WA 266 A( KL+I, I ) = -WA 281 TAU = WB / WA 291 A( I, KU+I ) = -WA 310 TAU = WB / WA 320 A( I, KU+I ) = -WA [all …]
|
H A D | dlagge.f | 198 WB = WORK( 1 ) + WA 201 TAU = WB / WA 221 WB = WORK( 1 ) + WA 224 TAU = WB / WA 256 TAU = WB / WA 266 A( KL+I, I ) = -WA 281 TAU = WB / WA 291 A( I, KU+I ) = -WA 310 TAU = WB / WA 320 A( I, KU+I ) = -WA [all …]
|
/dports/math/cblas/lapack-3.10.0/TESTING/MATGEN/ |
H A D | dlagge.f | 195 WB = WORK( 1 ) + WA 198 TAU = WB / WA 218 WB = WORK( 1 ) + WA 221 TAU = WB / WA 253 TAU = WB / WA 263 A( KL+I, I ) = -WA 278 TAU = WB / WA 288 A( I, KU+I ) = -WA 307 TAU = WB / WA 317 A( I, KU+I ) = -WA [all …]
|
H A D | slagge.f | 195 WB = WORK( 1 ) + WA 198 TAU = WB / WA 218 WB = WORK( 1 ) + WA 221 TAU = WB / WA 253 TAU = WB / WA 263 A( KL+I, I ) = -WA 278 TAU = WB / WA 288 A( I, KU+I ) = -WA 307 TAU = WB / WA 317 A( I, KU+I ) = -WA [all …]
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/MATGEN/ |
H A D | dlagge.f | 198 WB = WORK( 1 ) + WA 201 TAU = WB / WA 221 WB = WORK( 1 ) + WA 224 TAU = WB / WA 256 TAU = WB / WA 266 A( KL+I, I ) = -WA 281 TAU = WB / WA 291 A( I, KU+I ) = -WA 310 TAU = WB / WA 320 A( I, KU+I ) = -WA [all …]
|
H A D | slagge.f | 198 WB = WORK( 1 ) + WA 201 TAU = WB / WA 221 WB = WORK( 1 ) + WA 224 TAU = WB / WA 256 TAU = WB / WA 266 A( KL+I, I ) = -WA 281 TAU = WB / WA 291 A( I, KU+I ) = -WA 310 TAU = WB / WA 320 A( I, KU+I ) = -WA [all …]
|
/dports/emulators/simh/simh-3.9.0_5/VAX/ |
H A D | vax_cpu1.c | 255 Write (ba + 4, (wd1 & ~mask) | (val & mask), L_LONG, WA); in op_insv() 259 Write (ba, (wd & ~mask) | (val & mask), L_LONG, WA); in op_insv() 288 Write (tsp, R[n], L_LONG, WA); \ 579 Read (opnd[2], L_LONG, WA); in op_remque() 586 else Write (opnd[2], e, L_LONG, WA); in op_remque() 637 Write (h, a - h, L_LONG, WA); in op_insqhi() 668 Write (h, a, L_LONG, WA); in op_insqti() 737 else Write (opnd[2], a, L_LONG, WA); in op_remqhi() 788 else Write (opnd[2], c, L_LONG, WA); in op_remqti() 1185 if (Test (p2 = tsp - 12, WA, &sta) < 0) { in op_chm() [all …]
|
/dports/science/dcl/dcl-5.4.8/src/math2/shtlib/ |
H A D | shlbwj.f | 12 REAL WS,WA local 18 CALL SHLBWL(MM,M,SD,WS,WA,PMJ) 24 WA=WA*YC(JD) 28 WA=0 31 WA=WA/YC(JD) 36 WMJ=WS+WA 38 WMJ=WS-WA
|
/dports/math/slatec/ |
H A D | snls1q.f | 33 REAL FJAC(10,2), FJROW(2), FJTJ(3), FVEC(10), WA(40), X(2) 67 CALL SNLS1E(FCN2,IOPT,M,N,X,FVEC,TOL,NPRINT,INFO,IW,WA,LWA) 96 CALL SCOV(FCN2,IOPT,M,N,X,FVEC,FJAC,LDFJAC,INFO,WA(1),WA(N+1), 97 + WA(2*N+1),WA(3*N+1)) 139 CALL FDJAC3(FCN1,M,N,X,FVEC,FJAC,LDFJAC,IFLAG,ZERO,WA) 151 CALL SCOV(FCN1,IOPT,M,N,X,FVEC,FJAC,LDFJAC,INFO,WA(1),WA(N+1), 152 + WA(2*N+1),WA(3*N+1)) 207 CALL SCOV(FCN3,IOPT,M,N,X,FVEC,FJAC,LDFJAC,INFO,WA(1),WA(N+1), 208 + WA(2*N+1),WA(3*N+1)) 248 CALL SCOV(FCN2,IOPT,M,N,X,FVEC,FJAC,LDFJAC,INFO,WA(1),WA(N+1), [all …]
|
H A D | dnls1q.f | 68 CALL DNLS1E(DFCN2,IOPT,M,N,X,FVEC,TOL,NPRINT,INFO,IW,WA,LWA) 97 CALL DCOV(DFCN2,IOPT,M,N,X,FVEC,FJAC,LDFJAC,INFO,WA(1),WA(N+1), 98 + WA(2*N+1),WA(3*N+1)) 123 CALL DNLS1E(DFCN1,IOPT,M,N,X,FVEC,TOL,NPRINT,INFO,IW,WA,LWA) 140 CALL DFDJC3(DFCN1,M,N,X,FVEC,FJAC,LDFJAC,IFLAG,ZERO,WA) 152 CALL DCOV(DFCN1,IOPT,M,N,X,FVEC,FJAC,LDFJAC,INFO,WA(1),WA(N+1), 153 + WA(2*N+1),WA(3*N+1)) 208 CALL DCOV(DFCN3,IOPT,M,N,X,FVEC,FJAC,LDFJAC,INFO,WA(1),WA(N+1), 209 + WA(2*N+1),WA(3*N+1)) 249 CALL DCOV(DFCN2,IOPT,M,N,X,FVEC,FJAC,LDFJAC,INFO,WA(1),WA(N+1), [all …]
|
/dports/biology/canu/canu-2.2/src/overlapInCore/ |
H A D | overlapInCore-Output.C | 29 Work_Area_t *WA) { in Output_Overlap() argument 31 ovOverlap *ovs = WA->overlaps + WA->overlapsLen++; in Output_Overlap() 173 WA->Total_Overlaps ++; in Output_Overlap() 176 WA->Contained_Overlap_Ct ++; in Output_Overlap() 178 WA->Dovetail_Overlap_Ct ++; in Output_Overlap() 183 if (WA->overlapsLen >= WA->overlapsMax) in Output_Overlap() 189 WA->overlapsLen = 0; in Output_Overlap() 202 Work_Area_t *WA) { in Output_Partial_Overlap() argument 206 ovOverlap *ovl = WA->overlaps + WA->overlapsLen++; in Output_Partial_Overlap() 257 if (WA->overlapsLen >= WA->overlapsMax) { in Output_Partial_Overlap() [all …]
|
/dports/biology/star/STAR-2.7.9a/source/ |
H A D | ReadAlign_stitchPieces.cpp | 211 uint L1=WA[iW][ia][WA_Length]; in stitchPieces() 212 uint r1=WA[iW][ia][WA_rStart]; in stitchPieces() 234 if ( WA[iW][ia][WA_rStart] == (WA[iW][ia1][WA_rStart]+WA[iW][ia1][WA_Length]) \ in stitchPieces() 235 && WA[iW][ia][WA_gStart] == (WA[iW][ia1][WA_gStart]+WA[iW][ia1][WA_Length]) \ in stitchPieces() 236 && WA[iW][ia][WA_iFrag] == WA[iW][ia1][WA_iFrag] ) {//merge in stitchPieces() 238 WA[iW][ia1][WA_Length] += WA[iW][ia][WA_Length]; in stitchPieces() 239 WA[iW][ia1][WA_Anchor]=max(WA[iW][ia1][WA_Anchor],WA[iW][ia][WA_Anchor]); in stitchPieces() 246 WA[iW][ia1][ii]=WA[iW][ia][ii]; in stitchPieces() 278 WA[ iW ][ WlastAnchor[iW] ][ WA_Anchor]=2; //mark the last anchor in stitchPieces() 308 (WA[iW][ia][WA_rStart]+WA[iW][ia][WA_Length]) > trA.exons[iex][EX_R] && \ in stitchPieces() [all …]
|
/dports/math/xlapack/lapack-3.10.0/TESTING/MATGEN/ |
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 …]
|
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 …]
|
/dports/math/blas/lapack-3.10.0/TESTING/MATGEN/ |
H A D | clagge.f | 138 COMPLEX TAU, WA, WB local 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 …]
|