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