js8call/lib/wisdom.c
2018-02-08 21:28:33 -05: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);
}