Actual source code: petscf90.h

     4:  #include petsc.h

      7: #if defined PETSC_HAVE_F90_H
      8: #include PETSC_HAVE_F90_H

     10: /* Check if PETSC_HAVE_F90_C is also specified */
     11: #if !defined(PETSC_HAVE_F90_C)
     12: #error "Both PETSC_HAVE_F90_H and PETSC_HAVE_F90_C flags have to be speficied"
     13: #endif

     15: EXTERN PetscErrorCode PETSC_DLLEXPORT F90Array1dCreate(void*,PetscDataType,int,int,F90Array1d*);
     16: EXTERN PetscErrorCode PETSC_DLLEXPORT F90Array1dAccess(F90Array1d*,void**);
     17: EXTERN PetscErrorCode PETSC_DLLEXPORT F90Array1dDestroy(F90Array1d*);
     18: EXTERN PetscErrorCode PETSC_DLLEXPORT F90Array1dGetNextRecord(F90Array1d*,void**);

     20: EXTERN PetscErrorCode PETSC_DLLEXPORT F90Array2dCreate(void*,PetscDataType,int,int,int,int,F90Array2d*);
     21: EXTERN PetscErrorCode PETSC_DLLEXPORT F90Array2dAccess(F90Array2d*,void**);
     22: EXTERN PetscErrorCode PETSC_DLLEXPORT F90Array2dDestroy(F90Array2d*);
     23: EXTERN PetscErrorCode PETSC_DLLEXPORT F90Array2dGetNextRecord(F90Array2d*,void**);

     25: /*
     26: EXTERN PetscErrorCode PETSC_DLLEXPORT F90Array1dGetInfo(F90Array1d*,PetscDataType*,int*,int*);
     27: EXTERN PetscErrorCode PETSC_DLLEXPORT F90Array2dGetInfo(F90Array2d*,PetscDataType*,int*,int*,int*,int*);
     28: */

     30: /*
     31:   F90Array1dCreate - Given a C pointer to a one dimensional
     32:   array and its length; this fills in the appropriate Fortran 90
     33:   pointer data structure.

     35:   Input Parameters:
     36: +   array - regular C pointer (address)
     37: .   type  - DataType of the array
     38: .   start - starting index of the array
     39: -   len   - length of array (in items)

     41:   Output Parameters:
     42: .   ptr - Fortran 90 pointer
     43: */

     45: #endif
     47: #endif