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