Home
last modified time | relevance | path

Searched refs:WA (Results 1 – 25 of 4394) sorted by relevance

12345678910>>...176

/dports/math/R-cran-quantreg/quantreg/src/
H A Drq0.f70 WA(M5,K) = WA(M5,K) + WA(I,K)
83 WA(I,J) = -WA(I,J)
93 WA(M3,J) = WA(M3,J) + AUX * SIGN(ONE,WA(I,N2))
131 WA(M1,J) = WA(M2,J) + WA(M3,J) * T
152 WA(I,IN)=-WA(I,IN)
185 WA(I,KR)=WA(I,IN)
197 WA(M1,J)=WA(M1,J)-D-D
198 WA(M2,J)=WA(M2,J)-D-D
215 WA(I,J)=WA(I,J)-D*WA(OUT,J)
225 WA(OUT,N2)=WA(M4,IN)
[all …]
H A Drq1.f72 WA(M5,K) = WA(M5,K) + WA(I,K)
85 WA(I,J) = -WA(I,J)
95 WA(M3,J) = WA(M3,J) + AUX * SIGN(ONE,WA(I,N2))
133 WA(M1,J) = WA(M2,J) + WA(M3,J) * T
154 WA(I,IN)=-WA(I,IN)
187 WA(I,KR)=WA(I,IN)
199 WA(M1,J)=WA(M1,J)-D-D
200 WA(M2,J)=WA(M2,J)-D-D
217 WA(I,J)=WA(I,J)-D*WA(OUT,J)
227 WA(OUT,N2)=WA(M4,IN)
[all …]
/dports/biology/canu/canu-2.2/src/overlapInCore/
H A DoverlapInCore-Process_Overlaps.C33 while (WA->bgnID < G.endRefID) { in Process_Overlaps()
46 WA->thread_id, WA->bgnID, WA->endID); in Process_Overlaps()
48 for (uint32 fi=WA->bgnID; fi<=WA->endID; fi++) { in Process_Overlaps()
86 WA->thread_id, WA->bgnID, WA->endID, in Process_Overlaps()
87 WA->overlapsLen, in Process_Overlaps()
88 WA->Kmer_Hits_With_Olap_Ct, WA->Kmer_Hits_Without_Olap_Ct, WA->Kmer_Hits_Skipped_Ct); in Process_Overlaps()
97 WA->overlapsLen = 0; in Process_Overlaps()
108 WA->bgnID = G.curRefID; in Process_Overlaps()
111 if (WA->endID > G.endRefID) in Process_Overlaps()
112 WA->endID = G.endRefID; in Process_Overlaps()
[all …]
H A DoverlapInCore-Find_Overlaps.C30 Work_Area_t * WA) { in Add_Match() argument
40 diag = WA->Match_Node_Space [(* p)].Offset - WA->Match_Node_Space [(* p)].Start; in Add_Match()
61 if (WA->Next_Avail_Match_Node == WA->Match_Node_Size) { in Add_Match()
65 memcpy(newSpace, WA->Match_Node_Space, sizeof(Match_Node_t) * WA->Match_Node_Size); in Add_Match()
81 WA->Next_Avail_Match_Node ++; in Add_Match()
121 if (WA->Next_Avail_String_Olap == WA->String_Olap_Size) { in Add_Ref()
125 memcpy(newSpace, WA->String_Olap_Space, sizeof(String_Olap_t) * WA->String_Olap_Size); in Add_Ref()
158 Add_Match (Ref, & (WA->String_Olap_Space [Sub].Match_List), Offset, & consistent, WA); in Add_Ref()
247 WA->Next_Avail_Match_Node = 1; in Find_Overlaps()
257 WA->A_Olaps_For_Frag = 0; in Find_Overlaps()
[all …]
/dports/biology/canu/canu-2.2/src/overlapErrorAdjustment/
H A DfindErrors-Prefix_Edit_Distance.C28 Compute_Delta(pedWorkArea_t *WA, in Compute_Delta() argument
69 WA->delta[k++] = abs(WA->deltaStack[i]) * Sign(WA->deltaStack[i-1]); in Compute_Delta()
71 WA->deltaLen = stackLen - 1; in Compute_Delta()
124 WA->alloc.push_back(alloc); in Allocate_More_Edit_Space()
177 WA->deltaLen = 0; in Prefix_Edit_Dist()
233 (1 + WA->Edit_Array_Lazy[e-1][d+1] == WA->Edit_Array_Lazy[e][d]) && in Prefix_Edit_Dist()
236 WA->Edit_Array_Lazy[e][d] = WA->Edit_Array_Lazy[e][d-1]; in Prefix_Edit_Dist()
250 && WA->Edit_Array_Lazy[e][Left] < WA->G->Edit_Match_Limit[e]) in Prefix_Edit_Dist()
255 && WA->Edit_Array_Lazy[e][Left] + Left < WA->G->Edit_Match_Limit[e]) in Prefix_Edit_Dist()
262 && WA->Edit_Array_Lazy[e][Right] + Right < WA->G->Edit_Match_Limit[e]) in Prefix_Edit_Dist()
[all …]
H A DcorrectOverlaps-Prefix_Edit_Distance.C23 Compute_Delta(pedWorkArea_t *WA, in Compute_Delta() argument
64 WA->delta[k++] = abs(WA->deltaStack[i]) * Sign(WA->deltaStack[i-1]); in Compute_Delta()
66 WA->deltaLen = stackLen - 1; in Compute_Delta()
119 WA->alloc.push_back(alloc); in Allocate_More_Edit_Space()
172 WA->deltaLen = 0; in Prefix_Edit_Dist()
234 (1 + WA->Edit_Array_Lazy[e-1][d+1] == WA->Edit_Array_Lazy[e][d]) && in Prefix_Edit_Dist()
237 WA->Edit_Array_Lazy[e][d] = WA->Edit_Array_Lazy[e][d-1]; in Prefix_Edit_Dist()
251 && WA->Edit_Array_Lazy[e][Left] < WA->G->Edit_Match_Limit[e]) in Prefix_Edit_Dist()
256 && WA->Edit_Array_Lazy[e][Left] + Left < WA->G->Edit_Match_Limit[e]) in Prefix_Edit_Dist()
263 && WA->Edit_Array_Lazy[e][Right] + Right < WA->G->Edit_Match_Limit[e]) in Prefix_Edit_Dist()
[all …]
/dports/cad/verilator/verilator-4.216/test_regress/t/
H A Dt_array_packed_write_read.v15 localparam WA = 8; // address dimension size constant
21 logic [WA-1:0] [WB-1:0] array_bg; // big endian array
23 logic [0:WA-1] [0:WB-1] array_lt; // little endian array
62 else if (cnt[30:2]==2) array_bg [WA/2-1:0 ] <= {WA/2*WB +0{1'b1}};
63 else if (cnt[30:2]==3) array_bg [WA -1:WA/2] <= {WA/2*WB +0{1'b1}};
86 …else if (cnt[30:2]==2) begin if (array_bg [WA/2-1:0 ] !== {WA/2*WB +0{1'b1}}) $st…
87 …else if (cnt[30:2]==3) begin if (array_bg [WA -1:WA/2] !== {WA/2*WB +0{1'b1}}) $st…
114 else if (cnt[30:2]==2) array_lt [0 :WA/2-1] <= {WA/2*WB +0{1'b1}};
115 else if (cnt[30:2]==3) array_lt [WA/2:WA -1] <= {WA/2*WB +0{1'b1}};
138 …else if (cnt[30:2]==2) begin if (array_lt [0 :WA/2-1] !== {WA/2*WB +0{1'b1}}) $st…
[all …]
/dports/biology/star/STAR-2.7.9a/source/
H A DReadAlign_assignAlignToWindow.cpp16 if (aFrag==WA[iW][iA][WA_iFrag] && WA[iW][iA][WA_sjA]==sjA \ in assignAlignToWindow()
17 && a1+WA[iW][iA][WA_rStart]==WA[iW][iA][WA_gStart]+aRstart \ in assignAlignToWindow()
18 … && ( (aRstart>=WA[iW][iA][WA_rStart] && aRstart<WA[iW][iA][WA_rStart]+WA[iW][iA][WA_Length]) \ in assignAlignToWindow()
19 …|| (aRstart+aLength>=WA[iW][iA][WA_rStart] && aRstart+aLength<WA[iW][iA][WA_rStart]+WA[iW][iA][WA_… in assignAlignToWindow()
43 WA[iW][iA1][ii]=WA[iW][iA1-1][ii]; in assignAlignToWindow()
49 WA[iW][iA1][ii]=WA[iW][iA1+1][ii]; in assignAlignToWindow()
113 WA[iW][iA1][ii]=WA[iW][iA1-1][ii]; in assignAlignToWindow()
120 WA[iW][iA][WA_gStart]=a1; in assignAlignToWindow()
121 WA[iW][iA][WA_Nrep]=aNrep; in assignAlignToWindow()
123 WA[iW][iA][WA_iFrag]=aFrag; in assignAlignToWindow()
[all …]
/dports/emulators/dolphin-emu/dolphin-3152428/Source/Core/Core/PowerPC/JitArm64/
H A DJitArm64_Branch.cpp28 ORR(WA, WA, 31, 0); // Same as WA | EXCEPTION_SYSCALL in sc()
31 gpr.Unlock(WA); in sc()
71 gpr.Unlock(WA); in rfi()
84 gpr.Unlock(WA); in bx()
129 SUBS(WA, WA, 1); in bcx()
155 gpr.Unlock(WA); in bcx()
223 AND(WA, WA, 30, 29); // Wipe the bottom 2 bits. in bcctrx()
227 gpr.Unlock(WA); in bcctrx()
245 SUBS(WA, WA, 1); in bclrx()
269 AND(WA, WA, 30, 29); // Wipe the bottom 2 bits. in bclrx()
[all …]
/dports/math/cmlib/cmlib-3.0_8/src/fftpkg/
H A Dcfftf1.f1 SUBROUTINE CFFTF1(N,C,CH,WA,IFAC) argument
9 DIMENSION CH(*) ,C(*) ,WA(*) ,IFAC(*)
25 CALL PASSF4 (IDOT,L1,C,CH,WA(IW),WA(IX2),WA(IX3))
27 101 CALL PASSF4 (IDOT,L1,CH,C,WA(IW),WA(IX2),WA(IX3))
32 CALL PASSF2 (IDOT,L1,C,CH,WA(IW))
34 104 CALL PASSF2 (IDOT,L1,CH,C,WA(IW))
40 CALL PASSF3 (IDOT,L1,C,CH,WA(IW),WA(IX2))
42 107 CALL PASSF3 (IDOT,L1,CH,C,WA(IW),WA(IX2))
50 CALL PASSF5 (IDOT,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
52 110 CALL PASSF5 (IDOT,L1,CH,C,WA(IW),WA(IX2),WA(IX3),WA(IX4))
[all …]
H A Drfftb1.f1 SUBROUTINE RFFTB1(N,C,CH,WA,IFAC) argument
24 CALL RADB4 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3))
26 101 CALL RADB4 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3))
31 CALL RADB2 (IDO,L1,C,CH,WA(IW))
33 104 CALL RADB2 (IDO,L1,CH,C,WA(IW))
39 CALL RADB3 (IDO,L1,C,CH,WA(IW),WA(IX2))
41 107 CALL RADB3 (IDO,L1,CH,C,WA(IW),WA(IX2))
49 CALL RADB5 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
51 110 CALL RADB5 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3),WA(IX4))
55 CALL RADBG (IDO,IP,L1,IDL1,C,C,C,CH,CH,WA(IW))
[all …]
H A Dcfftb1.f1 SUBROUTINE CFFTB1(N,C,CH,WA,IFAC) argument
9 DIMENSION CH(*) ,C(*) ,WA(*) ,IFAC(*)
25 CALL PASSB4 (IDOT,L1,C,CH,WA(IW),WA(IX2),WA(IX3))
27 101 CALL PASSB4 (IDOT,L1,CH,C,WA(IW),WA(IX2),WA(IX3))
32 CALL PASSB2 (IDOT,L1,C,CH,WA(IW))
34 104 CALL PASSB2 (IDOT,L1,CH,C,WA(IW))
40 CALL PASSB3 (IDOT,L1,C,CH,WA(IW),WA(IX2))
42 107 CALL PASSB3 (IDOT,L1,CH,C,WA(IW),WA(IX2))
50 CALL PASSB5 (IDOT,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
52 110 CALL PASSB5 (IDOT,L1,CH,C,WA(IW),WA(IX2),WA(IX3),WA(IX4))
[all …]
H A Drfftf1.f1 SUBROUTINE RFFTF1(N,C,CH,WA,IFAC) argument
27 CALL RADF4 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3))
29 101 CALL RADF4 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3))
33 CALL RADF2 (IDO,L1,C,CH,WA(IW))
35 103 CALL RADF2 (IDO,L1,CH,C,WA(IW))
40 CALL RADF3 (IDO,L1,C,CH,WA(IW),WA(IX2))
42 105 CALL RADF3 (IDO,L1,CH,C,WA(IW),WA(IX2))
49 CALL RADF5 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
51 107 CALL RADF5 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3),WA(IX4))
55 CALL RADFG (IDO,IP,L1,IDL1,C,C,C,CH,CH,WA(IW))
[all …]
/dports/math/PDL/PDL-2.019/Lib/Slatec/slatec/
H A Drfftb1.f2 SUBROUTINE RFFTB1 (N, C, CH, WA, IFAC) argument
85 DIMENSION CH(*), C(*), WA(*), IFAC(*)
100 CALL RADB4 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3))
102 101 CALL RADB4 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3))
107 CALL RADB2 (IDO,L1,C,CH,WA(IW))
109 104 CALL RADB2 (IDO,L1,CH,C,WA(IW))
115 CALL RADB3 (IDO,L1,C,CH,WA(IW),WA(IX2))
117 107 CALL RADB3 (IDO,L1,CH,C,WA(IW),WA(IX2))
125 CALL RADB5 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
127 110 CALL RADB5 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3),WA(IX4))
[all …]
H A Drfftf1.f2 SUBROUTINE RFFTF1 (N, C, CH, WA, IFAC) argument
86 DIMENSION CH(*), C(*), WA(*), IFAC(*)
104 CALL RADF4 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3))
106 101 CALL RADF4 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3))
110 CALL RADF2 (IDO,L1,C,CH,WA(IW))
112 103 CALL RADF2 (IDO,L1,CH,C,WA(IW))
117 CALL RADF3 (IDO,L1,C,CH,WA(IW),WA(IX2))
119 105 CALL RADF3 (IDO,L1,CH,C,WA(IW),WA(IX2))
126 CALL RADF5 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
128 107 CALL RADF5 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3),WA(IX4))
[all …]
/dports/science/dcl/dcl-5.4.8/src/math2/fftlib/
H A Dcfftb1.f2 SUBROUTINE CFFTB1 (N,C,CH,WA,IFAC) argument
3 DIMENSION CH(*) ,C(*) ,WA(*) ,IFAC(*)
18 CALL PASSB4 (IDOT,L1,C,CH,WA(IW),WA(IX2),WA(IX3))
20 101 CALL PASSB4 (IDOT,L1,CH,C,WA(IW),WA(IX2),WA(IX3))
25 CALL PASSB2 (IDOT,L1,C,CH,WA(IW))
27 104 CALL PASSB2 (IDOT,L1,CH,C,WA(IW))
33 CALL PASSB3 (IDOT,L1,C,CH,WA(IW),WA(IX2))
35 107 CALL PASSB3 (IDOT,L1,CH,C,WA(IW),WA(IX2))
43 CALL PASSB5 (IDOT,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
45 110 CALL PASSB5 (IDOT,L1,CH,C,WA(IW),WA(IX2),WA(IX3),WA(IX4))
[all …]
H A Drfftb1.f2 SUBROUTINE RFFTB1 (N,C,CH,WA,IFAC) argument
17 CALL RADB4 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3))
19 101 CALL RADB4 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3))
24 CALL RADB2 (IDO,L1,C,CH,WA(IW))
26 104 CALL RADB2 (IDO,L1,CH,C,WA(IW))
32 CALL RADB3 (IDO,L1,C,CH,WA(IW),WA(IX2))
34 107 CALL RADB3 (IDO,L1,CH,C,WA(IW),WA(IX2))
42 CALL RADB5 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
44 110 CALL RADB5 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3),WA(IX4))
48 CALL RADBG (IDO,IP,L1,IDL1,C,C,C,CH,CH,WA(IW))
[all …]
H A Drfftf1.f2 SUBROUTINE RFFTF1 (N,C,CH,WA,IFAC) argument
20 CALL RADF4 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3))
22 101 CALL RADF4 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3))
26 CALL RADF2 (IDO,L1,C,CH,WA(IW))
28 103 CALL RADF2 (IDO,L1,CH,C,WA(IW))
33 CALL RADF3 (IDO,L1,C,CH,WA(IW),WA(IX2))
35 105 CALL RADF3 (IDO,L1,CH,C,WA(IW),WA(IX2))
42 CALL RADF5 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
44 107 CALL RADF5 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3),WA(IX4))
48 CALL RADFG (IDO,IP,L1,IDL1,C,C,C,CH,CH,WA(IW))
[all …]
H A Dcfftf1.f2 SUBROUTINE CFFTF1 (N,C,CH,WA,IFAC) argument
3 DIMENSION CH(*) ,C(*) ,WA(*) ,IFAC(*)
18 CALL PASSF4 (IDOT,L1,C,CH,WA(IW),WA(IX2),WA(IX3))
20 101 CALL PASSF4 (IDOT,L1,CH,C,WA(IW),WA(IX2),WA(IX3))
25 CALL PASSF2 (IDOT,L1,C,CH,WA(IW))
27 104 CALL PASSF2 (IDOT,L1,CH,C,WA(IW))
33 CALL PASSF3 (IDOT,L1,C,CH,WA(IW),WA(IX2))
35 107 CALL PASSF3 (IDOT,L1,CH,C,WA(IW),WA(IX2))
43 CALL PASSF5 (IDOT,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
45 110 CALL PASSF5 (IDOT,L1,CH,C,WA(IW),WA(IX2),WA(IX3),WA(IX4))
[all …]
/dports/math/slatec/src/
H A Drfftf1.f2 SUBROUTINE RFFTF1 (N, C, CH, WA, IFAC) argument
86 DIMENSION CH(*), C(*), WA(*), IFAC(*)
104 CALL RADF4 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3))
106 101 CALL RADF4 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3))
110 CALL RADF2 (IDO,L1,C,CH,WA(IW))
112 103 CALL RADF2 (IDO,L1,CH,C,WA(IW))
117 CALL RADF3 (IDO,L1,C,CH,WA(IW),WA(IX2))
119 105 CALL RADF3 (IDO,L1,CH,C,WA(IW),WA(IX2))
126 CALL RADF5 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
128 107 CALL RADF5 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3),WA(IX4))
[all …]
H A Dcfftf1.f2 SUBROUTINE CFFTF1 (N, C, CH, WA, IFAC) argument
73 DIMENSION CH(*), C(*), WA(*), IFAC(*)
89 CALL PASSF4 (IDOT,L1,C,CH,WA(IW),WA(IX2),WA(IX3))
91 101 CALL PASSF4 (IDOT,L1,CH,C,WA(IW),WA(IX2),WA(IX3))
96 CALL PASSF2 (IDOT,L1,C,CH,WA(IW))
98 104 CALL PASSF2 (IDOT,L1,CH,C,WA(IW))
104 CALL PASSF3 (IDOT,L1,C,CH,WA(IW),WA(IX2))
106 107 CALL PASSF3 (IDOT,L1,CH,C,WA(IW),WA(IX2))
114 CALL PASSF5 (IDOT,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
116 110 CALL PASSF5 (IDOT,L1,CH,C,WA(IW),WA(IX2),WA(IX3),WA(IX4))
[all …]
H A Dcfftb1.f2 SUBROUTINE CFFTB1 (N, C, CH, WA, IFAC) argument
71 DIMENSION CH(*), C(*), WA(*), IFAC(*)
87 CALL PASSB4 (IDOT,L1,C,CH,WA(IW),WA(IX2),WA(IX3))
89 101 CALL PASSB4 (IDOT,L1,CH,C,WA(IW),WA(IX2),WA(IX3))
94 CALL PASSB2 (IDOT,L1,C,CH,WA(IW))
96 104 CALL PASSB2 (IDOT,L1,CH,C,WA(IW))
102 CALL PASSB3 (IDOT,L1,C,CH,WA(IW),WA(IX2))
104 107 CALL PASSB3 (IDOT,L1,CH,C,WA(IW),WA(IX2))
112 CALL PASSB5 (IDOT,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
114 110 CALL PASSB5 (IDOT,L1,CH,C,WA(IW),WA(IX2),WA(IX3),WA(IX4))
[all …]
H A Drfftb1.f2 SUBROUTINE RFFTB1 (N, C, CH, WA, IFAC) argument
85 DIMENSION CH(*), C(*), WA(*), IFAC(*)
100 CALL RADB4 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3))
102 101 CALL RADB4 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3))
107 CALL RADB2 (IDO,L1,C,CH,WA(IW))
109 104 CALL RADB2 (IDO,L1,CH,C,WA(IW))
115 CALL RADB3 (IDO,L1,C,CH,WA(IW),WA(IX2))
117 107 CALL RADB3 (IDO,L1,CH,C,WA(IW),WA(IX2))
125 CALL RADB5 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
127 110 CALL RADB5 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3),WA(IX4))
[all …]
/dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/dfftpack/
H A Drfftb1.f1 SUBROUTINE RFFTB1 (N,C,CH,WA,IFAC) argument
3 DIMENSION CH(*) ,C(*) ,WA(*) ,IFAC(*)
17 CALL RADB4 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3))
19 101 CALL RADB4 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3))
24 CALL RADB2 (IDO,L1,C,CH,WA(IW))
26 104 CALL RADB2 (IDO,L1,CH,C,WA(IW))
32 CALL RADB3 (IDO,L1,C,CH,WA(IW),WA(IX2))
34 107 CALL RADB3 (IDO,L1,CH,C,WA(IW),WA(IX2))
42 CALL RADB5 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
44 110 CALL RADB5 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3),WA(IX4))
[all …]
H A Drfftf1.f1 SUBROUTINE RFFTF1 (N,C,CH,WA,IFAC) argument
3 DIMENSION CH(*) ,C(*) ,WA(*) ,IFAC(*)
20 CALL RADF4 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3))
22 101 CALL RADF4 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3))
26 CALL RADF2 (IDO,L1,C,CH,WA(IW))
28 103 CALL RADF2 (IDO,L1,CH,C,WA(IW))
33 CALL RADF3 (IDO,L1,C,CH,WA(IW),WA(IX2))
35 105 CALL RADF3 (IDO,L1,CH,C,WA(IW),WA(IX2))
42 CALL RADF5 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
44 107 CALL RADF5 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3),WA(IX4))
[all …]

12345678910>>...176