/dports/math/R-cran-quantreg/quantreg/src/ |
H A D | rq0.f | 70 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 D | rq1.f | 72 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 D | overlapInCore-Process_Overlaps.C | 33 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 D | overlapInCore-Find_Overlaps.C | 30 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 D | findErrors-Prefix_Edit_Distance.C | 28 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 D | correctOverlaps-Prefix_Edit_Distance.C | 23 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 D | t_array_packed_write_read.v | 15 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 D | ReadAlign_assignAlignToWindow.cpp | 16 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 D | JitArm64_Branch.cpp | 28 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 D | cfftf1.f | 1 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 D | rfftb1.f | 1 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 D | cfftb1.f | 1 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 D | rfftf1.f | 1 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 D | rfftb1.f | 2 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 D | rfftf1.f | 2 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 D | cfftb1.f | 2 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 D | rfftb1.f | 2 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 D | rfftf1.f | 2 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 D | cfftf1.f | 2 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 D | rfftf1.f | 2 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 D | cfftf1.f | 2 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 D | cfftb1.f | 2 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 D | rfftb1.f | 2 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 D | rfftb1.f | 1 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 D | rfftf1.f | 1 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 …]
|