VTK
vtkFortran.h
Go to the documentation of this file.
1/*=========================================================================
2
3 Program: Visualization Toolkit
4 Module: vtkFortran.h
5
6 Copyright (c) Ken Martin, Will Schroeder, Bill Lorensen
7 All rights reserved.
8 See Copyright.txt or http://www.kitware.com/Copyright.htm for details.
9
10 This software is distributed WITHOUT ANY WARRANTY; without even
11 the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
12 PURPOSE. See the above copyright notice for more information.
13
14=========================================================================*/
15
40#ifndef vtkFortran_h
41#define vtkFortran_h
42
43#define VTK_FORTRAN_NAME(name, NAME) \
44 name##__
45
46#define VTK_FORTRAN_ARG_STRING(__arg) \
47 const char *__arg##_string, unsigned int __arg##_length
48
49#define VTK_FORTRAN_REF_STRING_POINTER(__arg) \
50 __arg##_string
51
52#define VTK_FORTRAN_REF_STRING_LENGTH(__arg) \
53 __arg##_length
54
55#define VTK_FORTRAN_ARG_INTEGER4(data) \
56 int *data
57
58#define VTK_FORTRAN_ARG_REAL4_ARRAY_1D(array) \
59 float *array
60
61#define VTK_FORTRAN_ARG_INTEGER8(size) \
62 vtkIdType *size
63
64#define VTK_FORTRAN_REF_REAL4_ARRAY_1D(array) \
65 array
66
67#define VTK_FORTRAN_ARG_INTEGER8_ARRAY_1D(array) \
68 vtkIdType *array
69
70#define VTK_FORTRAN_REF_INTEGER8_ARRAY_1D(array) \
71 array
72
73#define VTK_FORTRAN_REF_INTEGER4(data) \
74 *data
75
76#define VTK_FORTRAN_REF_INTEGER8(data) \
77 *data
78
79#define VTK_FORTRAN_ARG_INTEGER4_ARRAY_1D(array) \
80 int *array
81
82#define VTK_FORTRAN_ARG_REAL8(t) \
83 double *t
84
85#define VTK_FORTRAN_REF_REAL8(t) \
86 *t
87
88#define VTK_FORTRAN_ARG_INT4(n) \
89 int *n
90
91#define VTK_FORTRAN_REF_INT4(n) \
92 *n
93
94#endif
95