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
|
/*=========================================================================
Program: Visualization Toolkit
Module: vtkFortran.h
Copyright (c) Ken Martin, Will Schroeder, Bill Lorensen
All rights reserved.
See Copyright.txt or http://www.kitware.com/Copyright.htm for details.
This software is distributed WITHOUT ANY WARRANTY; without even
the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
PURPOSE. See the above copyright notice for more information.
=========================================================================*/
/**
* The whole pupose of this header file is to allow us to 'wrap' a c library
* into Fortran. Here are the basic goals we should reach:
*
* 1. The symbol mangling in fortan is different than is C. For example if
* you do this fortan:
* CALL Foo()
* you either need to define a symbol:
* - void FOO()
* - void foo()
* - void FOO_()
* - void foo_()
*
* 2. Passing array, Fortran start at 1 instead of 0.
*
* 3. Passing STRING array from fortran to C is a bit more tricky.
*
* For more information refer to:
* [ FORTRAN/C INTEROPERABILITY ]
* http://www.ibiblio.org/pub/languages/fortran/ch1-11.html
*
* [ Data Type Compatibility ]
* http://www.ictp.trieste.it/~manuals/programming/sun/fortran/prog_guide/11_cfort.doc.html
*/
#ifndef vtkFortran_h
#define vtkFortran_h
#define VTK_FORTRAN_NAME(name, NAME) \
name##__
#define VTK_FORTRAN_ARG_STRING(__arg) \
const char *__arg##_string, unsigned int __arg##_length
#define VTK_FORTRAN_REF_STRING_POINTER(__arg) \
__arg##_string
#define VTK_FORTRAN_REF_STRING_LENGTH(__arg) \
__arg##_length
#define VTK_FORTRAN_ARG_INTEGER4(data) \
int *data
#define VTK_FORTRAN_ARG_REAL4_ARRAY_1D(array) \
float *array
#define VTK_FORTRAN_ARG_INTEGER8(size) \
vtkIdType *size
#define VTK_FORTRAN_REF_REAL4_ARRAY_1D(array) \
array
#define VTK_FORTRAN_ARG_INTEGER8_ARRAY_1D(array) \
vtkIdType *array
#define VTK_FORTRAN_REF_INTEGER8_ARRAY_1D(array) \
array
#define VTK_FORTRAN_REF_INTEGER4(data) \
*data
#define VTK_FORTRAN_REF_INTEGER8(data) \
*data
#define VTK_FORTRAN_ARG_INTEGER4_ARRAY_1D(array) \
int *array
#define VTK_FORTRAN_ARG_REAL8(t) \
double *t
#define VTK_FORTRAN_REF_REAL8(t) \
*t
#define VTK_FORTRAN_ARG_INT4(n) \
int *n
#define VTK_FORTRAN_REF_INT4(n) \
*n
#endif
|
