1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
<html lang="en">
<head>
<title>Wisdom File Export/Import from Fortran - FFTW 3.3.2</title>
<meta http-equiv="Content-Type" content="text/html">
<meta name="description" content="FFTW 3.3.2">
<meta name="generator" content="makeinfo 4.13">
<link title="Top" rel="start" href="index.html#Top">
<link rel="up" href="Accessing-the-wisdom-API-from-Fortran.html#Accessing-the-wisdom-API-from-Fortran" title="Accessing the wisdom API from Fortran">
<link rel="prev" href="Accessing-the-wisdom-API-from-Fortran.html#Accessing-the-wisdom-API-from-Fortran" title="Accessing the wisdom API from Fortran">
<link rel="next" href="Wisdom-String-Export_002fImport-from-Fortran.html#Wisdom-String-Export_002fImport-from-Fortran" title="Wisdom String Export/Import from Fortran">
<link href="http://www.gnu.org/software/texinfo/" rel="generator-home" title="Texinfo Homepage">
<!--
This manual is for FFTW
(version 3.3.2, 28 April 2012).
Copyright (C) 2003 Matteo Frigo.
Copyright (C) 2003 Massachusetts Institute of Technology.
Permission is granted to make and distribute verbatim copies of
this manual provided the copyright notice and this permission
notice are preserved on all copies.
Permission is granted to copy and distribute modified versions of
this manual under the conditions for verbatim copying, provided
that the entire resulting derived work is distributed under the
terms of a permission notice identical to this one.
Permission is granted to copy and distribute translations of this
manual into another language, under the above conditions for
modified versions, except that this permission notice may be
stated in a translation approved by the Free Software Foundation.
-->
<meta http-equiv="Content-Style-Type" content="text/css">
<style type="text/css"><!--
pre.display { font-family:inherit }
pre.format { font-family:inherit }
pre.smalldisplay { font-family:inherit; font-size:smaller }
pre.smallformat { font-family:inherit; font-size:smaller }
pre.smallexample { font-size:smaller }
pre.smalllisp { font-size:smaller }
span.sc { font-variant:small-caps }
span.roman { font-family:serif; font-weight:normal; }
span.sansserif { font-family:sans-serif; font-weight:normal; }
--></style>
</head>
<body>
<div class="node">
<a name="Wisdom-File-Export%2fImport-from-Fortran"></a>
<a name="Wisdom-File-Export_002fImport-from-Fortran"></a>
<p>
Next: <a rel="next" accesskey="n" href="Wisdom-String-Export_002fImport-from-Fortran.html#Wisdom-String-Export_002fImport-from-Fortran">Wisdom String Export/Import from Fortran</a>,
Previous: <a rel="previous" accesskey="p" href="Accessing-the-wisdom-API-from-Fortran.html#Accessing-the-wisdom-API-from-Fortran">Accessing the wisdom API from Fortran</a>,
Up: <a rel="up" accesskey="u" href="Accessing-the-wisdom-API-from-Fortran.html#Accessing-the-wisdom-API-from-Fortran">Accessing the wisdom API from Fortran</a>
<hr>
</div>
<h4 class="subsection">7.6.1 Wisdom File Export/Import from Fortran</h4>
<p><a name="index-fftw_005fimport-wisdom_005ffrom_005ffilename-566"></a><a name="index-fftw_005fexport_005fwisdom_005fto_005ffilename-567"></a>The easiest way to export and import wisdom is to do so using
<code>fftw_export_wisdom_to_filename</code> and
<code>fftw_wisdom_from_filename</code>. The only trick is that these
require you to pass a C string, which is an array of type
<code>CHARACTER(C_CHAR)</code> that is terminated by <code>C_NULL_CHAR</code>.
You can call them like this:
<pre class="example"> integer(C_INT) :: ret
ret = fftw_export_wisdom_to_filename(C_CHAR_'my_wisdom.dat' // C_NULL_CHAR)
if (ret .eq. 0) stop 'error exporting wisdom to file'
ret = fftw_import_wisdom_from_filename(C_CHAR_'my_wisdom.dat' // C_NULL_CHAR)
if (ret .eq. 0) stop 'error importing wisdom from file'
</pre>
<p>Note that prepending ‘<samp><span class="samp">C_CHAR_</span></samp>’ is needed to specify that the
literal string is of kind <code>C_CHAR</code>, and we null-terminate the
string by appending ‘<samp><span class="samp">// C_NULL_CHAR</span></samp>’. These functions return an
<code>integer(C_INT)</code> (<code>ret</code>) which is <code>0</code> if an error
occurred during export/import and nonzero otherwise.
<p>It is also possible to use the lower-level routines
<code>fftw_export_wisdom_to_file</code> and
<code>fftw_import_wisdom_from_file</code>, which accept parameters of the C
type <code>FILE*</code>, expressed in Fortran as <code>type(C_PTR)</code>.
However, you are then responsible for creating the <code>FILE*</code>
yourself. You can do this by using <code>iso_c_binding</code> to define
Fortran intefaces for the C library functions <code>fopen</code> and
<code>fclose</code>, which is a bit strange in Fortran but workable.
<!-- =========> -->
</body></html>
|
