write.adj function

Write a SaTScan adj file