399               int* iphase,  in Write_M2N_PhAvg2()  argument
408     if(*iphase<10)  in Write_M2N_PhAvg2()
410     else if(*iphase<100)  in Write_M2N_PhAvg2()
412     else if(*iphase<1000)  in Write_M2N_PhAvg2()
423     sprintf(straddtagsize,"%d",*iphase);  in Write_M2N_PhAvg2()
425     if(*iphase<10) {  in Write_M2N_PhAvg2()
428     else if(*iphase<100) {  in Write_M2N_PhAvg2()
432     else if(*iphase<1000) {  in Write_M2N_PhAvg2()
855               int* iphase,  in Write_PhAvg()  argument
864     sprintf(rfile,"restart_phase_avg_%d.%d.%d",*stepno,*iphase,*pid+1);  in Write_PhAvg()
943               int* iphase,  in Write_PhAvg2()  argument
952     if(*iphase<10)  in Write_PhAvg2()
954     else if(*iphase<100)  in Write_PhAvg2()
956     else if(*iphase<1000)  in Write_PhAvg2()
967     sprintf(straddtagsize,"%d",*iphase);  in Write_PhAvg2()
969     if(*iphase<10) {  in Write_PhAvg2()
972     else if(*iphase<100) {  in Write_PhAvg2()
976     else if(*iphase<1000) {  in Write_PhAvg2()