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