598     char *fieldlabel = (char *)malloc((*tagsize+1)*sizeof(char));  in Write_Field()  local
599     strncpy(fieldlabel, fieldtag, *tagsize);  in Write_Field()
600     fieldlabel[*tagsize] = '\0';  in Write_Field()
665     strncpy(fieldlabel, fieldtag, *tagsize);  in Write_Field()
670       printf("The %d/%d th field to be written is '%s'\n",field_flag,nfields,fieldlabel);  in Write_Field()
678         sprintf(fieldtag_s,"%s@%d",fieldlabel,GPID);  in Write_Field()
698     free(fieldlabel);  in Write_Field()
717     char *fieldlabel = (char *)malloc((*tagsize+1)*sizeof(char));  in Write_PhAvg()  local
718     strncpy(fieldlabel, fieldtag, *tagsize);  in Write_PhAvg()
719     fieldlabel[*tagsize] = '\0';  in Write_PhAvg()
781     writeheader( &irstou, fieldlabel, (void*)iarray, &nitems, &isize, datatype, phasta_iotype );  in Write_PhAvg()
782     writedatablock( &irstou, fieldlabel, array, &isize, datatype, phasta_iotype );  in Write_PhAvg()
786     free(fieldlabel);  in Write_PhAvg()
813     char *fieldlabel = (char *)malloc((tagsize2+1)*sizeof(char));  in Write_PhAvg2()  local
814     strncpy(fieldlabel, fieldtag, *tagsize);  in Write_PhAvg2()
815     fieldlabel[tagsize2] = '\0';  in Write_PhAvg2()
821       fieldlabel[tagsize2-1]=straddtagsize[0];  in Write_PhAvg2()
824       fieldlabel[tagsize2-2]=straddtagsize[0];  in Write_PhAvg2()
825       fieldlabel[tagsize2-1]=straddtagsize[1];  in Write_PhAvg2()
828       fieldlabel[tagsize2-3]=straddtagsize[0];  in Write_PhAvg2()
829       fieldlabel[tagsize2-2]=straddtagsize[1];  in Write_PhAvg2()
830       fieldlabel[tagsize2-1]=straddtagsize[2];  in Write_PhAvg2()
880       printf("The %d/%d th field to be written is '%s'\n",field_flag,nfields,fieldlabel);  in Write_PhAvg2()
888         sprintf(fieldtag_s,"%s@%d",fieldlabel,GPID);  in Write_PhAvg2()
907     free(fieldlabel);  in Write_PhAvg2()