Update writedat.m