Write out also receives

Author: jussienko

message-chain-sendrecv/cpp/solution/chain-sendrecv.cpp

@@ -47,6 +47,8 @@ int main(int argc, char *argv[])
                  MPI_COMM_WORLD, &status);
     printf("Sender: %d. Sent elements: %d. Tag: %d. Receiver: %d\n",
            myid, size, myid + 1, destination);
+    printf("Receiver: %d. first element %d.\n",
+           myid, receiveBuffer[0]);
 
     // Finalize measuring the time and print it out
     t1 = MPI_Wtime();

message-chain-sendrecv/fortran/solution/chain-sendrecv.F90

@@ -44,6 +44,8 @@ program basic
        ' Sent elements: ', size, &
        '. Tag: ', myid + 1, &
        '. Receiver: ', destination
+  write(*,'(A10,I3,A,I3)') 'Receiver: ', myid, &
+          ' First element: ', receiveBuffer(1)
 
   ! Finalize measuring the time and print it out
   t1 = mpi_wtime()