mpi_type_contiguous (count, oldtype, newtype, ierr)
oldtype = {(double, 0), (char, 8)}
newtype = {(double, 0), (char, 8) (double, 16), (char, 24) (double, 32), (char, 40)}