*** empty log message ***

diff --git a/src/imach.c b/src/imach.c
index 101ea7b6c7d453013930047c62f3ab19f68d6fcd..d80a92e7efc84de75a1da6878af7a9536a44f733 100644 (file)
--- a/src/imach.c
+++ b/src/imach.c
@@ -1589,7 +1589,7 @@ int main()
   double ***eij, ***vareij;\r
   double **varpl; /* Variances of prevalence limits by age */\r
   double *epj, vepp;\r
-  char version[80]="Imach version 62c, May 1999, INED-EUROREVES ";\r
+  char version[80]="Imach version 0.64, May 2000, INED-EUROREVES ";\r
   char *alph[]={"a","a","b","c","d","e"}, str[4];\r
   char z[1]="c", occ;\r
 #include <sys/time.h>\r
@@ -1601,15 +1601,23 @@ int main()
   gettimeofday(&start_time, (struct timezone*)0); */ /* at first time */\r
 \r
 \r
-  printf("\nIMACH, Version 0.63");\r
+  printf("\nIMACH, Version 0.64a");\r
   printf("\nEnter the parameter file name: ");\r
 \r
 #ifdef windows\r
   scanf("%s",pathtot);\r
-  getcwd(pathcd, size);\r
+  cygwin_split_path(pathtot,path,optionfile);\r
+     printf("pathtot=%s, path=%s, optionfile=%s\n",pathtot,path,optionfile);\r
+     chdir(path);\r
+ \r
+  /*size=30;\r
+  getcwd(pathcd, size);  \r
+  printf("pathcd=%s, path=%s, optionfile=%s\n",pathcd,path,optionfile);\r
   cutv(path,optionfile,pathtot,'\\');\r
   chdir(path);\r
   replace(pathc,path);\r
+  printf("pathtot=%s, path=%s, optionfile=%s\n",pathtot,path,optionfile);\r
+  */\r
 #endif\r
 #ifdef unix\r
   scanf("%s",optionfile);\r
@@ -2046,7 +2054,7 @@ Tcode=ivector(1,100);
 /*------------ gnuplot -------------*/\r
 chdir(pathcd);\r
   if((ficgp=fopen("graph.plt","w"))==NULL) {\r
-    printf("Problem with file graph.gp");goto end;\r
+    printf("Problem with file graph.plt");goto end;\r
   }\r
 #ifdef windows\r
   fprintf(ficgp,"cd \"%s\" \n",pathc);\r