Index: trunk/Ohana/src/libfits/header/F_H_field.c
===================================================================
--- trunk/Ohana/src/libfits/header/F_H_field.c	(revision 16970)
+++ trunk/Ohana/src/libfits/header/F_H_field.c	(revision 16995)
@@ -52,6 +52,4 @@
   return ((char *) NULL);
 
-}
-
 /* 
 
@@ -60,2 +58,16 @@
 
 */
+}
+
+/*********************** fits header field ****************************/
+char *gfits_header_lineno (Header *header, int N) {
+
+  char *buf;
+
+  if (N*80 >= header[0].size) return NULL;
+
+  buf = &header[0].buffer[N*80];
+
+  return (buf);
+}
+
Index: trunk/Ohana/src/libfits/include/gfitsio.h
===================================================================
--- trunk/Ohana/src/libfits/include/gfitsio.h	(revision 16970)
+++ trunk/Ohana/src/libfits/include/gfitsio.h	(revision 16995)
@@ -106,4 +106,5 @@
 
 char   *gfits_header_field             PROTO((Header *header, char *field, int N)); 
+char   *gfits_header_lineno            PROTO((Header *header, int N)); 
 char   *gfits_keyword_end              PROTO((char *line));
 int     gfits_copy_header              PROTO((Header *in, Header *out));