--- imach/src/imach.c	2014/08/27 17:11:51	1.158
+++ imach/src/imach.c	2014/09/02 09:24:05	1.160
@@ -1,6 +1,13 @@
-/* $Id: imach.c,v 1.158 2014/08/27 17:11:51 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
+
   Revision 1.158  2014/08/27 17:11:51  brouard
   *** empty log message ***
 
@@ -478,13 +485,18 @@
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
+
+#ifdef _WIN32
+#include <io.h>
+#else
 #include <unistd.h>
+#endif
 
 #include <limits.h>
 #include <sys/types.h>
 #include <sys/stat.h>
 #include <errno.h>
-extern int errno;
+/* extern int errno; */
 
 /* #ifdef LINUX */
 /* #include <time.h> */
@@ -535,11 +547,11 @@ extern int errno;
 #define ODIRSEPARATOR '\\'
 #endif
 
-/* $Id: imach.c,v 1.158 2014/08/27 17:11:51 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.158 $ $Date: 2014/08/27 17:11:51 $"; 
+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  */
@@ -777,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++;
@@ -861,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[])
@@ -1083,7 +1113,7 @@ double brent(double ax, double bx, doubl
 { 
   int iter; 
   double a,b,d,etemp;
-  double fu,fv,fw,fx;
+  double fu=0,fv,fw,fx;
   double ftemp;
   double p,q,r,tol1,tol2,u,v,w,x,xm; 
   double e=0.0; 
@@ -6750,6 +6780,3 @@ Interval (in months) between two waves:
     scanf("%s",z);
   }
 }
-
-
-