1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
 hid_t
 ss_array_targeted(ss_array_t *array)
 {
     SS_ENTER(ss_array_targeted, hid_t);
     hid_t retval=-1;

     if (!array) SS_ERROR_FMT(USAGE, ("no ss_array_t supplied"));
     if ((retval=H5Tcopy(array->ftype?array->ftype:ss_pers_tf))<0) SS_ERROR(FAILED);
 SS_CLEANUP:
     SS_LEAVE(retval);
 }