/dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/dfftpack/ |
H A D | passb.f | 1 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 D | passf.f | 1 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 D | snls1e.f | 109 * 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 D | qmd_analysis.f90 | 692 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 D | qmd_analysis.f90 | 692 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 D | PB_CptrsmAB.c | 352 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 D | dfft.f | 912 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 D | ex-RingWeyl5.C | 42 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 D | ex-RingWeyl2.C | 32 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 D | ex-RingWeyl5.C | 42 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 D | ex-RingWeyl2.C | 32 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 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"] 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 D | cfft.f | 117 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 D | drfftf.f | 329 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 D | qform.f | 1 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 D | qform.f | 2 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 D | dqform.f | 2 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 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"] 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 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"] 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 D | test_solver.py | 91 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 D | stitchWindowAligns.cpp | 9 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 D | overlapPair.C | 330 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 D | type.c | 160 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 D | sint.F | 163 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 D | sint.F | 163 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 …]
|