54     int irank;  in Write_M2N()  local
61     irank = *pid;  in Write_M2N()
65     if (irank < *irankN) mustwrite = 1;  in Write_M2N()
66     MPI_Comm_split(MPI_COMM_WORLD, mustwrite, irank, &mpi_comm_local);  in Write_M2N()
69     if (irank < *irankN) { // Only these ranks write syncio files within mpi_comm_local  in Write_M2N()
81       int startpart = irank * nppp +1;// Part id from which I (myrank) start ...  in Write_M2N()
89       sprintf(filename,"restartRedTmp-dat.%d.%d",*stepno,((int)(irank/(nprocs/nfiles))+1));  in Write_M2N()
206     int irank;  in Write_M2N_SolOnly()  local
213     irank = *pid;  in Write_M2N_SolOnly()
217     if (irank < *irankN) mustwrite = 1;  in Write_M2N_SolOnly()
218     MPI_Comm_split(MPI_COMM_WORLD, mustwrite, irank, &mpi_comm_local);  in Write_M2N_SolOnly()
221     if (irank < *irankN) { // Only these ranks write syncio files within mpi_comm_local  in Write_M2N_SolOnly()
233        int startpart = irank * nppp +1;// Part id from which I (myrank) start ...  in Write_M2N_SolOnly()
241        sprintf(filename,"restartRedTmp-dat.%d.%d",*stepno,((int)(irank/(nprocs/nfiles))+1));  in Write_M2N_SolOnly()
332     int irank;  in Write_M2N_Field()  local
335     irank = *pid; //workfc.myrank;  in Write_M2N_Field()
337     if (irank < *irankN) { // Only these ranks write syncio files within mpi_comm_local  in Write_M2N_Field()
350       int startpart = irank * nppp +1;// Part id from which I (myrank) start ...  in Write_M2N_Field()
462     int irank;  in Write_M2N_PhAvg2()  local
465     irank = *pid; //workfc.myrank;  in Write_M2N_PhAvg2()
466     if (irank < *irankN) { // Only these ranks write syncio files within mpi_comm_local  in Write_M2N_PhAvg2()
478        int startpart = irank * nppp +1;// Part id from which I (myrank) start ...  in Write_M2N_PhAvg2()
540     int irank;  in Write_Restart()  local
550     irank = *pid; //workfc.myrank;  in Write_Restart()
557     int startpart = irank * nppp +1;// Part id from which I (myrank) start ...  in Write_Restart()
565     sprintf(filename,"restart-dat.%d.%d",*stepno,((int)(irank/(nprocs/nfiles))+1));  in Write_Restart()
651     int irank;  in Write_Error()  local
657     irank = *pid; //workfc.myrank;  in Write_Error()
665     int startpart = irank * nppp +1;// Part id from which I (myrank) start ...  in Write_Error()
790     int irank;  in Write_Field()  local
800     irank = *pid; //workfc.myrank;  in Write_Field()
808     int startpart = irank * nppp +1;// Part id from which I (myrank) start ...  in Write_Field()
1006     int irank;  in Write_PhAvg2()  local
1012     irank = *pid; //workfc.myrank;  in Write_PhAvg2()
1020     int startpart = irank * nppp +1;// Part id from which I (myrank) start ...  in Write_PhAvg2()
1073     int irank;  in Write_d2wall()  local
1083     irank = *pid; //workfc.myrank;  in Write_d2wall()
1090     int startpart = irank * nppp +1;// Part id from which I (myrank) start ...  in Write_d2wall()
1098     sprintf(filename,"d2wall.%d",((int)(irank/(nprocs/nfiles))+1));  in Write_d2wall()
1100     if (irank==0) {  in Write_d2wall()
1133       if (irank==0) {  in Write_d2wall()