30 Write_AcuStat(  int* pid,  in Write_AcuStat()  argument
54     irank = *pid;  in Write_AcuStat()
77     if (*pid==0) {  in Write_AcuStat()
111       if (*pid==0) {  in Write_AcuStat()
122 Write_AcuStat2(  int* pid,  in Write_AcuStat2()  argument
151     irank = *pid;  in Write_AcuStat2()
173     if (*pid==0) {  in Write_AcuStat2()
271       if (*pid==0) {  in Write_AcuStat2()
281 Write_Ybar(     int* pid,  in Write_Ybar()  argument
313     irank = *pid; //workfc.myrank;  in Write_Ybar()
333     if (*pid==0) {  in Write_Ybar()
365       if (*pid==0) {  in Write_Ybar()
372 Write_Restart(  int* pid,  in Write_Restart()  argument
401     irank = *pid; //workfc.myrank;  in Write_Restart()
420     if (*pid==0) {  in Write_Restart()
473        if (*pid==0) {  in Write_Restart()
481 Write_Error(  int* pid,  in Write_Error()  argument
508     irank = *pid; //workfc.myrank;  in Write_Error()
528         if(*pid==0) {  in Write_Error()
545       if (*pid==0) {  in Write_Error()
554 Write_Displ(  int* pid,  in Write_Displ()  argument
571     sprintf(rfile,"restart.%d.%d",*stepno,*pid+1);  in Write_Displ()
586 Write_Field(  int *pid,  in Write_Field()  argument
651     irank = *pid; //workfc.myrank;  in Write_Field()
668     if(*pid==0) {  in Write_Field()
692       if (*pid==0) {  in Write_Field()
702 Write_PhAvg(  int* pid,  in Write_PhAvg()  argument
715     sprintf(rfile,"restart_phase_avg_%d.%d.%d",*stepno,*iphase,*pid+1);  in Write_PhAvg()
790 Write_PhAvg2( int* pid,  in Write_PhAvg2()  argument
863     irank = *pid; //workfc.myrank;  in Write_PhAvg2()
878     if(*pid==0) {  in Write_PhAvg2()
902       if (*pid==0) {  in Write_PhAvg2()
912 Write_d2wall(   int* pid,  in Write_d2wall()  argument
934     irank = *pid; //workfc.myrank;  in Write_d2wall()