53     int irank;  in Write_M2NFixBnd()  local
57     irank = *pid;  in Write_M2NFixBnd()
70       int startpart = irank * nppp +1;// Part id from which I (myrank) start ...  in Write_M2NFixBnd()
78       sprintf(filename,"restartRed-dat.%d.%d",*stepno,((int)(irank/(nprocs/nfiles))+1));  in Write_M2NFixBnd()
192     int irank;  in Write_M2NFixBnd_SolOnly()  local
202     irank = *pid; //workfc.myrank;  in Write_M2NFixBnd_SolOnly()
209     int startpart = irank * nppp +1;// Part id from which I (myrank) start ...  in Write_M2NFixBnd_SolOnly()
217     sprintf(filename,"restartRed-dat.%d.%d",*stepno,((int)(irank/(nprocs/nfiles))+1));  in Write_M2NFixBnd_SolOnly()
282     int irank;  in Write_Restart()  local
292     irank = *pid; //workfc.myrank;  in Write_Restart()
299     int startpart = irank * nppp +1;// Part id from which I (myrank) start ...  in Write_Restart()
307     sprintf(filename,"restart-dat.%d.%d",*stepno,((int)(irank/(nprocs/nfiles))+1));  in Write_Restart()
393     int irank;  in Write_Error()  local
399     irank = *pid; //workfc.myrank;  in Write_Error()
407     int startpart = irank * nppp +1;// Part id from which I (myrank) start ...  in Write_Error()
532     int irank;  in Write_Field()  local
542     irank = *pid; //workfc.myrank;  in Write_Field()
550     int startpart = irank * nppp +1;// Part id from which I (myrank) start ...  in Write_Field()
748     int irank;  in Write_PhAvg2()  local
754     irank = *pid; //workfc.myrank;  in Write_PhAvg2()
762     int startpart = irank * nppp +1;// Part id from which I (myrank) start ...  in Write_PhAvg2()
815     int irank;  in Write_d2wall()  local
825     irank = *pid; //workfc.myrank;  in Write_d2wall()
832     int startpart = irank * nppp +1;// Part id from which I (myrank) start ...  in Write_d2wall()
840     sprintf(filename,"d2wall.%d",((int)(irank/(nprocs/nfiles))+1));  in Write_d2wall()
842     if (irank==0) {  in Write_d2wall()
875        if (irank==0) {  in Write_d2wall()