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 F90Array1dCreate(void*,PetscDataType,int,int,F90Array1d*);
16: EXTERN PetscErrorCode F90Array1dAccess(F90Array1d*,void**);
17: EXTERN PetscErrorCode F90Array1dDestroy(F90Array1d*);
18: EXTERN PetscErrorCode F90Array1dGetNextRecord(F90Array1d*,void**);
20: EXTERN PetscErrorCode F90Array2dCreate(void*,PetscDataType,int,int,int,int,F90Array2d*);
21: EXTERN PetscErrorCode F90Array2dAccess(F90Array2d*,void**);
22: EXTERN PetscErrorCode F90Array2dDestroy(F90Array2d*);
23: EXTERN PetscErrorCode F90Array2dGetNextRecord(F90Array2d*,void**);
25: /*
26: EXTERN PetscErrorCode F90Array1dGetInfo(F90Array1d*,PetscDataType*,int*,int*);
27: EXTERN PetscErrorCode 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