program testrle
        character*1024 astr,bstr,cstr
 1      read (*,'(a)',end=900) astr
        bstr = ' '
        call xxrle(astr,bstr,mlen)
        cstr = ' '
        call xxrld(cstr,bstr)
        if (astr.ne.cstr) then
          print *,' mismatch ','astr=',astr(1:lastnb(astr)),
     *      'cstr=',cstr(1:lastnb(cstr))
          print *,(ichar(bstr(ii:ii)),ii=1,mlen)
        endif
        go to 1
 900    continue
        stop
        end

        include 'ciftbx.f'
        include 'hash_funcs.f'