program check_order
c
c       checks that entries in orb6.master are in proper RA order
c       (sorted by precise coordinates). Pairs not in order are
c       listed in the file "check_order.error".
c
        character*18 rad1,rad2,junk
c
        open(10,file='orb6.master',status='UNKNOWN')
        open(11,file='check_order.error',status='UNKNOWN')
c
c       read header lines
c
        do 100 n=1,4
        read(10,901) junk
  901   format(a1)
  100   continue
c
        read(10,902) rad1
  902   format(a18)
c
  200   read(10,902,end=999) rad2
        if (rad2 .eq. '                  ') go to 200
        if (rad2 .lt. rad1) write(11,903) rad1,rad2
  903   format(a18/a18/)
        rad1=rad2
        go to 200
c
  999   stop
        end