Commits

Jed Brown committed 36f61ee

Fortran: PCMGResidual_Default needs to handle double-underscore

When PETSC_HAVE_FORTRAN_UNDERSCORE_UNDERSCORE, we must append two
underscores. If this function is to be public (as it seems to be
according to the man page), it should be named PCMGResidualDefault.

  • Participants
  • Parent commits 5f63075

Comments (0)

Files changed (1)

File src/ksp/pc/impls/mg/ftn-custom/zmgfuncf.c

 #define pcmgresidual_default_       pcmgresidual_default
 #endif
 
+#if defined(PETSC_HAVE_FORTRAN_UNDERSCORE_UNDERSCORE)
+#  defined pcmgresidual_default_       pcmgresidual_default__
+#endif
+
 typedef PetscErrorCode (*MVVVV)(Mat,Vec,Vec,Vec);
 static PetscErrorCode ourresidualfunction(Mat mat,Vec b,Vec x,Vec R)
 {