Hi Joe,
Thanks for the export wisdom fix. That solved a broken pointer problem.
> Presumably the same thing could be done with the import, as well.
Yes. I modified wisdom.c (including prototype definitions to get rid of
compiler warning) which works.
more jt9_wisdom_status.txt
Imported FFTW wisdom (jt9): (fftw-3.3.4 fftwf_wisdom #xca4daf64 #xc8
Current changes are below.
--- John G4KLA
--- lib/jt9.f90 (revision 4616)
+++ lib/jt9.f90 (working copy)
@@ -74,7 +74,10 @@
1000 format(a40)
rewind 28
isuccess=0
- call import_wisdom_from_file(isuccess,28)
+! call import_wisdom_from_file(isuccess,28)
+ wisfile=trim(data_dir)//'/jt9_wisdom.dat'
+ n=len_trim(wisfile)
+ call import_wisdom(wisfile(1:n)//char(0),isuccess)
close(28)
30 if(isuccess.ne.0) then
write(14,1010) firstline
Index: lib/wisdom.c
===================================================================
--- lib/wisdom.c (revision 4616)
+++ lib/wisdom.c (working copy)
@@ -1,4 +1,12 @@
-void export_wisdom_(char fname[], int len)
+void export_wisdom_(char fname[])
{
+ int fftwf_export_wisdom_to_filename(const char *);
+
fftwf_export_wisdom_to_filename(fname);
}
+void import_wisdom_(const char *fname,int *success)
+{
+ int fftwf_import_wisdom_from_filename(const char *);
+
+ *success = fftwf_import_wisdom_from_filename(fname);
+}
------------------------------------------------------------------------------
Download BIRT iHub F-Type - The Free Enterprise-Grade BIRT Server
from Actuate! Instantly Supercharge Your Business Reports and Dashboards
with Interactivity, Sharing, Native Excel Exports, App Integration & more
Get technology previously reserved for billion-dollar corporations, FREE
http://pubads.g.doubleclick.net/gampad/clk?id=157005751&iu=/4140/ostg.clktrk
_______________________________________________
wsjt-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/wsjt-devel
