Changeset 3400 for trunk/Ohana/src/libfits/table/F_table_format.c

Timestamp:

Mar 9, 2005, 9:20:18 PM (21 years ago)

Author:

eugene

Message:

working to mosaic astrom

File:

• trunk/Ohana/src/libfits/table/F_table_format.c (modified) (2 diffs)

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

@@ -54 +54 @@
 int fits_table_format (char *format, char *type, int *Nval, int *Nbytes) {
 
-  char Fchar, foo[80], bar;
+  char Fchar, Size[80], Type;
   int Nv;
 
@@ -64 +64 @@
   if (Nv == 0) { 
     Nv = 1;
-    strcpy (foo, "1");
+    strcpy (Size, "1");
   } else {
-    strcpy (foo, &format[1]);
+    strcpy (Size, &format[1]);
   }
-
-  if (Fchar == 'F') { *Nbytes = 1;  strcpy (type, "float");  bar = 'f'; *Nval = Nv; }
-  if (Fchar == 'I') { *Nbytes = 1;  strcpy (type, "int");    bar = 'd'; *Nval = Nv; }
-  if (Fchar == 'A') { *Nbytes = 1;  strcpy (type, "char");   bar = 's'; *Nval = Nv; }
+  
+  Type = 'x';
+  if (Fchar == 'F') { *Nbytes = 1;  strcpy (type, "float");  Type = 'f'; *Nval = Nv; }
+  if (Fchar == 'I') { *Nbytes = 1;  strcpy (type, "int");    Type = 'd'; *Nval = Nv; }
+  if (Fchar == 'A') { *Nbytes = 1;  strcpy (type, "char");   Type = 's'; *Nval = Nv; }
   if (!*Nbytes) { return (FALSE); }
   
-  sprintf (format, "%%-%s%c", foo, bar);
+  sprintf (format, "%%-%s%c", Size, Type);
 
   return (TRUE);