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

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