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
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
|
/* File: foomodule.c
* Example of FortranObject usage. See also wrap.f foo.f foo90.f90.
* Author: Pearu Peterson <pearu@ioc.ee>.
* http://cens.ioc.ee/projects/f2py2e/
* $Revision: 1.2 $
* $Date: 2000/09/17 16:10:27 $
*/
#ifdef __cplusplus
extern "C" {
#endif
#include "Python.h"
#include "fortranobject.h"
static PyObject *foo_error;
#if defined(NO_APPEND_FORTRAN)
#if defined(UPPERCASE_FORTRAN)
#define F_FUNC(f,F) F
#else
#define F_FUNC(f,F) f
#endif
#else
#if defined(UPPERCASE_FORTRAN)
#define F_FUNC(f,F) F##_
#else
#define F_FUNC(f,F) f##_
#endif
#endif
/************* foo_bar *************/
static char doc_foo_bar[] = "\
Function signature:\n\
bar()\n\
";
static PyObject *foo_bar(PyObject *capi_self, PyObject *capi_args,
PyObject *capi_keywds, void (*f2py_func)()) {
PyObject *capi_buildvalue = NULL;
static char *capi_kwlist[] = {NULL};
if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
"|:foo.bar",\
capi_kwlist))
goto capi_fail;
(*f2py_func)();
capi_buildvalue = Py_BuildValue("");
capi_fail:
return capi_buildvalue;
}
/************ mod_init **************/
static PyObject *mod_init(PyObject *capi_self, PyObject *capi_args,
PyObject *capi_keywds, void (*f2py_func)()) {
PyObject *capi_buildvalue = NULL;
static char *capi_kwlist[] = {NULL};
if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
"|:mod.init",\
capi_kwlist))
goto capi_fail;
(*f2py_func)();
capi_buildvalue = Py_BuildValue("");
capi_fail:
return capi_buildvalue;
}
/* F90 module */
static FortranDataDef f2py_mod_def[] = {
{"a",0, {}, NPY_INT},
{"b",0, {}, NPY_DOUBLE},
{"c",1, {3}, NPY_DOUBLE},
{"d",1, {-1}, NPY_DOUBLE},
{"init",-1,{},0,NULL,(void *)mod_init},
{NULL}
};
static void f2py_setup_mod(char *a,char *b,char *c,void (*d)(),char *init) {
f2py_mod_def[0].data = a;
f2py_mod_def[1].data = b;
f2py_mod_def[2].data = c;
f2py_mod_def[3].func = d;
f2py_mod_def[4].data = init;
}
extern void F_FUNC(f2pyinitmod,F2PYINITMOD)();
static void f2py_init_mod() {
F_FUNC(f2pyinitmod,F2PYINITMOD)(f2py_setup_mod);
}
/* COMMON block */
static FortranDataDef f2py_foodata_def[] = {
{"a",0, {}, NPY_INT},
{"b",0, {}, NPY_DOUBLE},
{"c",1, {3}, NPY_DOUBLE},
{NULL}
};
static void f2py_setup_foodata(char *a,char *b,char *c) {
f2py_foodata_def[0].data = a;
f2py_foodata_def[1].data = b;
f2py_foodata_def[2].data = c;
}
extern void F_FUNC(f2pyinitfoodata,F2PYINITFOODATA)();
static void f2py_init_foodata() {
F_FUNC(f2pyinitfoodata,F2PYINITFOODATA)(f2py_setup_foodata);
}
/* Fortran routines (needs no initialization/setup function) */
extern void F_FUNC(bar,BAR)();
extern void F_FUNC(foo,FOO)();
static FortranDataDef f2py_routines_def[] = {
{"bar",-1, {}, 0, (char *)F_FUNC(bar,BAR),(void *)foo_bar,doc_foo_bar},
{"foo",-1, {}, 0, (char *)F_FUNC(foo,FOO),(void *)foo_bar,doc_foo_bar},
{NULL}
};
static PyMethodDef foo_module_methods[] = {
/*eof method*/
{NULL,NULL}
};
void initfoo() {
int i;
PyObject *m, *d, *s;
import_array();
m = Py_InitModule("foo", foo_module_methods);
d = PyModule_GetDict(m);
s = PyString_FromString("This module 'foo' demonstrates the usage of fortranobject.");
PyDict_SetItemString(d, "__doc__", s);
/* Fortran objects: */
PyDict_SetItemString(d, "mod", PyFortranObject_New(f2py_mod_def,f2py_init_mod));
PyDict_SetItemString(d, "foodata", PyFortranObject_New(f2py_foodata_def,f2py_init_foodata));
for(i=0;f2py_routines_def[i].name!=NULL;i++)
PyDict_SetItemString(d, f2py_routines_def[i].name,
PyFortranObject_NewAsAttr(&f2py_routines_def[i]));
Py_DECREF(s);
if (PyErr_Occurred())
Py_FatalError("can't initialize module foo");
}
#ifdef __cplusplus
}
#endif
|
