0f0;">pointer</span> :: <span style="color: #a0522d;">c</span>

     <span style="color: #a020f0;">call</span>  <span style="color: #0000ff;">MPI_Comm_Rank</span>( bridge_comm, myid, ierr )
<span style="color: #b22222;">!     </span><span style="color: #b22222;">print *, "Entering transfer_dp"</span>
<span style="color: #b22222;">!     </span><span style="color: #b22222;">print *, "rank, Associated data1: ", myid, associated(data1)</span>
<span style="color: #b22222;">!     </span><span style="color: #b2222