[BACK]Return to imach.c CVS log [TXT] [DIR] Up to [Local Repository] / imach / src

Diff for /imach/src/imach.c between versions 1.3 and 1.4

version 1.3, 2001/05/02 17:21:42 version 1.4, 2001/05/02 17:34:41
Line 1589  int main() Line 1589  int main()
   double ***eij, ***vareij;    double ***eij, ***vareij;
   double **varpl; /* Variances of prevalence limits by age */    double **varpl; /* Variances of prevalence limits by age */
   double *epj, vepp;    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 *alph[]={"a","a","b","c","d","e"}, str[4];
   char z[1]="c", occ;    char z[1]="c", occ;
 #include <sys/time.h>  #include <sys/time.h>
Line 1601  int main() Line 1601  int main()
   gettimeofday(&start_time, (struct timezone*)0); */ /* at first time */    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: ");    printf("\nEnter the parameter file name: ");
   
 #ifdef windows  #ifdef windows
   scanf("%s",pathtot);    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,'\\');    cutv(path,optionfile,pathtot,'\\');
   chdir(path);    chdir(path);
   replace(pathc,path);    replace(pathc,path);
     printf("pathtot=%s, path=%s, optionfile=%s\n",pathtot,path,optionfile);
     */
 #endif  #endif
 #ifdef unix  #ifdef unix
   scanf("%s",optionfile);    scanf("%s",optionfile);
Line 2046  Tcode=ivector(1,100); Line 2054  Tcode=ivector(1,100);
 /*------------ gnuplot -------------*/  /*------------ gnuplot -------------*/
 chdir(pathcd);  chdir(pathcd);
   if((ficgp=fopen("graph.plt","w"))==NULL) {    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  #ifdef windows
   fprintf(ficgp,"cd \"%s\" \n",pathc);    fprintf(ficgp,"cd \"%s\" \n",pathc);
Removed from v.1.3  
changed lines
  Added in v.1.4

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>