Home
last modified time | relevance | path

Searched refs:WA (Results 101 – 125 of 6314) sorted by relevance

12345678910>>...253

/dports/math/PDL/PDL-2.019/Lib/Slatec/slatec/
H A Dezfft1.f2 SUBROUTINE EZFFT1 (N, WA, IFAC) argument
27 DIMENSION WA(*), IFAC(*), NTRYH(4)
76 WA(I-1) = CH1
77 WA(I) = SH1
81 WA(I-1) = CH1*WA(I-3)-SH1*WA(I-2)
82 WA(I) = CH1*WA(I-2)+SH1*WA(I-3)
/dports/science/dcl/dcl-5.4.8/src/math2/fftlib/
H A Dezfft1.f2 SUBROUTINE EZFFT1 (N,WA,IFAC) argument
3 DIMENSION WA(*) ,IFAC(*) ,NTRYH(4)
51 WA(I-1) = CH1
52 WA(I) = SH1
56 WA(I-1) = CH1*WA(I-3)-SH1*WA(I-2)
57 WA(I) = CH1*WA(I-2)+SH1*WA(I-3)
H A Dpassb.f2 SUBROUTINE PASSB (NAC,IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA) argument
4 1 C1(IDO,L1,IP) ,WA(*) ,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.f2 SUBROUTINE PASSF (NAC,IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA) argument
4 1 C1(IDO,L1,IP) ,WA(*) ,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/slatec/src/
H A Dezfft1.f2 SUBROUTINE EZFFT1 (N, WA, IFAC) argument
27 DIMENSION WA(*), IFAC(*), NTRYH(4)
76 WA(I-1) = CH1
77 WA(I) = SH1
81 WA(I-1) = CH1*WA(I-3)-SH1*WA(I-2)
82 WA(I) = CH1*WA(I-2)+SH1*WA(I-3)
H A Dsnls1e.f3 + IW, WA, LWA)
507 REAL X(*),FVEC(*),WA(*)
533 CALL SNLS1(FCN,IOPT,M,N,X,FVEC,WA(INDEX+1),M,FTOL,XTOL,GTOL,
534 1 MAXFEV,EPSFCN,WA(1),MODE,FACTOR,NPRINT,INFO,NFEV,NJEV,
535 2 IW,WA(N+1),WA(2*N+1),WA(3*N+1),WA(4*N+1),WA(5*N+1))
H A Ddnls1e.f3 + IW, WA, LWA)
499 DOUBLE PRECISION X(*),FVEC(*),WA(*)
525 CALL DNLS1(FCN,IOPT,M,N,X,FVEC,WA(INDEX+1),M,FTOL,XTOL,GTOL,
526 1 MAXFEV,EPSFCN,WA(1),MODE,FACTOR,NPRINT,INFO,NFEV,NJEV,
527 2 IW,WA(N+1),WA(2*N+1),WA(3*N+1),WA(4*N+1),WA(5*N+1))
H A Dqrsolv.f2 SUBROUTINE QRSOLV (N, R, LDR, IPVT, DIAG, QTB, X, SIGMA, WA) argument
88 REAL R(LDR,*),DIAG(*),QTB(*),X(*),SIGMA(*),WA(*)
99 WA(J) = QTB(J)
142 TEMP = COS*WA(K) + SIN*QTBPJ
143 QTBPJ = -SIN*WA(K) + COS*QTBPJ
144 WA(K) = TEMP
172 IF (NSING .LT. N) WA(J) = ZERO
181 SUM = SUM + R(I,J)*WA(I)
184 WA(J) = (WA(J) - SUM)/SIGMA(J)
192 X(L) = WA(J)
H A Ddqrslv.f2 SUBROUTINE DQRSLV (N, R, LDR, IPVT, DIAG, QTB, X, SIGMA, WA) argument
91 DOUBLE PRECISION R(LDR,*),DIAG(*),QTB(*),X(*),SIGMA(*),WA(*)
102 WA(J) = QTB(J)
145 TEMP = COS*WA(K) + SIN*QTBPJ
146 QTBPJ = -SIN*WA(K) + COS*QTBPJ
147 WA(K) = TEMP
175 IF (NSING .LT. N) WA(J) = ZERO
184 SUM = SUM + R(I,J)*WA(I)
187 WA(J) = (WA(J) - SUM)/SIGMA(J)
195 X(L) = WA(J)
H A Dpassb.f2 SUBROUTINE PASSB (NAC, IDO, IP, L1, IDL1, CC, C1, C2, CH, CH2, WA) argument
22 DIMENSION CH(IDO,L1,*), CC(IDO,IP,*), C1(IDO,L1,*), WA(*),
71 C2(IK,L) = CH2(IK,1)+WA(IDL-1)*CH2(IK,2)
72 C2(IK,LC) = WA(IDL)*CH2(IK,IP)
80 WAR = WA(IDLJ-1)
81 WAI = WA(IDLJ)
126 C1(I-1,K,J) = WA(IDIJ-1)*CH(I-1,K,J)-WA(IDIJ)*CH(I,K,J)
127 C1(I,K,J) = WA(IDIJ-1)*CH(I,K,J)+WA(IDIJ)*CH(I-1,K,J)
140 C1(I-1,K,J) = WA(IDIJ-1)*CH(I-1,K,J)-WA(IDIJ)*CH(I,K,J)
141 C1(I,K,J) = WA(IDIJ-1)*CH(I,K,J)+WA(IDIJ)*CH(I-1,K,J)
H A Dpassf.f2 SUBROUTINE PASSF (NAC, IDO, IP, L1, IDL1, CC, C1, C2, CH, CH2, WA) argument
22 DIMENSION CH(IDO,L1,*), CC(IDO,IP,*), C1(IDO,L1,*), WA(*),
71 C2(IK,L) = CH2(IK,1)+WA(IDL-1)*CH2(IK,2)
72 C2(IK,LC) = -WA(IDL)*CH2(IK,IP)
80 WAR = WA(IDLJ-1)
81 WAI = WA(IDLJ)
127 C1(I-1,K,J) = WA(IDIJ-1)*CH(I-1,K,J)+WA(IDIJ)*CH(I,K,J)
128 C1(I,K,J) = WA(IDIJ-1)*CH(I,K,J)-WA(IDIJ)*CH(I-1,K,J)
141 C1(I-1,K,J) = WA(IDIJ-1)*CH(I-1,K,J)+WA(IDIJ)*CH(I,K,J)
142 C1(I,K,J) = WA(IDIJ-1)*CH(I,K,J)-WA(IDIJ)*CH(I-1,K,J)
/dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/dfftpack/
H A Dezfft1.f1 SUBROUTINE EZFFT1 (N,WA,IFAC) argument
3 DIMENSION WA(*) ,IFAC(*) ,NTRYH(4)
50 WA(I-1) = CH1
51 WA(I) = SH1
55 WA(I-1) = CH1*WA(I-3)-SH1*WA(I-2)
56 WA(I) = CH1*WA(I-2)+SH1*WA(I-3)
/dports/math/cocoalib/CoCoALib-0.99712/examples/
H A Dex-RingWeyl3.C29 SparsePolyRing WA = NewWeylAlgebra(RingQQ(), names, ElimIndets); in program() local
31 RingElem x(WA, symbol("x")); in program()
32 RingElem y(WA, symbol("y")); in program()
33 RingElem z(WA, symbol("z")); in program()
34 RingElem u(WA, symbol("u")); in program()
36 RingElem dx(WA, symbol("dx")); in program()
37 RingElem dy(WA, symbol("dy")); in program()
38 RingElem dz(WA, symbol("dz")); in program()
39 RingElem du(WA, symbol("du")); in program()
H A Dex-RingWeyl1.C33 RingElem u = indet(WA, 0); in program()
34 RingElem v = indet(WA, 1); in program()
35 RingElem x = indet(WA, 2); in program()
36 RingElem y = indet(WA, 3); in program()
37 RingElem z = indet(WA, 4); in program()
38 RingElem t = indet(WA, 5); in program()
40 RingElem dx = RingElem(WA, "dx"); in program()
41 RingElem dy = RingElem(WA, "dy"); in program()
42 RingElem dz = RingElem(WA, "dz"); in program()
43 RingElem dt = RingElem(WA, "dt"); in program()
[all …]
H A Dex-RingWeyl4.C40 SparsePolyRing WA = NewWeylAlgebra(RingQQ(), names, ElimIndets); in program() local
42 RingElem u(WA, symbol("u")); in program()
43 RingElem v(WA, symbol("v")); in program()
44 RingElem x(WA, symbol("x")); in program()
45 RingElem y(WA, symbol("y")); in program()
46 RingElem t(WA, symbol("t")); in program()
47 RingElem dx(WA, symbol("dx")); in program()
48 RingElem dy(WA, symbol("dy")); in program()
49 RingElem dt(WA, symbol("dt")); in program()
/dports/math/cmlib/cmlib-3.0_8/src/snls1e/
H A Dsnls1e.f1 SUBROUTINE SNLS1E(FCN,IOPT,M,N,X,FVEC,TOL,NPRINT,INFO,IW,WA,LWA) argument
501 REAL X(N),FVEC(M),WA(LWA)
526 CALL SNLS1(FCN,IOPT,M,N,X,FVEC,WA(INDEX+1),M,FTOL,XTOL,GTOL,
527 1 MAXFEV,EPSFCN,WA(1),MODE,FACTOR,NPRINT,INFO,NFEV,NJEV,
528 2 IW,WA(N+1),WA(2*N+1),WA(3*N+1),WA(4*N+1),WA(5*N+1))
H A Dqrsolv.f1 SUBROUTINE QRSOLV(N,R,LDR,IPVT,DIAG,QTB,X,SIGMA,WA) argument
84 REAL R(LDR,N),DIAG(N),QTB(N),X(N),SIGMA(N),WA(N)
94 WA(J) = QTB(J)
137 TEMP = COS*WA(K) + SIN*QTBPJ
138 QTBPJ = -SIN*WA(K) + COS*QTBPJ
139 WA(K) = TEMP
167 IF (NSING .LT. N) WA(J) = ZERO
176 SUM = SUM + R(I,J)*WA(I)
179 WA(J) = (WA(J) - SUM)/SIGMA(J)
187 X(L) = WA(J)
/dports/math/giacxcas/CoCoALib-0.99700/examples/
H A Dex-RingWeyl3.C29 SparsePolyRing WA = NewWeylAlgebra(RingQQ(), names, ElimIndets); in program() local
31 RingElem x(WA, symbol("x")); in program()
32 RingElem y(WA, symbol("y")); in program()
33 RingElem z(WA, symbol("z")); in program()
34 RingElem u(WA, symbol("u")); in program()
36 RingElem dx(WA, symbol("dx")); in program()
37 RingElem dy(WA, symbol("dy")); in program()
38 RingElem dz(WA, symbol("dz")); in program()
39 RingElem du(WA, symbol("du")); in program()
H A Dex-RingWeyl1.C33 RingElem u = indet(WA, 0); in program()
34 RingElem v = indet(WA, 1); in program()
35 RingElem x = indet(WA, 2); in program()
36 RingElem y = indet(WA, 3); in program()
37 RingElem z = indet(WA, 4); in program()
38 RingElem t = indet(WA, 5); in program()
40 RingElem dx = RingElem(WA, "dx"); in program()
41 RingElem dy = RingElem(WA, "dy"); in program()
42 RingElem dz = RingElem(WA, "dz"); in program()
43 RingElem dt = RingElem(WA, "dt"); in program()
[all …]
H A Dex-RingWeyl4.C40 SparsePolyRing WA = NewWeylAlgebra(RingQQ(), names, ElimIndets); in program() local
42 RingElem u(WA, symbol("u")); in program()
43 RingElem v(WA, symbol("v")); in program()
44 RingElem x(WA, symbol("x")); in program()
45 RingElem y(WA, symbol("y")); in program()
46 RingElem t(WA, symbol("t")); in program()
47 RingElem dx(WA, symbol("dx")); in program()
48 RingElem dy(WA, symbol("dy")); in program()
49 RingElem dt(WA, symbol("dt")); in program()
/dports/emulators/dolphin-emu/dolphin-3152428/Source/Core/Core/PowerPC/JitArm64/
H A DJit.cpp156 ADD(WA, WA, 4); in FallBackToInterpreter()
158 gpr.Unlock(WA); in FallBackToInterpreter()
173 gpr.Unlock(WA); in FallBackToInterpreter()
182 CMP(WB, WA); in FallBackToInterpreter()
187 gpr.Unlock(WA); in FallBackToInterpreter()
208 gpr.Unlock(WA); in FallBackToInterpreter()
224 WriteExit(WA); in HLEFunction()
225 gpr.Unlock(WA); in HLEFunction()
739 TST(WA, 23, 2); in DoJit()
741 gpr.Unlock(WA); in DoJit()
[all …]
/dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/PTOOLS/
H A DPB_CptrmmAB.c356 if( WAfr ) free( WA );
416 if( WAfr ) free( WA );
479 if( WAfr ) free( WA );
537 if( WAfr ) free( WA );
608 if( WAfr ) free( WA );
668 if( WAfr ) free( WA );
731 if( WAfr ) free( WA );
789 if( WAfr ) free( WA );
850 if( WAfr ) free( WA );
908 if( WAfr ) free( WA );
[all …]
/dports/biology/canu/canu-2.2/src/overlapInCore/
H A DoverlapInCore.C116 WA->String_Olap_Space = new String_Olap_t [WA->String_Olap_Size]; in Initialize_Work_Area()
119 WA->Match_Node_Space = new Match_Node_t [WA->Match_Node_Size]; in Initialize_Work_Area()
124 WA->status = 0; in Initialize_Work_Area()
125 WA->thread_id = id; in Initialize_Work_Area()
127 WA->readStore = readStore; in Initialize_Work_Area()
128 WA->readCache = readCache; in Initialize_Work_Area()
130 WA->overlapsLen = 0; in Initialize_Work_Area()
132 WA->overlaps = new ovOverlap [WA->overlapsMax]; in Initialize_Work_Area()
147 delete WA->editDist; in Delete_Work_Area()
150 delete [] WA->overlaps; in Delete_Work_Area()
[all …]
/dports/math/cmlib/cmlib-3.0_8/src/fftpkg/
H A Dpassb.f1 SUBROUTINE PASSB(NAC,IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA) argument
7 1 C1(IDO,L1,IP) ,WA(1) ,C2(IDL1,IP),
57 C2(IK,L) = CH2(IK,1)+WA(IDL-1)*CH2(IK,2)
58 C2(IK,LC) = WA(IDL)*CH2(IK,IP)
66 WAR = WA(IDLJ-1)
67 WAI = WA(IDLJ)
112 C1(I-1,K,J) = WA(IDIJ-1)*CH(I-1,K,J)-WA(IDIJ)*CH(I,K,J)
113 C1(I,K,J) = WA(IDIJ-1)*CH(I,K,J)+WA(IDIJ)*CH(I-1,K,J)
126 C1(I-1,K,J) = WA(IDIJ-1)*CH(I-1,K,J)-WA(IDIJ)*CH(I,K,J)
127 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
10 1 C1(IDO,L1,IP) ,WA(*) ,C2(IDL1,IP),
60 C2(IK,L) = CH2(IK,1)+WA(IDL-1)*CH2(IK,2)
61 C2(IK,LC) = -WA(IDL)*CH2(IK,IP)
69 WAR = WA(IDLJ-1)
70 WAI = WA(IDLJ)
116 C1(I-1,K,J) = WA(IDIJ-1)*CH(I-1,K,J)+WA(IDIJ)*CH(I,K,J)
117 C1(I,K,J) = WA(IDIJ-1)*CH(I,K,J)-WA(IDIJ)*CH(I-1,K,J)
130 C1(I-1,K,J) = WA(IDIJ-1)*CH(I-1,K,J)+WA(IDIJ)*CH(I,K,J)
131 C1(I,K,J) = WA(IDIJ-1)*CH(I,K,J)-WA(IDIJ)*CH(I-1,K,J)

12345678910>>...253