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);
 }