call mpi_sendrecv ( a(soffset), nsuperblks, newtype, dest, 0, b(roffset), nsuperblks, newtype, source, 0, redistcomm, status, ierr)