character(len=*), parameter :: version ='TERREAD r'