: #a020f0;">subroutine</span> <span style="color: #0000ff;">do_transfers_dp</span>(comms,data1,data2,g1,g2,bridge_comm)

     <span style="color: #a020f0;">use</span> <span style="color: #0000ff;">mpi</span>
     <span style="color: #228b22;">integer</span>, <span style="color: #a020f0;">parameter</span> ::<span style="color: #a0522d;"> dp = selected_real_kind(10,100)</span>

     <span style="color: #228b22;">type(comm_t)</span>, <span style="color: #a020f0;">intent</span>(in), <span style="color: #a020f0;