FUNCTION eos_exists

    catch, no_eos_lib
    if (no_eos_lib ne 0) then begin
        return, 0
    endif
    a = EOS_PT_OPEN('exist_test',/READ)
    return, 1
END