[petsc-users] error using GetType in FORTRAN

[Barry Smith]

  Looks like a bunch of these things are missing from lib/petsc/conf/bfort-petsc.txt  it should be listed under native

  Barry



> On Apr 17, 2015, at 4:43 PM, Matthew Knepley <knepley at gmail.com> wrote:
> 
> Does bfort have to be told that PCCompositeType is an enum?
> 
>    Matt "bfort's biggest fan"
> 
> On Fri, Apr 17, 2015 at 4:37 PM, Mark Adams <mfadams at lbl.gov> wrote:
> It looks like fieldsplitf.c has an extra PetscToPointer.  type is already a pointer:
> 
> PETSC_EXTERN void PETSC_STDCALL  pcfieldsplitgettype_(PC pc,PCCompositeType *type, int *__ierr ){
> *__ierr = PCFieldSplitGetType(
>     (PC)PetscToPointer((pc) ),
>     (PCCompositeType* )PetscToPointer((type) ));
> }
> 
> On Fri, Apr 17, 2015 at 4:12 PM, Barry Smith <bsmith at mcs.anl.gov> wrote:
> 
>    Likely need to run in the debugger to see what generates the error. Perhaps a missing ierr?
> 
> Barry
> 
> 
> > On Apr 17, 2015, at 9:10 AM, Mark Adams <mfadams at lbl.gov> wrote:
> >
> > I declare
> >
> >   PCCompositeType::pcctype
> >
> > But PCFieldSplitGetType does not seem to like it?
> >
> > Mark
> >
> > [1]PETSC ERROR: --------------------- Error Message --------------------------------------------------------------
> > [1]PETSC ERROR: Invalid pointer
> > [1]PETSC ERROR: Invalid Pointer to Int: Parameter # 2
> > [1]PETSC ERROR: See http://www.mcs.anl.gov/petsc/documentation/faq.html for trouble shooting.
> > [1]PETSC ERROR: Petsc Development GIT revision: v3.5.3-2702-g1f714da  GIT Date: 2015-04-16 11:32:06 -0500
> > [1]PETSC ERROR: ../../XGC1_3/xgc-em on a arch-macosx-gnu-g named MacBook-Pro.local by markadams Fri Apr 17 10:06:09 2015
> > [1]PETSC ERROR: Configure options --download-hypre=1 --download-p4est --download-superlu=1 --download-mumps --download-scalapack --download-superlu_dist=1 --download-parmetis=1 --download-metis=1 --download-triangle=1 --with-hdf5-dir=/Users/markadams/Codes/hdf5 --with-x=0 --with-debugging=1 PETSC_ARCH=arch-macosx-gnu-g
> > [1]PETSC ERROR: #1 PCFieldSplitGetType() line 2046 in /Users/markadams/Codes/petsc/src/ksp/pc/impls/fieldsplit/fieldsplit.c
> >
> 
> 
> 
> 
> 
> -- 
> What most experimenters take for granted before they begin their experiments is infinitely more interesting than any results to which their experiments lead.
> -- Norbert Wiener