323   int irstou;  in main()  local
336   openfile(fname,"write", &irstou);  in main()
340   writestring( &irstou,"# PHASTA Input File Version 2.0\n");  in main()
341   writestring( &irstou,  in main()
345   writestring( &irstou, fname );  in main()
347   writestring( &irstou, fname );  in main()
348   writestring( &irstou,"\n");  in main()
354   writeheader( &irstou, "byteorder magic number ",  in main()
358   writedatablock( &irstou, "byteorder magic number ",  in main()
371 		  writestring( &irstou, fname );  in main()
387 		  writeheader( &irstou,  in main()
394 		  writedatablock( &irstou,  in main()
422 		  writestring( &irstou, fname );  in main()
435 		  writeheader( &irstou,  in main()
442 		  writedatablock( &irstou,  in main()
458   closefile( &irstou, "write" );  in main()