1: function ex61genm
2: %
3: % Writes a data file for ex61 that has a single point at the center as a radiation event
5: fd = PetscOpenFile('ex61.random.1','w');
6: write(fd,1,'int32');
7: write(fd,[0.0 .5 .5 1.0],'double');
8: close(fd);