391     char *fieldlabel = NULL;  in Write_Field()  local
414     fieldlabel = (char *)malloc((*tagsize+1)*sizeof(char));  in Write_Field()
415     strncpy(fieldlabel, fieldtag, *tagsize);  in Write_Field()
416     fieldlabel[*tagsize] = '\0';  in Write_Field()
421       printf("The %d/%d th field to be written is '%s'\n",field_flag,nfields,fieldlabel);  in Write_Field()
431     phio_writeheader(f_descriptor, fieldlabel, (void*)iarray, &nitems,  in Write_Field()
434     phio_writedatablock(f_descriptor, fieldlabel, array, &isize,  in Write_Field()
444     free(fieldlabel);  in Write_Field()
461     char *fieldlabel = NULL;  in Write_PhAvg2()  local
482     fieldlabel = (char *)malloc((tagsize2+1)*sizeof(char));  in Write_PhAvg2()
483     strncpy(fieldlabel, fieldtag, *tagsize);  in Write_PhAvg2()
484     fieldlabel[tagsize2] = '\0';  in Write_PhAvg2()
489       fieldlabel[tagsize2-1]=straddtagsize[0];  in Write_PhAvg2()
492       fieldlabel[tagsize2-2]=straddtagsize[0];  in Write_PhAvg2()
493       fieldlabel[tagsize2-1]=straddtagsize[1];  in Write_PhAvg2()
496       fieldlabel[tagsize2-3]=straddtagsize[0];  in Write_PhAvg2()
497       fieldlabel[tagsize2-2]=straddtagsize[1];  in Write_PhAvg2()
498       fieldlabel[tagsize2-1]=straddtagsize[2];  in Write_PhAvg2()
515       printf("The %d/%d th field to be written is '%s'\n",field_flag,nfields,fieldlabel);  in Write_PhAvg2()
524     phio_writeheader(f_descriptor, fieldlabel, (void*)iarray, &nitems,  in Write_PhAvg2()
527     phio_writedatablock(f_descriptor, fieldlabel, array, &isize,  in Write_PhAvg2()
535     free(fieldlabel);  in Write_PhAvg2()