Actual source code: f90_common.c
1: /*$Id: f90_common.c,v 1.8 2001/03/23 23:20:56 balay Exp $*/
3: #include "petscf90.h"
5: #if defined PETSC_HAVE_F90_C
6: #include PETSC_HAVE_F90_C
8: /* Check if PETSC_HAVE_F90_H is also specified */
9: #if !defined(PETSC_HAVE_F90_H)
10: #error "Both PETSC_HAVE_F90_H and PETSC_HAVE_F90_C flags have to be specified in petscconf.h"
11: #endif
13: /* Nag uses char * instead of void* ??? */
15: #define Pointer void*
16: #endif
17: /*-------------------------------------------------------------*/
20: int F90Array1dAccess(F90Array1d *ptr,void **array)
21: {
25: *array = ptr->addr;
26: return(0);
27: }
31: int F90Array1dDestroy(F90Array1d *ptr)
32: {
35: ptr->addr = (Pointer)0;
36: return(0);
37: }
40: int F90Array1dGetNextRecord(F90Array1d *ptr,void **next)
41: {
44: *next = (void*)(ptr + 1);
45: return(0);
46: }
48: /*-------------------------------------------------------------*/
52: int F90Array2dAccess(F90Array2d *ptr,void **array)
53: {
57: *array = ptr->addr;
58: return(0);
59: }
63: int F90Array2dDestroy(F90Array2d *ptr)
64: {
67: ptr->addr = (Pointer)0;
68: return(0);
69: }
72: int F90Array2dGetNextRecord(F90Array2d *ptr,void **next)
73: {
76: *next = (void*)(ptr + 1);
77: return(0);
78: }
79: /*-------------------------------------------------------------*/
81: #endif