Fixed missunderstand of the key para. for Comm_split(..),
Make MPI_Comm comm0,comm1... became an array to get shorter source code