Added  R/write_mat.r.win