WSJT-X/lib/wisdom.c
Joe Taylor 2f9fde0853 Add wisdom for the FFTs done by symspec_(), wsjtx[.exe].
Also complete the wrapper code in wisdom.c.
TBD: should be possible to use fftw3f.f03 instead of the ad hoc wisdom.c.


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4617 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2014-11-21 15:17:22 +00:00

14 lines
350 B
C

void export_wisdom_(char fname[], int len)
{
int fftwf_export_wisdom_to_filename(const char *);
fname[len-1]=0;
fftwf_export_wisdom_to_filename(fname);
}
void import_wisdom_(char fname[], int *success, int len)
{
int fftwf_import_wisdom_from_filename(const char *);
fname[len-1]=0;
*success = fftwf_import_wisdom_from_filename(fname);
}