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