Home
last modified time | relevance | path

Searched refs:WA (Results 51 – 75 of 5290) sorted by relevance

12345678910>>...212

/dports/math/lapack/lapack-3.10.0/TESTING/MATGEN/
H A Dslagge.f195 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 Ddlagge.f126 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 Dslagge.f126 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 Dslagge.f194 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 Ddlagge.f194 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 Dslagge.f194 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 Ddlagge.f194 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 Ddlagge.f194 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 Dslagge.f194 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 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/openblas/OpenBLAS-0.3.18/lapack-netlib/TESTING/MATGEN/
H A Dslagge.f198 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 Ddlagge.f198 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 Ddlagge.f195 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 Dslagge.f195 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 Ddlagge.f198 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 Dslagge.f198 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 Dvax_cpu1.c255 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 Dshlbwj.f12 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 Dsnls1q.f33 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 Ddnls1q.f68 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 DoverlapInCore-Output.C29 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 DReadAlign_stitchPieces.cpp211 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 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 …]
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 …]
/dports/math/blas/lapack-3.10.0/TESTING/MATGEN/
H A Dclagge.f138 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 …]

12345678910>>...212