mpi_type_indexed (count, B, I, oldtype, newtype, ierr)
{(double, 64), (char, 72), (double, 80), (char, 88), (double, 96), (char, 104), (double, 0), (char, 8)}