--- imach/src/imach.c	2014/09/01 10:34:10	1.159
+++ imach/src/imach.c	2014/09/02 09:24:05	1.160
@@ -1,6 +1,9 @@
-/* $Id: imach.c,v 1.159 2014/09/01 10:34:10 brouard Exp $
+/* $Id: imach.c,v 1.160 2014/09/02 09:24:05 brouard Exp $
   $State: Exp $
   $Log: imach.c,v $
+  Revision 1.160  2014/09/02 09:24:05  brouard
+  *** empty log message ***
+
   Revision 1.159  2014/09/01 10:34:10  brouard
   Summary: WIN32
   Author: Brouard
@@ -544,11 +547,11 @@
 #define ODIRSEPARATOR '\\'
 #endif
 
-/* $Id: imach.c,v 1.159 2014/09/01 10:34:10 brouard Exp $ */
+/* $Id: imach.c,v 1.160 2014/09/02 09:24:05 brouard Exp $ */
 /* $State: Exp $ */
 
 char version[]="Imach version 0.98nX, August 2014,INED-EUROREVES-Institut de longevite-Japan Society for the Promotion of Science (Grant-in-Aid for Scientific Research 25293121)";
-char fullversion[]="$Revision: 1.159 $ $Date: 2014/09/01 10:34:10 $"; 
+char fullversion[]="$Revision: 1.160 $ $Date: 2014/09/02 09:24:05 $"; 
 char strstart[80];
 char optionfilext[10], optionfilefiname[FILENAMELENGTH];
 int erreur=0, nberr=0, nbwarn=0; /* Error number, number of errors number of warnings  */
@@ -786,7 +789,7 @@ char *cutl(char *blocc, char *alocc, cha
      gives blocc="abcdef2ghi" and alocc="j".
      If occ is not found blocc is null and alocc is equal to in. Returns blocc
   */
-  char *s, *t, *bl;
+  char *s, *t;
   t=in;s=in;
   while ((*in != occ) && (*in != '\0')){
     *alocc++ = *in++;
@@ -870,6 +873,24 @@ int nbocc(char *s, char occ)
 /*   } */
 /* } */
 
+#ifdef _WIN32
+char * strsep(char **pp, const char *delim)
+{
+  char *p, *q;
+         
+  if ((p = *pp) == NULL)
+    return 0;
+  if ((q = strpbrk (p, delim)) != NULL)
+  {
+    *pp = q + 1;
+    *q = '\0';
+  }
+  else
+    *pp = 0;
+  return p;
+}
+#endif
+
 /********************** nrerror ********************/
 
 void nrerror(char error_text[])