let find_nodes_all_x_dpds dpd_type pdg nodes =
let merge_dpds node_list node =
let node_dpds = direct_x_dpds dpd_type pdg node in
add_nodes_and_custom_dpds (direct_dpds pdg) node_list node_dpds
in
List.fold_left merge_dpds [] nodes