From 578a2fc7e2f5e8325381cfb34384c101846d1b72 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Agn=C3=A8s=20Li=C3=A8vre?= Date: Wed, 2 May 2001 17:34:41 +0000 Subject: [PATCH] *** empty log message *** --- src/imach.c | 16 ++++++++++++---- 1 file changed, 12 insertions(+), 4 deletions(-) diff --git a/src/imach.c b/src/imach.c index 101ea7b..d80a92e 100644 --- a/src/imach.c +++ b/src/imach.c @@ -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); -- 2.43.0