500     char fmode[10];  in Write_Field()  local
502       strcpy(fmode,"write");  in Write_Field()
504       strcpy(fmode,"append");  in Write_Field()
616     char fmode[10];  in Write_PhAvg()  local
618       strcpy(fmode,"write");  in Write_PhAvg()
620       strcpy(fmode,"append");  in Write_PhAvg()
628     openfile(rfile, fmode, &irstou);  in Write_PhAvg()
630     if(!strcmp(fmode,"write")) {  in Write_PhAvg()
675     closefile( &irstou, fmode);  in Write_PhAvg()
731     char fmode[10];  in Write_PhAvg2()  local
733       strcpy(fmode,"write");  in Write_PhAvg2()
735       strcpy(fmode,"append");  in Write_PhAvg2()