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
|
// -*- c++ -*-
%module Fortran
%{
#define SWIG_FILE_WITH_INIT
#include "Fortran.h"
%}
// Get the NumPy typemaps
%include "../numpy.i"
%init %{
import_array();
%}
%define %apply_numpy_typemaps(TYPE)
%apply (TYPE* IN_FARRAY2, int DIM1, int DIM2) {(TYPE* matrix, int rows, int cols)};
%enddef /* %apply_numpy_typemaps() macro */
%apply_numpy_typemaps(signed char )
%apply_numpy_typemaps(unsigned char )
%apply_numpy_typemaps(short )
%apply_numpy_typemaps(unsigned short )
%apply_numpy_typemaps(int )
%apply_numpy_typemaps(unsigned int )
%apply_numpy_typemaps(long )
%apply_numpy_typemaps(unsigned long )
%apply_numpy_typemaps(long long )
%apply_numpy_typemaps(unsigned long long)
%apply_numpy_typemaps(float )
%apply_numpy_typemaps(double )
// Include the header file to be wrapped
%include "Fortran.h"
|
