Files
2025-02-Numerical/lib/nr/cpp/recipes/wt1.cpp
2025-09-12 18:55:25 +09:00

16 lines
285 B
C++

#include "nr.h"
void NR::wt1(Vec_IO_DP &a, const int isign,
void wtstep(Vec_IO_DP &, const int, const int))
{
int nn;
int n=a.size();
if (n < 4) return;
if (isign >= 0) {
for (nn=n;nn>=4;nn>>=1) wtstep(a,nn,isign);
} else {
for (nn=4;nn<=n;nn<<=1) wtstep(a,nn,isign);
}
}