type, public :: watchgroup private type (watch_list), pointer:: head integer :: wgsize end type watchgroup