Index: /branches/eam_branches/ipp-20111122/Ohana/src/libohana/include/ohana.h
===================================================================
--- /branches/eam_branches/ipp-20111122/Ohana/src/libohana/include/ohana.h	(revision 32992)
+++ /branches/eam_branches/ipp-20111122/Ohana/src/libohana/include/ohana.h	(revision 32993)
@@ -238,4 +238,5 @@
 int     dparse                 PROTO((double *X, int NX, char *line));
 int     dparse_csv             PROTO((double *X, int NX, char *line));
+int     iparse_csv             PROTO((int *X, int NX, char *line));
 int     fparse                 PROTO((float *X, int NX, char *line));
 int     get_argument           PROTO((int argc, char **argv, char *arg));
Index: /branches/eam_branches/ipp-20111122/Ohana/src/libohana/src/string.c
===================================================================
--- /branches/eam_branches/ipp-20111122/Ohana/src/libohana/src/string.c	(revision 32992)
+++ /branches/eam_branches/ipp-20111122/Ohana/src/libohana/src/string.c	(revision 32993)
@@ -205,4 +205,26 @@
 }
 
+int iparse_csv (int *X, int NX, char *line) {
+
+  int i;
+  char *word;
+  char *ptr;
+
+  word = line;
+  for (i = 0; i < NX - 1; i++)
+    word = _parse_nextword_csv (word);
+  
+  if (word[0] == '"') word[0] = ' ';
+  if (word[0] == ',') {
+      *X = 0;
+      return 1;
+  }
+
+  *X = strtol (word, &ptr, 0);
+  if (ptr == word) return (FALSE);
+  if (word[0] == '-') return (-1);
+  return (1);
+}
+
 int fparse (float *X, int NX, char *line) {