program convert_search
C
C convert search file
C =======================
C
C to compile:
C   fc convert_search.f
C to link:
C   mv a.out convert_search
C to run:
C   convert_search
C 
C run the following UNIX script after executing this file
C sort -r +3 search.convert > search.sort
C
      real t1, t2, rf
C
      open(unit=5,name='search.dat')
      open(unit=6,name='search.convert')
1     read(5,*,end=9999) t1,t2,t3,rf
C
      write(6,'(4F12.5)') 
     &   t1, t2, t3, rf
      goto 1
9999  stop
      end