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: /*-------------------------------------------------------------*/
14: #undef __FUNCT__
16: int F90Array1dAccess(F90Array1d *ptr,void **array)
17: {
21: *array = ptr->addr;
22: return(0);
23: }
25: #undef __FUNCT__
27: int F90Array1dDestroy(F90Array1d *ptr)
28: {
31: ptr->addr = (void *)0;
32: return(0);
33: }
34: #undef __FUNCT__
36: int F90Array1dGetNextRecord(F90Array1d *ptr,void **next)
37: {
40: *next = (void*)(ptr + 1);
41: return(0);
42: }
44: /*-------------------------------------------------------------*/
46: #undef __FUNCT__
48: int F90Array2dAccess(F90Array2d *ptr,void **array)
49: {
53: *array = ptr->addr;
54: return(0);
55: }
57: #undef __FUNCT__
59: int F90Array2dDestroy(F90Array2d *ptr)
60: {
63: ptr->addr = (void *)0;
64: return(0);
65: }
66: #undef __FUNCT__
68: int F90Array2dGetNextRecord(F90Array2d *ptr,void **next)
69: {
72: *next = (void*)(ptr + 1);
73: return(0);
74: }
75: /*-------------------------------------------------------------*/
77: #endif