Commits

Jed Brown committed f0da2c2 Merge

Merge branch 'jed/pcmg-residual-underscore' (early part) into maint

* 'jed/pcmg-residual-underscore' (early part):
Fortran: PCMGResidual_Default needs to handle double-underscore

Comments (0)

Files changed (1)

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