IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
May 3, 2006, 12:01:09 PM (20 years ago)
Author:
eugene
Message:

converted fits_ to gfits_

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Ohana/src/libfits/table/F_table_format.c

    r7039 r7054  
    33
    44/***********************/
    5 int fits_bintable_format (char *format, char *type, int *Nval, int *Nbytes) {
     5int gfits_bintable_format (char *format, char *type, int *Nval, int *Nbytes) {
    66
    77  char *Lchar, *Fchar;
    … …  
    5353
    5454/***********************/
    55 int fits_table_format (char *format, char *type, int *Nval, int *Nbytes) {
     55int gfits_table_format (char *format, char *type, int *Nval, int *Nbytes) {
    5656
    5757  char Fchar, Size[80], Type;
    … …  
    9090
    9191/** extract a table subset to a vtable ***/
    92 int fits_table_to_vtable (FTable *ftable, VTable *vtable, int start, int Nkeep) {
     92int gfits_table_to_vtable (FTable *ftable, VTable *vtable, int start, int Nkeep) {
    9393
    94   /* fits_table_to_vtable (f, v, 0, Ny - 1) - keep all of table
    95      fits_table_to_vtable (f, v, 0, 0)      - keep none of table
     94  /* gfits_table_to_vtable (f, v, 0, Ny - 1) - keep all of table
     95     gfits_table_to_vtable (f, v, 0, 0)      - keep none of table
    9696  */ 
    9797
    9898  int i, Nx, Ny;
    9999
    100   fits_scan (ftable[0].header, "NAXIS1", "%d", 1, &Nx);
    101   fits_scan (ftable[0].header, "NAXIS2", "%d", 1, &Ny);
     100  gfits_scan (ftable[0].header, "NAXIS1", "%d", 1, &Nx);
     101  gfits_scan (ftable[0].header, "NAXIS2", "%d", 1, &Ny);
    102102 
    103103  if (start + Nkeep > Ny) return (FALSE);
    … …  
    122122
    123123/** convert specified rows to vtable */
    124 int fits_vtable_from_ftable (FTable *ftable, VTable *vtable, int *row, int Nrow) {
     124int gfits_vtable_from_ftable (FTable *ftable, VTable *vtable, int *row, int Nrow) {
    125125
    126126  int i, N, Nx, Ny;
    127127
    128   fits_scan (ftable[0].header, "NAXIS1", "%d", 1, &Nx);
    129   fits_scan (ftable[0].header, "NAXIS2", "%d", 1, &Ny);
     128  gfits_scan (ftable[0].header, "NAXIS1", "%d", 1, &Nx);
     129  gfits_scan (ftable[0].header, "NAXIS2", "%d", 1, &Ny);
    130130
    131131  /* make empty vtable from table */
    … …  
    150150
    151151/* use table def to format a complete string */
    152 char *fits_table_print (FTable *table,...) {
     152char *gfits_table_print (FTable *table,...) {
    153153 
    154154  int i, Nx, Nfields;
    … …  
    159159  va_start (argp, table);
    160160
    161   fits_scan (table[0].header, "NAXIS1",  "%d", 1, &Nx);
    162   fits_scan (table[0].header, "TFIELDS", "%d", 1, &Nfields);
     161  gfits_scan (table[0].header, "NAXIS1",  "%d", 1, &Nx);
     162  gfits_scan (table[0].header, "TFIELDS", "%d", 1, &Nfields);
    163163
    164164  ALLOCATE (line, char, Nx + 1);
    … …  
    168168
    169169    sprintf (field, "TFORM%d", i);
    170     fits_scan (table[0].header, field, "%s", 1, format);       /* get field format */
    171     fits_table_format (format, type, &Nval, &Nbytes); /* convert to c-style */
     170    gfits_scan (table[0].header, field, "%s", 1, format);       /* get field format */
     171    gfits_table_format (format, type, &Nval, &Nbytes); /* convert to c-style */
    172172    Nchar = Nval * Nbytes;
    173173    if (!strcmp (type, "int"))   {
Note: See TracChangeset for help on using the changeset viewer.