abst_mesh
pure function get_type(self) result(type) implicit none class(abst_mesh), intent(in) :: self integer(int32) :: type type = self%type end function get_type