18 Nov
2009
18 Nov
'09
9:29 a.m.
I have:
void PETSC_STDCALL petscdatatypegetsize_(PetscDataType *ptype,size_t *size, int *__ierr ){ *__ierr = PetscDataTypeGetSize(*ptype,size); } <<<<<<<
Perhaps you have an old sowing/bfort package? satish On Wed, 18 Nov 2009, Jed Brown wrote:
I'm not getting a correct wrapper for PetscDataTypeGetSize.
#define PetscToPointer(a) (*(long *)(a))
void PETSC_STDCALL petscdatatypegetsize_(PetscDataType *ptype,size_t *size, int *__ierr ){ *__ierr = PetscDataTypeGetSize(*ptype, (size_t* )PetscToPointer((size) )); }
Note that size is being dereferenced but should not be. This causes sys/examples/tutorials/ex5f90 to be broken.
Jed