mpi_type_vector (count, blocklen,stride, oldtype, newtype, ierr)
{(double, 0), (char, 8), (double, 16), (char, 24), (double, 32), (char, 40), (double, 64), (char, 72), (double, 80), (char, 88), (double, 96), (char, 104)}