Index: /trunk/Ohana/src/libfits/include/fitsio.h
===================================================================
--- /trunk/Ohana/src/libfits/include/fitsio.h	(revision 2417)
+++ /trunk/Ohana/src/libfits/include/fitsio.h	(revision 2418)
@@ -81,4 +81,5 @@
 int   fits_fread_ftable           PROTO((FILE *, FTable *, char *)); 
 int   fits_fread_vtable           PROTO((FILE *f, VTable *table, char *extname, int Nrow, int *row));
+int   fits_fread_ftable_data      PROTO((FILE *f, FTable *table));
 int   fits_fwrite_header          PROTO((FILE *, Header *)); 
 int   fits_fwrite_Theader         PROTO((FILE *, Header *));
Index: /trunk/Ohana/src/libfits/table/F_create_T.c
===================================================================
--- /trunk/Ohana/src/libfits/table/F_create_T.c	(revision 2417)
+++ /trunk/Ohana/src/libfits/table/F_create_T.c	(revision 2418)
@@ -28,5 +28,5 @@
 int fits_create_vtable (Header *header, VTable *table, int Nrow) {
 
-  int Nbytes;
+  int i, Nx, Ny;
   char type[80];
 
Index: /trunk/Ohana/src/libfits/table/F_read_T.c
===================================================================
--- /trunk/Ohana/src/libfits/table/F_read_T.c	(revision 2417)
+++ /trunk/Ohana/src/libfits/table/F_read_T.c	(revision 2418)
@@ -18,5 +18,5 @@
 int fits_fread_ftable (FILE *f, FTable *table, char *extname) {
 
-  int j, found, Nbytes, Nread;
+  int j, found, Nbytes;
   Header *header;
   char tname[80];
@@ -51,5 +51,4 @@
 
   int Nbytes, Nread;
-  char tname[80];
 
   /* find buffer size */
@@ -69,6 +68,6 @@
 int fits_fread_vtable_range (FILE *f, VTable *table, int start, int Nrows) {
 
-  int Nbytes, Nread, Nskip, Nx, Ny;
-  char tname[80], *buffer;
+  int i, Nbytes, Nread, Nskip, Nx, Ny;
+  char *buffer;
 
   /* find buffer size */
@@ -85,5 +84,5 @@
   ALLOCATE (buffer, char, MAX (Nbytes, 1));
 
-  Fseek (f, Nskip, SEEK_CUR);
+  fseek (f, Nskip, SEEK_CUR);
   Nread = fread (buffer, sizeof (char), Nbytes, f);
   if (Nread != Nbytes) {
@@ -215,4 +214,5 @@
 int fits_fread_header_extname (FILE *f, Header *header, char *extname) {
 
+  int Nbytes;
   char current[80];
 
@@ -225,8 +225,8 @@
   fseek (f, Nbytes, SEEK_CUR);
 
-  while (fits_fread_header (f, &header)) {
-    fits_scan (&header, "EXTNAME", "%s", 1, current);
+  while (fits_fread_header (f, header)) {
+    fits_scan (header, "EXTNAME", "%s", 1, current);
     if (!strcmp (current, extname)) return (TRUE);
-    Nbytes = fits_matrix_size (&header);
+    Nbytes = fits_matrix_size (header);
     fseek (f, Nbytes, SEEK_CUR);
   }