Actual source code: f90impl.h

  4: #include <private/fortranimpl.h>

  7: /* PGI compilers pass in f90 pointers as 2 arguments */
  8: #if defined(PETSC_HAVE_F90_2PTR_ARG)
  9: #define PETSC_F90_2PTR_PROTO_NOVAR ,void*
 10: #define PETSC_F90_2PTR_PROTO(ptr) ,void* ptr
 11: #define PETSC_F90_2PTR_PARAM(ptr) , ptr
 12: #else
 13: #define PETSC_F90_2PTR_PROTO_NOVAR
 14: #define PETSC_F90_2PTR_PROTO(ptr)
 15: #define PETSC_F90_2PTR_PARAM(ptr)
 16: #endif

 18: #if defined (PETSC_USING_F90)

 20: #define F90Array1d void
 21: #define F90Array2d void
 22: #define F90Array3d void
 23: #define F90Array4d void





 45: /* 
 48: */

 50: /*
 51:   F90Array1dCreate - Given a C pointer to a one dimensional
 52:   array and its length; this fills in the appropriate Fortran 90
 53:   pointer data structure.

 55:   Input Parameters:
 56: +   array - regular C pointer (address)
 57: .   type  - DataType of the array
 58: .   start - starting index of the array
 59: -   len   - length of array (in items)

 61:   Output Parameters:
 62: .   ptr - Fortran 90 pointer
 63: */

 65: #endif /* PETSC_USING_F90 */
 67: #endif