30 Write_M2N(      int* pid,  in Write_M2N()  argument
61     irank = *pid;  in Write_M2N()
90       if (*pid==0) {  in Write_M2N()
187 Write_M2N_SolOnly(     int* pid,  in Write_M2N_SolOnly()  argument
213     irank = *pid;  in Write_M2N_SolOnly()
242        if (*pid==0) {  in Write_M2N_SolOnly()
276          if (*pid==0) {  in Write_M2N_SolOnly()
287 Write_M2N_Field(  int* pid,  in Write_M2N_Field()  argument
335     irank = *pid; //workfc.myrank;  in Write_M2N_Field()
359       if(*pid==0) {  in Write_M2N_Field()
383         if (*pid==0) {  in Write_M2N_Field()
394 Write_M2N_PhAvg2( int* pid,  in Write_M2N_PhAvg2()  argument
465     irank = *pid; //workfc.myrank;  in Write_M2N_PhAvg2()
485        if(*pid==0) {  in Write_M2N_PhAvg2()
511          if (*pid==0) {  in Write_M2N_PhAvg2()
521 Write_Restart(  int* pid,  in Write_Restart()  argument
550     irank = *pid; //workfc.myrank;  in Write_Restart()
569     if (*pid==0) {  in Write_Restart()
622        if (*pid==0) {  in Write_Restart()
630 Write_Error(  int* pid,  in Write_Error()  argument
657     irank = *pid; //workfc.myrank;  in Write_Error()
677         if(*pid==0) {  in Write_Error()
694       if (*pid==0) {  in Write_Error()
703 Write_Displ(  int* pid,  in Write_Displ()  argument
720     sprintf(rfile,"restart.%d.%d",*stepno,*pid+1);  in Write_Displ()
735 Write_Field(  int *pid,  in Write_Field()  argument
800     irank = *pid; //workfc.myrank;  in Write_Field()
817     if(*pid==0) {  in Write_Field()
841       if (*pid==0) {  in Write_Field()
851 Write_PhAvg(  int* pid,  in Write_PhAvg()  argument
864     sprintf(rfile,"restart_phase_avg_%d.%d.%d",*stepno,*iphase,*pid+1);  in Write_PhAvg()
939 Write_PhAvg2( int* pid,  in Write_PhAvg2()  argument
1012     irank = *pid; //workfc.myrank;  in Write_PhAvg2()
1027     if(*pid==0) {  in Write_PhAvg2()
1051       if (*pid==0) {  in Write_PhAvg2()
1061 Write_d2wall(   int* pid,  in Write_d2wall()  argument
1083     irank = *pid; //workfc.myrank;  in Write_d2wall()