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