Changeset 7054 for trunk/Ohana/src/libfits/table/F_write_T.c

Timestamp:

May 3, 2006, 12:01:09 PM (20 years ago)

Author:

eugene

Message:

converted fits_ to gfits_

File:

• trunk/Ohana/src/libfits/table/F_write_T.c (modified) (5 diffs)

trunk/Ohana/src/libfits/table/F_write_T.c

@@ -3 +3 @@
 
 /*********************** fits write header *********************************/
-int fits_write_table (char *filename, FTable *table) {
+int gfits_write_table (char *filename, FTable *table) {
   
   FILE *f;
@@ -14 +14 @@
   
   status = fseek (f, 0, SEEK_END);  /* write table to end of file! */
-  status = fits_fwrite_table (f, table);
+  status = gfits_fwrite_table (f, table);
 
   fclose (f);
@@ -21 +21 @@
 
 /*********************** fits write table *********************************/
-int fits_fwrite_table (FILE *f, FTable *table) {
+int gfits_fwrite_table (FILE *f, FTable *table) {
   
   int Nbytes;
@@ -32 +32 @@
 
 /*********************** fits write virtual table *********************************/
-int fits_fwrite_vtable (FILE *f, VTable *table) {
+int gfits_fwrite_vtable (FILE *f, VTable *table) {
   
   int i, Nx, Ny, Npad, offset, start;
@@ -40 +40 @@
   Nrow = table[0].Nrow;
   row = table[0].row;
-  fits_scan (table[0].header, "NAXIS1", "%d", 1, &Nx);
-  fits_scan (table[0].header, "NAXIS2", "%d", 1, &Ny);
+  gfits_scan (table[0].header, "NAXIS1", "%d", 1, &Nx);
+  gfits_scan (table[0].header, "NAXIS2", "%d", 1, &Ny);
 
   /* file pointer is at beginning of desired table data */