let update_groups_project_dgrad pnum dgrad = List.iter (fun g -> update_group_project_dgrad g pnum dgrad) !num_groups