|
VTK
|
00001 /*========================================================================= 00002 00003 Program: Visualization Toolkit 00004 Module: vtkFortran.h 00005 00006 Copyright (c) Ken Martin, Will Schroeder, Bill Lorensen 00007 All rights reserved. 00008 See Copyright.txt or http://www.kitware.com/Copyright.htm for details. 00009 00010 This software is distributed WITHOUT ANY WARRANTY; without even 00011 the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR 00012 PURPOSE. See the above copyright notice for more information. 00013 00014 =========================================================================*/ 00015 00040 #ifndef vtkFortran_h 00041 #define vtkFortran_h 00042 00043 #define VTK_FORTRAN_NAME(name, NAME) \ 00044 name##__ 00045 00046 #define VTK_FORTRAN_ARG_STRING(__arg) \ 00047 const char *__arg##_string, unsigned int __arg##_length 00048 00049 #define VTK_FORTRAN_REF_STRING_POINTER(__arg) \ 00050 __arg##_string 00051 00052 #define VTK_FORTRAN_REF_STRING_LENGTH(__arg) \ 00053 __arg##_length 00054 00055 #define VTK_FORTRAN_ARG_INTEGER4(data) \ 00056 int *data 00057 00058 #define VTK_FORTRAN_ARG_REAL4_ARRAY_1D(array) \ 00059 float *array 00060 00061 #define VTK_FORTRAN_ARG_INTEGER8(size) \ 00062 vtkIdType *size 00063 00064 #define VTK_FORTRAN_REF_REAL4_ARRAY_1D(array) \ 00065 array 00066 00067 #define VTK_FORTRAN_ARG_INTEGER8_ARRAY_1D(array) \ 00068 vtkIdType *array 00069 00070 #define VTK_FORTRAN_REF_INTEGER8_ARRAY_1D(array) \ 00071 array 00072 00073 #define VTK_FORTRAN_REF_INTEGER4(data) \ 00074 *data 00075 00076 #define VTK_FORTRAN_REF_INTEGER8(data) \ 00077 *data 00078 00079 #define VTK_FORTRAN_ARG_INTEGER4_ARRAY_1D(array) \ 00080 int *array 00081 00082 #define VTK_FORTRAN_ARG_REAL8(t) \ 00083 double *t 00084 00085 #define VTK_FORTRAN_REF_REAL8(t) \ 00086 *t 00087 00088 #define VTK_FORTRAN_ARG_INT4(n) \ 00089 int *n 00090 00091 #define VTK_FORTRAN_REF_INT4(n) \ 00092 *n 00093 00094 #endif 00095
1.8.0