Home
last modified time | relevance | path

Searched refs:WA (Results 126 – 150 of 6442) sorted by relevance

12345678910>>...258

/dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/dfftpack/
H A Dpassb.f1 SUBROUTINE PASSB (NAC,IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA) argument
4 1 C1(IDO,L1,IP) ,WA(1) ,C2(IDL1,IP),
48 C2(IK,L) = CH2(IK,1)+WA(IDL-1)*CH2(IK,2)
49 C2(IK,LC) = WA(IDL)*CH2(IK,IP)
57 WAR = WA(IDLJ-1)
58 WAI = WA(IDLJ)
98 C1(I-1,K,J) = WA(IDIJ-1)*CH(I-1,K,J)-WA(IDIJ)*CH(I,K,J)
99 C1(I,K,J) = WA(IDIJ-1)*CH(I,K,J)+WA(IDIJ)*CH(I-1,K,J)
111 C1(I-1,K,J) = WA(IDIJ-1)*CH(I-1,K,J)-WA(IDIJ)*CH(I,K,J)
112 C1(I,K,J) = WA(IDIJ-1)*CH(I,K,J)+WA(IDIJ)*CH(I-1,K,J)
H A Dpassf.f1 SUBROUTINE PASSF (NAC,IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA) argument
4 1 C1(IDO,L1,IP) ,WA(1) ,C2(IDL1,IP),
48 C2(IK,L) = CH2(IK,1)+WA(IDL-1)*CH2(IK,2)
49 C2(IK,LC) = -WA(IDL)*CH2(IK,IP)
57 WAR = WA(IDLJ-1)
58 WAI = WA(IDLJ)
98 C1(I-1,K,J) = WA(IDIJ-1)*CH(I-1,K,J)+WA(IDIJ)*CH(I,K,J)
99 C1(I,K,J) = WA(IDIJ-1)*CH(I,K,J)-WA(IDIJ)*CH(I-1,K,J)
111 C1(I-1,K,J) = WA(IDIJ-1)*CH(I-1,K,J)+WA(IDIJ)*CH(I,K,J)
112 C1(I,K,J) = WA(IDIJ-1)*CH(I,K,J)-WA(IDIJ)*CH(I-1,K,J)
/dports/math/cmlib/cmlib-3.0_8/test/
H A Dsnls1e.f109 * IW,WA,LWA)
135 *WA(1),WA(N+1),WA(2*N+1),WA(3*N+1))
158 * IW,WA,LWA)
173 CALL FDJAC3(FCN1,M,N,X,FVEC,FJAC,LDFJAC,IFLAG,ZERO,WA)
184 *WA(1),WA(N+1),WA(2*N+1),WA(3*N+1))
208 * IW,WA,LWA)
234 *WA(1),WA(N+1),WA(2*N+1),WA(3*N+1))
257 * IW,WA,LWA)
266 *WA(1),WA(N+1),WA(2*N+1),WA(3*N+1))
287 DIMENSION X(2),FVEC(2),FJAC(2,2),WA(19),ITEST(38)
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/contrib/qmd_tools/
H A Dqmd_analysis.f90692 WA(I1-1) = WA(I-1)
693 WA(I1) = WA(I)
717 CALL PASSF4 (IDOT,L1,C,CH,WA(IW),WA(IX2),WA(IX3))
719 101 CALL PASSF4 (IDOT,L1,CH,C,WA(IW),WA(IX2),WA(IX3))
732 CALL PASSF3 (IDOT,L1,C,CH,WA(IW),WA(IX2))
742 CALL PASSF5 (IDOT,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
744 110 CALL PASSF5 (IDOT,L1,CH,C,WA(IW),WA(IX2),WA(IX3),WA(IX4))
780 CALL PASSB4 (IDOT,L1,C,CH,WA(IW),WA(IX2),WA(IX3))
782 101 CALL PASSB4 (IDOT,L1,CH,C,WA(IW),WA(IX2),WA(IX3))
805 CALL PASSB5 (IDOT,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/contrib/qmd_tools/
H A Dqmd_analysis.f90692 WA(I1-1) = WA(I-1)
693 WA(I1) = WA(I)
717 CALL PASSF4 (IDOT,L1,C,CH,WA(IW),WA(IX2),WA(IX3))
719 101 CALL PASSF4 (IDOT,L1,CH,C,WA(IW),WA(IX2),WA(IX3))
732 CALL PASSF3 (IDOT,L1,C,CH,WA(IW),WA(IX2))
742 CALL PASSF5 (IDOT,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
744 110 CALL PASSF5 (IDOT,L1,CH,C,WA(IW),WA(IX2),WA(IX3),WA(IX4))
780 CALL PASSB4 (IDOT,L1,C,CH,WA(IW),WA(IX2),WA(IX3))
782 101 CALL PASSB4 (IDOT,L1,CH,C,WA(IW),WA(IX2),WA(IX3))
805 CALL PASSB5 (IDOT,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
[all …]
/dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/PTOOLS/
H A DPB_CptrsmAB.c352 if( WAfr ) free( WA );
413 if( WAfr ) free( WA );
477 if( WAfr ) free( WA );
529 if( WAfr ) free( WA );
598 if( WAfr ) free( WA );
664 if( WAfr ) free( WA );
732 if( WAfr ) free( WA );
826 if( WAfr ) free( WA );
904 if( WAfr ) free( WA );
998 if( WAfr ) free( WA );
[all …]
/dports/science/py-scipy/scipy-1.7.1/scipy/linalg/src/id_dist/src/
H A Ddfft.f912 CALL DPASSB5 (IDOT,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
914 110 CALL DPASSB5 (IDOT,L1,CH,C,WA(IW),WA(IX2),WA(IX3),WA(IX4))
985 CALL DPASSF5 (IDOT,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
987 110 CALL DPASSF5 (IDOT,L1,CH,C,WA(IW),WA(IX2),WA(IX3),WA(IX4))
1073 WA(I1) = WA(I)
1256 WA(I-1) = CH1*WA(I-3)-SH1*WA(I-2)
1257 WA(I) = CH1*WA(I-2)+SH1*WA(I-3)
2740 CALL DRADB5 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
2742 110 CALL DRADB5 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3),WA(IX4))
2810 CALL DRADF5 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
[all …]
/dports/math/cocoalib/CoCoALib-0.99712/examples/
H A Dex-RingWeyl5.C42 SparsePolyRing WA = NewWeylAlgebra(RingQQ(), names, ElimIndets); in program() local
44 RingElem x(WA, symbol("x")); in program()
45 RingElem y(WA, symbol("y")); in program()
46 RingElem u(WA, symbol("u")); in program()
47 RingElem t(WA, symbol("t")); in program()
49 RingElem dx(WA, symbol("dx")); in program()
50 RingElem dy(WA, symbol("dy")); in program()
51 RingElem dt(WA, symbol("dt")); in program()
65 test(ideal(WA, g)); in program()
76 test(ideal(WA, f)); in program()
H A Dex-RingWeyl2.C32 SparsePolyRing WA = NewWeylAlgebra(RingQQ(), names, ElimIndets); in program() local
34 RingElem x(WA, symbol("x")); in program()
35 RingElem y(WA, symbol("y")); in program()
36 RingElem u(WA, symbol("u")); in program()
37 RingElem v(WA, symbol("v")); in program()
39 RingElem dx(WA, symbol("dx")); in program()
40 RingElem dy(WA, symbol("dy")); in program()
/dports/math/giacxcas/CoCoALib-0.99700/examples/
H A Dex-RingWeyl5.C42 SparsePolyRing WA = NewWeylAlgebra(RingQQ(), names, ElimIndets); in program() local
44 RingElem x(WA, symbol("x")); in program()
45 RingElem y(WA, symbol("y")); in program()
46 RingElem u(WA, symbol("u")); in program()
47 RingElem t(WA, symbol("t")); in program()
49 RingElem dx(WA, symbol("dx")); in program()
50 RingElem dy(WA, symbol("dy")); in program()
51 RingElem dt(WA, symbol("dt")); in program()
65 test(ideal(WA, g)); in program()
76 test(ideal(WA, f)); in program()
H A Dex-RingWeyl2.C32 SparsePolyRing WA = NewWeylAlgebra(RingQQ(), names, ElimIndets); in program() local
34 RingElem x(WA, symbol("x")); in program()
35 RingElem y(WA, symbol("y")); in program()
36 RingElem u(WA, symbol("u")); in program()
37 RingElem v(WA, symbol("v")); in program()
39 RingElem dx(WA, symbol("dx")); in program()
40 RingElem dy(WA, symbol("dy")); in program()
/dports/www/firefox/firefox-99.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"]
102 ["data:x;base64;x,WA"]
108 ["data:x/x;base64;charset=x,WA"]
111 ["data:;base64;,WA"]
140 ["data:x;base64;x,WA"]
[all …]
/dports/math/algae/algae-4.3.6/src/
H A Dcfft.f117 WA(I1-1) = WA(I-1)
118 WA(I1) = WA(I)
216 CALL PASSF4 (IDOT,L1,C,CH,WA(IW),WA(IX2),WA(IX3))
218 101 CALL PASSF4 (IDOT,L1,CH,C,WA(IW),WA(IX2),WA(IX3))
231 CALL PASSF3 (IDOT,L1,C,CH,WA(IW),WA(IX2))
241 CALL PASSF5 (IDOT,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
243 110 CALL PASSF5 (IDOT,L1,CH,C,WA(IW),WA(IX2),WA(IX3),WA(IX4))
821 CALL PASSB4 (IDOT,L1,C,CH,WA(IW),WA(IX2),WA(IX3))
823 101 CALL PASSB4 (IDOT,L1,CH,C,WA(IW),WA(IX2),WA(IX3))
846 CALL PASSB5 (IDOT,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
[all …]
/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/
H A Ddrfftf.f329 CH(I-1,K,J) = WA(IDIJ-1)*C1(I-1,K,J)+WA(IDIJ)*C1(I,K,J)
330 CH(I,K,J) = WA(IDIJ-1)*C1(I,K,J)-WA(IDIJ)*C1(I-1,K,J)
342 CH(I-1,K,J) = WA(IDIJ-1)*C1(I-1,K,J)+WA(IDIJ)*C1(I,K,J)
343 CH(I,K,J) = WA(IDIJ-1)*C1(I,K,J)-WA(IDIJ)*C1(I-1,K,J)
492 CALL RADF4 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3))
494 101 CALL RADF4 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3))
505 CALL RADF3 (IDO,L1,C,CH,WA(IW),WA(IX2))
507 105 CALL RADF3 (IDO,L1,CH,C,WA(IW),WA(IX2))
514 CALL RADF5 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
516 107 CALL RADF5 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3),WA(IX4))
[all …]
/dports/math/cmlib/cmlib-3.0_8/src/snls1e/
H A Dqform.f1 SUBROUTINE QFORM(M,N,Q,LDQ,WA) argument
43 REAL Q(LDQ,M),WA(M)
75 WA(I) = Q(I,K)
79 IF (WA(K) .EQ. ZERO) GO TO 110
83 SUM = SUM + Q(I,J)*WA(I)
85 TEMP = SUM/WA(K)
87 Q(I,J) = Q(I,J) - TEMP*WA(I)
/dports/math/slatec/src/
H A Dqform.f2 SUBROUTINE QFORM (M, N, Q, LDQ, WA) argument
48 REAL Q(LDQ,*),WA(*)
81 WA(I) = Q(I,K)
85 IF (WA(K) .EQ. ZERO) GO TO 110
89 SUM = SUM + Q(I,J)*WA(I)
91 TEMP = SUM/WA(K)
93 Q(I,J) = Q(I,J) - TEMP*WA(I)
H A Ddqform.f2 SUBROUTINE DQFORM (M, N, Q, LDQ, WA) argument
48 DOUBLE PRECISION ONE, Q(LDQ,*), SUM, TEMP, WA(*), ZERO
82 WA(I) = Q(I,K)
86 IF (WA(K) .EQ. ZERO) GO TO 110
90 SUM = SUM + Q(I,J)*WA(I)
92 TEMP = SUM/WA(K)
94 Q(I,J) = Q(I,J) - TEMP*WA(I)
/dports/www/firefox-esr/firefox-91.8.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"]
102 ["data:x;base64;x,WA"]
108 ["data:x/x;base64;charset=x,WA"]
111 ["data:;base64;,WA"]
142 ["data:x;base64;x,WA"]
[all …]
/dports/mail/thunderbird/thunderbird-91.8.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"]
102 ["data:x;base64;x,WA"]
108 ["data:x/x;base64;charset=x,WA"]
111 ["data:;base64;,WA"]
142 ["data:x;base64;x,WA"]
[all …]
/dports/math/py-python-picard/python-picard-0.7/picard/tests/
H A Dtest_solver.py91 WA = W.dot(K).dot(A)
92 WA = permute(WA) # Permute and scale
125 WA = W.dot(K).dot(A)
126 WA = permute(WA) # Permute and scale
148 WA = W.dot(K).dot(A)
149 WA = permute(WA) # Permute and scale
165 WA = W.dot(A)
166 WA = permute(WA)
167 assert_allclose(WA, np.eye(N), rtol=0, atol=0.2)
203 WA = W.dot(K).dot(A)
[all …]
/dports/biology/star/STAR-2.7.9a/source/
H A DstitchWindowAligns.cpp9 uint Lread, uiWA* WA, char* R, Genome &mapGen, \ in stitchWindowAligns() argument
315 …re=stitchAlignToTranscript(tR2, tG2, WA[iA][WA_rStart], WA[iA][WA_gStart], WA[iA][WA_Length], WA[i… in stitchWindowAligns()
319 trAi.exons[0][EX_R]=trAi.rStart=WA[iA][WA_rStart]; //transcript start/end in stitchWindowAligns()
320 trAi.exons[0][EX_G]=trAi.gStart=WA[iA][WA_gStart]; in stitchWindowAligns()
321 trAi.exons[0][EX_L]=WA[iA][WA_Length]; in stitchWindowAligns()
322 trAi.exons[0][EX_iFrag]=WA[iA][WA_iFrag]; in stitchWindowAligns()
323 trAi.exons[0][EX_sjA]=WA[iA][WA_sjA]; in stitchWindowAligns()
329 trAi.nMatch=WA[iA][WA_Length]; //# of matches in stitchWindowAligns()
339 if ( WA[iA][WA_Nrep]==1 ) trAi.nUnique++; //unique piece in stitchWindowAligns()
340 if ( WA[iA][WA_Anchor]>0 ) trAi.nAnchor++; //anchor piece piece in stitchWindowAligns()
[all …]
/dports/biology/canu/canu-2.2/src/overlapInCore/
H A DoverlapPair.C330 workSpace *WA = (workSpace *)ptr; in recomputeOverlaps() local
339 ovOverlap *ovl = WA->overlaps + oo; in recomputeOverlaps()
343 if (WA->invertOverlaps) { in recomputeOverlaps()
358 char *bRead = WA->readSeq; in recomputeOverlaps()
453 if (WA->partialOverlaps == true) { in recomputeOverlaps()
617 (eRate > WA->maxErate)) { in recomputeOverlaps()
790 WA[tt].threadID = tt; in main()
791 WA[tt].maxErate = maxErate; in main()
795 WA[tt].seqStore = seqStore; in main()
796 WA[tt].overlaps = NULL; in main()
[all …]
/dports/lang/elk/elk-3.99.8/lib/xlib/
H A Dtype.c160 XWindowAttributes WA; variable
162 { (char *)&WA.x, "x", T_INT,
164 { (char *)&WA.y, "y", T_INT,
166 { (char *)&WA.width, "width", T_INT,
168 { (char *)&WA.height, "height", T_INT,
170 { (char *)&WA.border_width, "border-width", T_INT,
172 { (char *)&WA.depth, "depth", T_INT,
179 { (char *)&WA.c_class, "class", T_SYM,
181 { (char *)&WA.class, "class", T_SYM,
184 { (char *)&WA.bit_gravity, "bit-gravity", T_SYM,
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/ddscf/fast/
H A Dsint.F163 SUBROUTINE RFFTF1(N,C,CH,WA,IFAC) argument
185 CALL RADF4(IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3))
187 101 CALL RADF4(IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3))
198 CALL RADF3(IDO,L1,C,CH,WA(IW),WA(IX2))
200 105 CALL RADF3(IDO,L1,CH,C,WA(IW),WA(IX2))
207 CALL RADF5(IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
209 107 CALL RADF5(IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3),WA(IX4))
240 SUBROUTINE RFFTI1(N,WA,IFAC) argument
248 DOUBLE PRECISION WA(*) local
311 WA(I-1) = COS(ARG)
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/ddscf/fast/
H A Dsint.F163 SUBROUTINE RFFTF1(N,C,CH,WA,IFAC) argument
185 CALL RADF4(IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3))
187 101 CALL RADF4(IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3))
198 CALL RADF3(IDO,L1,C,CH,WA(IW),WA(IX2))
200 105 CALL RADF3(IDO,L1,CH,C,WA(IW),WA(IX2))
207 CALL RADF5(IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
209 107 CALL RADF5(IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3),WA(IX4))
240 SUBROUTINE RFFTI1(N,WA,IFAC) argument
248 DOUBLE PRECISION WA(*) local
311 WA(I-1) = COS(ARG)
[all …]

12345678910>>...258