1: module petsckspdef 2: use, intrinsic :: ISO_C_binding 3: use petscdmdef 5: #include <../ftn/ksp/petscall.h> 6: end module petsckspdef 8: ! ---------------------------------------------- 10: module petscksp 11: use petscdm 12: use petsckspdef 14: #include <../src/ksp/ftn-mod/petscksp.h90> 15: #include <../ftn/ksp/petscall.h90> 17: contains 19: #include <../ftn/ksp/petscall.hf90> 21: end module petscksp