Changeset 38425 for branches/eam_branches/ohana.20150429/src/libfits/table/F_write_TH.c

Timestamp:

Jun 7, 2015, 11:42:53 AM (11 years ago)

Author:

eugene

Message:

add some more error checking and a timing test

File:

• branches/eam_branches/ohana.20150429/src/libfits/table/F_write_TH.c (modified) (2 diffs)

branches/eam_branches/ohana.20150429/src/libfits/table/F_write_TH.c

@@ -14 +14 @@
   
   status = fseeko (f, 0LL, SEEK_END);  /* write header to end of file! */
+  if (status) { perror ("fseeko: "); return (FALSE);  }
   status = gfits_fwrite_Theader (f, header);
 
@@ -26 +27 @@
   
   Nbytes = fwrite (header[0].buffer, sizeof(char), header[0].datasize, f);
+  if (Nbytes != header[0].datasize) { perror ("fwrite: "); return (FALSE);  }
 
-  if (Nbytes != header[0].datasize) return (FALSE);
   return (TRUE);
 }