You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
96 lines
2.4 KiB
96 lines
2.4 KiB
2 years ago
|
/*=========================================================================
|
||
|
|
|
||
|
|
Program: Visualization Toolkit
|
||
|
|
Module: $RCSfile: vtkFortran.h,v $
|
||
|
|
|
||
|
|
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
|
||
|
|
|