module my_module

implicit none
!!#include <petsc/finclude/petsc.h90>
#include <petsc/finclude/petscsysdef.h> 
#include <petsc/finclude/petscvecdef.h>
#include <petsc/finclude/petscmatdef.h>    
#include <petsc/finclude/petscpcdef.h>
#include <petsc/finclude/petsckspdef.h>    

contains

subroutine toto
implicit none
integer :: i

i=1

end subroutine toto

end module my_module