program convert_fob
C
C convert reflection file
C =======================
C
      real fobs, sigma
      integer h,k,l
      character*80 line
C
      write(6,1000) 'Enter input mulist:'
1000  format(a)
      read(5,1000) line
      open(unit=1,file=line,form='formatted',status='old')
      write(6,1000) 'Enter output fobs:'
      read(5,1000) line
      open(unit=2,file=line,form='formatted',status='new')
1     read(1,'(3i4,7x,2f9.2)',end=9999) h,k,l,fobs,sigma
C
      if(sigma.gt.9000.)goto 1
      write(2,'(A,3I4,A,F8.2,A,F8.2)') 
     &   ' index ',h,k,l,' fobs=',fobs,' sigma=',sigma
      goto 1
9999  stop
      end