Ok, my module looks like this:
MODULE TYPEDEFS
type geoms
character*80 name
integer ntot, material
integer, allocatable :: id(:)
end type
type (geoms), allocatable :: geom(:)
END MODULE
As said, this module is used in the main program and in all subroutines.
From...