ptypef.c: petscdatatypegetsize_

[Satish Balay]

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
> 
>