My MPI program does not execute properly. MPI_Gather & MPI_Scatter

Question

//Variables for MPI.
    int rc, numtasks, rank;
    int root = 0;
    int tag = 1;
  
    //For the struct.
    MPI_Datatype particletype, oldtype[1]; 
    int blockcou