1 2 3 4 5 6 7 8 9 10 11 12 13 14 | hid_t
ss_scope_isopen(ss_scope_t *scope /* A link to a scope object. */
)
{
SS_ENTER(ss_scope_isopen, hid_t);
hid_t retval=0;
SS_ASSERT_MEM(scope, ss_scope_t);
if (SS_SCOPE(scope)->m.gid<=0) SS_ERROR_FMT(CORRUPT, ("scope does not correspond to an open HDF5 group"));
if (SS_SCOPE(scope)->m.comm!=SS_COMM_NULL) retval = SS_SCOPE(scope)->m.gid;
SS_CLEANUP:
SS_LEAVE(retval);
}
|