Changeset 7054 for trunk/Ohana/src/libfits/doc/sample.c

Timestamp:

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

Author:

eugene

Message:

converted fits_ to gfits_

File:

• trunk/Ohana/src/libfits/doc/sample.c (modified) (1 diff)

trunk/Ohana/src/libfits/doc/sample.c

@@ -25 +25 @@
 
   /* create primary header */
-  fits_init_header (&header);    header.extend = TRUE;
-  fits_create_header (&header);
-  fits_create_matrix (&header, &matrix);
-  fits_print (&header, "NEXTEND", "%d", 1, 2);
+  gfits_init_header (&header);    header.extend = TRUE;
+  gfits_create_header (&header);
+  gfits_create_matrix (&header, &matrix);
+  gfits_print (&header, "NEXTEND", "%d", 1, 2);
 
   /* define bintable header & layout */
-  fits_create_table_header (&theader1, "BINTABLE", "ZERO_POINTS");
+  gfits_create_table_header (&theader1, "BINTABLE", "ZERO_POINTS");
 
-  fits_define_bintable_column (&theader1, "E", "ZP_OBS", "measured zero point", "mag", 1.0, 0.0);
-  fits_define_bintable_column (&theader1, "E", "ZP_REF", "measured zero point", "mag", 1.0, 0.0);
-  fits_define_bintable_column (&theader1, "J", "TIME",   "time of data", "seconds since Jan 1, 1970 UT", 1.0, 0.0);
-  fits_define_bintable_column (&theader1, "8A", "TCHAR",   "time of data", "seconds since Jan 1, 1970 UT", 1.0, 0.0);
+  gfits_define_bintable_column (&theader1, "E", "ZP_OBS", "measured zero point", "mag", 1.0, 0.0);
+  gfits_define_bintable_column (&theader1, "E", "ZP_REF", "measured zero point", "mag", 1.0, 0.0);
+  gfits_define_bintable_column (&theader1, "J", "TIME",   "time of data", "seconds since Jan 1, 1970 UT", 1.0, 0.0);
+  gfits_define_bintable_column (&theader1, "8A", "TCHAR",   "time of data", "seconds since Jan 1, 1970 UT", 1.0, 0.0);
 
   /* create table, add data values */
-  fits_create_table (&theader1, &table1);
+  gfits_create_table (&theader1, &table1);
 
   /* set table column based on array, extend NAXIS2 as needed/appropriate */
-  fits_set_bintable_column (&theader1, &table1, "ZP_OBS", zpobs, Nrow);
-  fits_set_bintable_column (&theader1, &table1, "ZP_REF", zpref, Nrow);
-  fits_set_bintable_column (&theader1, &table1, "TIME",   time,  Nrow);
-  fits_set_bintable_column (&theader1, &table1, "TCHAR",  tchar,  Nrow);
+  gfits_set_bintable_column (&theader1, &table1, "ZP_OBS", zpobs, Nrow);
+  gfits_set_bintable_column (&theader1, &table1, "ZP_REF", zpref, Nrow);
+  gfits_set_bintable_column (&theader1, &table1, "TIME",   time,  Nrow);
+  gfits_set_bintable_column (&theader1, &table1, "TCHAR",  tchar,  Nrow);
 
   /* define ASCII table header */
-  fits_create_table_header (&theader2, "TABLE", "ASCII_PTS");
+  gfits_create_table_header (&theader2, "TABLE", "ASCII_PTS");
 
-  fits_define_table_column (&theader2, "F5.2", "ZP_OBS", "measured zero point", "mag");
-  fits_define_table_column (&theader2, "F5.2", "ZP_REF", "measured zero point", "mag");
-  fits_define_table_column (&theader2, "I8", "TIME",    "time of data", "seconds");
-  fits_define_table_column (&theader2, "A8", "TCHAR",   "time of data", "YYYYMMDD");
+  gfits_define_table_column (&theader2, "F5.2", "ZP_OBS", "measured zero point", "mag");
+  gfits_define_table_column (&theader2, "F5.2", "ZP_REF", "measured zero point", "mag");
+  gfits_define_table_column (&theader2, "I8", "TIME",    "time of data", "seconds");
+  gfits_define_table_column (&theader2, "A8", "TCHAR",   "time of data", "YYYYMMDD");
 
   /* create table, add data values */
-  fits_create_table (&theader2, &table2);
+  gfits_create_table (&theader2, &table2);
 
-  fits_set_table_column (&theader2, &table2, "ZP_OBS", zpobs, Nrow);
-  fits_set_table_column (&theader2, &table2, "ZP_REF", zpref, Nrow);
-  fits_set_table_column (&theader2, &table2, "TIME",   time,  Nrow);
-  fits_set_table_column (&theader2, &table2, "TCHAR",  tchar, Nrow);
+  gfits_set_table_column (&theader2, &table2, "ZP_OBS", zpobs, Nrow);
+  gfits_set_table_column (&theader2, &table2, "ZP_REF", zpref, Nrow);
+  gfits_set_table_column (&theader2, &table2, "TIME",   time,  Nrow);
+  gfits_set_table_column (&theader2, &table2, "TCHAR",  tchar, Nrow);
 
   /* write header, matrix, table1, table2 */
-  fits_write_header  (filename, &header);
-  fits_write_matrix  (filename, &matrix);
-  fits_write_Theader (filename, &theader1);
-  fits_write_table   (filename, &table1);
-  fits_write_Theader (filename, &theader2);
-  fits_write_table   (filename, &table2);
+  gfits_write_header  (filename, &header);
+  gfits_write_matrix  (filename, &matrix);
+  gfits_write_Theader (filename, &theader1);
+  gfits_write_table   (filename, &table1);
+  gfits_write_Theader (filename, &theader2);
+  gfits_write_table   (filename, &table2);
 
 }