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