You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
163 lines
5.1 KiB
C
163 lines
5.1 KiB
C
#ifndef Py_FORTRANOBJECT_H
|
|
#define Py_FORTRANOBJECT_H
|
|
#ifdef __cplusplus
|
|
extern "C" {
|
|
#endif
|
|
|
|
#include "Python.h"
|
|
|
|
#ifdef FORTRANOBJECT_C
|
|
#define NO_IMPORT_ARRAY
|
|
#endif
|
|
#define PY_ARRAY_UNIQUE_SYMBOL _npy_f2py_ARRAY_API
|
|
#include "numpy/arrayobject.h"
|
|
|
|
/*
|
|
* Python 3 support macros
|
|
*/
|
|
#if PY_VERSION_HEX >= 0x03000000
|
|
#define PyString_Check PyBytes_Check
|
|
#define PyString_GET_SIZE PyBytes_GET_SIZE
|
|
#define PyString_AS_STRING PyBytes_AS_STRING
|
|
#define PyString_FromString PyBytes_FromString
|
|
#define PyUString_FromStringAndSize PyUnicode_FromStringAndSize
|
|
#define PyString_ConcatAndDel PyBytes_ConcatAndDel
|
|
#define PyString_AsString PyBytes_AsString
|
|
|
|
#define PyInt_Check PyLong_Check
|
|
#define PyInt_FromLong PyLong_FromLong
|
|
#define PyInt_AS_LONG PyLong_AsLong
|
|
#define PyInt_AsLong PyLong_AsLong
|
|
|
|
#define PyNumber_Int PyNumber_Long
|
|
|
|
#else
|
|
|
|
#define PyUString_FromStringAndSize PyString_FromStringAndSize
|
|
#endif
|
|
|
|
|
|
#ifdef F2PY_REPORT_ATEXIT
|
|
#include <sys/timeb.h>
|
|
extern void f2py_start_clock(void);
|
|
extern void f2py_stop_clock(void);
|
|
extern void f2py_start_call_clock(void);
|
|
extern void f2py_stop_call_clock(void);
|
|
extern void f2py_cb_start_clock(void);
|
|
extern void f2py_cb_stop_clock(void);
|
|
extern void f2py_cb_start_call_clock(void);
|
|
extern void f2py_cb_stop_call_clock(void);
|
|
extern void f2py_report_on_exit(int,void*);
|
|
#endif
|
|
|
|
#ifdef DMALLOC
|
|
#include "dmalloc.h"
|
|
#endif
|
|
|
|
/* Fortran object interface */
|
|
|
|
/*
|
|
123456789-123456789-123456789-123456789-123456789-123456789-123456789-12
|
|
|
|
PyFortranObject represents various Fortran objects:
|
|
Fortran (module) routines, COMMON blocks, module data.
|
|
|
|
Author: Pearu Peterson <pearu@cens.ioc.ee>
|
|
*/
|
|
|
|
#define F2PY_MAX_DIMS 40
|
|
|
|
typedef void (*f2py_set_data_func)(char*,npy_intp*);
|
|
typedef void (*f2py_void_func)(void);
|
|
typedef void (*f2py_init_func)(int*,npy_intp*,f2py_set_data_func,int*);
|
|
|
|
/*typedef void* (*f2py_c_func)(void*,...);*/
|
|
|
|
typedef void *(*f2pycfunc)(void);
|
|
|
|
typedef struct {
|
|
char *name; /* attribute (array||routine) name */
|
|
int rank; /* array rank, 0 for scalar, max is F2PY_MAX_DIMS,
|
|
|| rank=-1 for Fortran routine */
|
|
struct {npy_intp d[F2PY_MAX_DIMS];} dims; /* dimensions of the array, || not used */
|
|
int type; /* PyArray_<type> || not used */
|
|
char *data; /* pointer to array || Fortran routine */
|
|
f2py_init_func func; /* initialization function for
|
|
allocatable arrays:
|
|
func(&rank,dims,set_ptr_func,name,len(name))
|
|
|| C/API wrapper for Fortran routine */
|
|
char *doc; /* documentation string; only recommended
|
|
for routines. */
|
|
} FortranDataDef;
|
|
|
|
typedef struct {
|
|
PyObject_HEAD
|
|
int len; /* Number of attributes */
|
|
FortranDataDef *defs; /* An array of FortranDataDef's */
|
|
PyObject *dict; /* Fortran object attribute dictionary */
|
|
} PyFortranObject;
|
|
|
|
#define PyFortran_Check(op) (Py_TYPE(op) == &PyFortran_Type)
|
|
#define PyFortran_Check1(op) (0==strcmp(Py_TYPE(op)->tp_name,"fortran"))
|
|
|
|
extern PyTypeObject PyFortran_Type;
|
|
extern int F2PyDict_SetItemString(PyObject* dict, char *name, PyObject *obj);
|
|
extern PyObject * PyFortranObject_New(FortranDataDef* defs, f2py_void_func init);
|
|
extern PyObject * PyFortranObject_NewAsAttr(FortranDataDef* defs);
|
|
|
|
#if PY_VERSION_HEX >= 0x03000000
|
|
|
|
PyObject * F2PyCapsule_FromVoidPtr(void *ptr, void (*dtor)(PyObject *));
|
|
void * F2PyCapsule_AsVoidPtr(PyObject *obj);
|
|
int F2PyCapsule_Check(PyObject *ptr);
|
|
|
|
#else
|
|
|
|
PyObject * F2PyCapsule_FromVoidPtr(void *ptr, void (*dtor)(void *));
|
|
void * F2PyCapsule_AsVoidPtr(PyObject *ptr);
|
|
int F2PyCapsule_Check(PyObject *ptr);
|
|
|
|
#endif
|
|
|
|
#define ISCONTIGUOUS(m) (PyArray_FLAGS(m) & NPY_ARRAY_C_CONTIGUOUS)
|
|
#define F2PY_INTENT_IN 1
|
|
#define F2PY_INTENT_INOUT 2
|
|
#define F2PY_INTENT_OUT 4
|
|
#define F2PY_INTENT_HIDE 8
|
|
#define F2PY_INTENT_CACHE 16
|
|
#define F2PY_INTENT_COPY 32
|
|
#define F2PY_INTENT_C 64
|
|
#define F2PY_OPTIONAL 128
|
|
#define F2PY_INTENT_INPLACE 256
|
|
#define F2PY_INTENT_ALIGNED4 512
|
|
#define F2PY_INTENT_ALIGNED8 1024
|
|
#define F2PY_INTENT_ALIGNED16 2048
|
|
|
|
#define ARRAY_ISALIGNED(ARR, SIZE) ((size_t)(PyArray_DATA(ARR)) % (SIZE) == 0)
|
|
#define F2PY_ALIGN4(intent) (intent & F2PY_INTENT_ALIGNED4)
|
|
#define F2PY_ALIGN8(intent) (intent & F2PY_INTENT_ALIGNED8)
|
|
#define F2PY_ALIGN16(intent) (intent & F2PY_INTENT_ALIGNED16)
|
|
|
|
#define F2PY_GET_ALIGNMENT(intent) \
|
|
(F2PY_ALIGN4(intent) ? 4 : \
|
|
(F2PY_ALIGN8(intent) ? 8 : \
|
|
(F2PY_ALIGN16(intent) ? 16 : 1) ))
|
|
#define F2PY_CHECK_ALIGNMENT(arr, intent) ARRAY_ISALIGNED(arr, F2PY_GET_ALIGNMENT(intent))
|
|
|
|
extern PyArrayObject* array_from_pyobj(const int type_num,
|
|
npy_intp *dims,
|
|
const int rank,
|
|
const int intent,
|
|
PyObject *obj);
|
|
extern int copy_ND_array(const PyArrayObject *in, PyArrayObject *out);
|
|
|
|
#ifdef DEBUG_COPY_ND_ARRAY
|
|
extern void dump_attrs(const PyArrayObject* arr);
|
|
#endif
|
|
|
|
|
|
#ifdef __cplusplus
|
|
}
|
|
#endif
|
|
#endif /* !Py_FORTRANOBJECT_H */
|