1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
/* This file is a collection of wrappers around the
* Amos Fortran library of functions that take complex
* variables (see www.netlib.org) so that they can be called from
* the cephes library of corresponding name but work with complex
* arguments.
*/
#ifndef _TOMS_WRAPPERS_H
#define _TOMS_WRAPPERS_H
#ifndef _AMOS_WRAPPERS_H
#include "Python.h"
#include "cephes/mconf.h"
#define CADDR(z) (double *)&z.real, (double*)&z.imag
#endif /*_AMOS */
extern Py_complex cwofz_wrap(Py_complex z);
#endif
|
