]> henry.ined.fr Git - .git/commitdiff
Change of index.htm to parameterfile.htm
authorAgnès Lièvre <agnes.lievre@education.gouv.fr>
Wed, 2 May 2001 18:44:18 +0000 (18:44 +0000)
committerAgnès Lièvre <agnes.lievre@education.gouv.fr>
Wed, 2 May 2001 18:44:18 +0000 (18:44 +0000)
Version 0.64b

src/Makefile
src/imach.c

index 31eb2075121a0466aba013dd14f25ed76746ec0c..42461f206e8ab627708ce4b0cefda65a5f6b565d 100644 (file)
@@ -1,11 +1,12 @@
-CC= gcc -v\r
+#CC= gcc -v\r
+CC= gcc\r
 #LFLAGS= -v -g\r
 #CFLAGS= -g \r
 \r
 LFLAGS= -O2 -g -mno-cygwin\r
 CFLAGS= -O2 -g\r
 \r
-PARAM=biaspar\r
+PARAM=mypar1\r
 \r
 imach : imach.o \r
        $(CC) $(LFLAGS) -o imach imach.o\r
@@ -14,7 +15,7 @@ imach.o : imach.c
 $(PARAM).htm: imach $(PARAM).txt data1.txt\r
        ./imach $(PARAM).txt\r
 \r
-clean: orbiaspar.txt\r
+clean: \r
        rm or$(PARAM).txt er$(PARAM).txt pijr$(PARAM).txt plr$(PARAM).txt \\r
        r$(PARAM).txt tr$(PARAM).txt vpl$(PARAM).txt pr$(PARAM).txt \\r
        vr$(PARAM).txt *.gif imach.exe imach.o\r
index 50abd3dfb9d2d5e761bdc723aef0a09ce6036b5d..51fec423647832a86f0685005eac887620602983 100644 (file)
@@ -1651,7 +1651,7 @@ int main()
   int *indx;\r
   char line[MAXLINE], linepar[MAXLINE];\r
   char title[MAXLINE];\r
-  char optionfile[FILENAMELENGTH], datafile[FILENAMELENGTH],  filerespl[FILENAMELENGTH];\r
+  char optionfile[FILENAMELENGTH], datafile[FILENAMELENGTH],  filerespl[FILENAMELENGTH], optionfilehtm[FILENAMELENGTH];\r
   char fileres[FILENAMELENGTH], filerespij[FILENAMELENGTH], filereso[FILENAMELENGTH];\r
   char filerest[FILENAMELENGTH];\r
   char fileregp[FILENAMELENGTH];\r
@@ -1689,7 +1689,7 @@ int main()
   gettimeofday(&start_time, (struct timezone*)0); */ /* at first time */\r
 \r
 \r
-  printf("\nIMACH, Version 0.64a");\r
+  printf("\nIMACH, Version 0.64b");\r
   printf("\nEnter the parameter file name: ");\r
 \r
 #ifdef windows\r
@@ -2374,11 +2374,13 @@ chdir(path);
   fprintf(ficparo,"agemin=%.0f agemax=%.0f bage=%.0f fage=%.0f\n",agemin,agemax,bage,fage);\r
 /*--------- index.htm --------*/\r
 \r
-  if((fichtm=fopen("index.htm","w"))==NULL)    {\r
-    printf("Problem with index.htm \n");goto end;\r
+  strcpy(optionfilehtm,optionfile);\r
+  strcat(optionfilehtm,".htm");\r
+  if((fichtm=fopen(optionfilehtm,"w"))==NULL)    {\r
+    printf("Problem with %s \n",optionfilehtm);goto end;\r
   }\r
 \r
- fprintf(fichtm,"<body><ul> <font size=\"6\">Imach, Version 0.64a </font> <hr size=\"2\" color=\"#EC5E5E\"> \r
+ fprintf(fichtm,"<body><ul> <font size=\"6\">Imach, Version 0.64b </font> <hr size=\"2\" color=\"#EC5E5E\"> \r
 Titre=%s <br>Datafile=%s Firstpass=%d Lastpass=%d Stepm=%d Weight=%d Model=%s<br>\r
 Total number of observations=%d <br>\r
 Interval (in months) between two waves: Min=%d Max=%d Mean=%.2lf<br>\r