/dports/math/PDL/PDL-2.019/Lib/Slatec/slatec/ |
H A D | ezfft1.f | 2 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 D | ezfft1.f | 2 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 D | passb.f | 2 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 D | passf.f | 2 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 D | ezfft1.f | 2 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 D | snls1e.f | 3 + 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 D | dnls1e.f | 3 + 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 D | qrsolv.f | 2 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 D | dqrslv.f | 2 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 D | passb.f | 2 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 D | passf.f | 2 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 D | ezfft1.f | 1 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 D | ex-RingWeyl3.C | 29 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 D | ex-RingWeyl1.C | 33 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 D | ex-RingWeyl4.C | 40 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 D | snls1e.f | 1 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 D | qrsolv.f | 1 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 D | ex-RingWeyl3.C | 29 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 D | ex-RingWeyl1.C | 33 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 D | ex-RingWeyl4.C | 40 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 D | Jit.cpp | 156 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 D | PB_CptrmmAB.c | 356 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 D | overlapInCore.C | 116 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 D | passb.f | 1 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 D | passf.f | 1 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)
|