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