--- imach/src/imach.c	2014/08/27 17:11:51	1.158
+++ imach/src/imach.c	2014/09/01 10:34:10	1.159
@@ -1,6 +1,10 @@
-/* $Id: imach.c,v 1.158 2014/08/27 17:11:51 brouard Exp $
+/* $Id: imach.c,v 1.159 2014/09/01 10:34:10 brouard Exp $
   $State: Exp $
   $Log: imach.c,v $
+  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 +482,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 +544,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.159 2014/09/01 10:34:10 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.159 $ $Date: 2014/09/01 10:34:10 $"; 
 char strstart[80];
 char optionfilext[10], optionfilefiname[FILENAMELENGTH];
 int erreur=0, nberr=0, nbwarn=0; /* Error number, number of errors number of warnings  */
@@ -1083,7 +1092,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 +6759,3 @@ Interval (in months) between two waves:
     scanf("%s",z);
   }
 }
-
-
-