[petsc-users] MatMumpsSetIcntl from Fortran

[Alexander Grayver]

Hi PETSc team,

Has anybody tried to use MatMumpsSetIcntl from Fortran?
Because when I try to call it I fall into infinite recursion in function:

  PetscErrorCode MatMumpsSetIcntl(Mat F,PetscInt icntl,PetscInt ival)
  {
    PetscErrorCode ierr;

    PetscFunctionBegin;
    PetscValidLogicalCollectiveInt(F,icntl,2);
    PetscValidLogicalCollectiveInt(F,ival,3);
    ierr = 
PetscTryMethod(F,"MatMumpsSetIcntl_C",(Mat,PetscInt,PetscInt),(F,icntl,ival));CHKERRQ(ierr);
    PetscFunctionReturn(0);
  }

At the moment when program crashes call stack looks like:

      __libc_memalign,                                         
FP=7fff342ca010
PetscMallocAlign,                                        FP=7fff342ca080
PetscTrMallocDefault,                                    FP=7fff342ca180
PetscStrallocpy,                                         FP=7fff342ca230
PetscFListGetPathAndFunction,                            FP=7fff342cb2e0
PetscFListFind,                                          FP=7fff342cb520
PetscObjectQueryFunction_Petsc,                          FP=7fff342cb590
PetscObjectQueryFunction,                                FP=7fff342cb620
MatMumpsSetIcntl,                                        FP=7fff342cb720
MatMumpsSetIcntl,                                        FP=7fff342cb820
MatMumpsSetIcntl,                                        FP=7fff342cb920
MatMumpsSetIcntl,                                        FP=7fff342cba20
MatMumpsSetIcntl,                                        FP=7fff342cbb20
MatMumpsSetIcntl,                                        FP=7fff342cbc20
MatMumpsSetIcntl,                                        FP=7fff342cbd20
MatMumpsSetIcntl,                                        FP=7fff342cbe20
MatMumpsSetIcntl,                                        FP=7fff342cbf20
... (Hundreds of MatMumpsSetIcntl) ...

What can I do about that?

Regards,
Alexander