--Fixed line length problem in simpledataiof.F95