~ubuntu-branches/ubuntu/saucy/python-scipy/saucy

« back to all changes in this revision

Viewing changes to Lib/special/amos_wrappers.h

  • Committer: Bazaar Package Importer
  • Author(s): Ondrej Certik
  • Date: 2008-06-16 22:58:01 UTC
  • mfrom: (2.1.24 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080616225801-irdhrpcwiocfbcmt
Tags: 0.6.0-12
* The description updated to match the current SciPy (Closes: #489149).
* Standards-Version bumped to 3.8.0 (no action needed)
* Build-Depends: netcdf-dev changed to libnetcdf-dev

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
/* This file is a collection of wrappers around the
2
 
 *  Amos Fortran library of functions that take complex
3
 
 *  variables (see www.netlib.org) so that they can be called from
4
 
 *  the cephes library of corresponding name but work with complex
5
 
 *  arguments.
6
 
 */
7
 
 
8
 
#ifndef _AMOS_WRAPPERS_H
9
 
#define _AMOS_WRAPPERS_H
10
 
#include "Python.h"
11
 
#include "cephes/mconf.h"
12
 
 
13
 
#define DO_MTHERR(name) if (nz !=0 || ierr !=0) mtherr(name, ierr_to_mtherr(nz, ierr))
14
 
int ierr_to_mtherr( int nz, int ierr); 
15
 
int cairy_wrap(Py_complex z, Py_complex *ai, Py_complex *aip, Py_complex *bi, Py_complex *bip);
16
 
int cairy_wrap_e(Py_complex z, Py_complex *ai, Py_complex *aip, Py_complex *bi, Py_complex *bip);
17
 
Py_complex cbesi_wrap( double v, Py_complex z);
18
 
Py_complex cbesi_wrap_e( double v, Py_complex z);
19
 
Py_complex cbesj_wrap( double v, Py_complex z);
20
 
Py_complex cbesj_wrap_e( double v, Py_complex z);
21
 
Py_complex cbesy_wrap( double v, Py_complex z);
22
 
Py_complex cbesy_wrap_e( double v, Py_complex z);
23
 
Py_complex cbesk_wrap( double v, Py_complex z);
24
 
Py_complex cbesk_wrap_e( double v, Py_complex z);  
25
 
Py_complex cbesh_wrap1( double v, Py_complex z);
26
 
Py_complex cbesh_wrap1_e( double v, Py_complex z);  
27
 
Py_complex cbesh_wrap2( double v, Py_complex z);
28
 
Py_complex cbesh_wrap2_e( double v, Py_complex z);
29
 
/* 
30
 
int cairy_(double *, int *, int *, doublecomplex *, int *, int *);
31
 
int cbiry_(doublecomplex *, int *, int *, doublecomplex *, int *, int *);
32
 
int cbesi_(doublecomplex *, double *, int *, int *, doublecomplex *, int *, int *);
33
 
int cbesj_(doublecomplex *, double *, int *, int *, doublecomplex *, int *, int *);
34
 
int cbesk_(doublecomplex *, double *, int *, int *, doublecomplex *, int *, int *);
35
 
int cbesy_(doublecomplex *, double *, int *, int *, doublecomplex *, int *, doublecomplex *, int *);
36
 
int cbesh_(doublecomplex *, double *, int *, int *, int *, doublecomplex *, int *, int *);
37
 
*/
38
 
 
39
 
#endif
40
 
 
41
 
 
42
 
 
43
 
  
44
 
 
45
 
 
46
 
 
47
 
 
48
 
 
49
 
 
50