From ac9283122bf01e35a7cc008e550a08f88f961929 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Agn=C3=A8s=20Li=C3=A8vre?= Date: Wed, 2 May 2001 18:44:18 +0000 Subject: [PATCH] Change of index.htm to parameterfile.htm Version 0.64b --- src/Makefile | 7 ++++--- src/imach.c | 12 +++++++----- 2 files changed, 11 insertions(+), 8 deletions(-) diff --git a/src/Makefile b/src/Makefile index 31eb207..42461f2 100644 --- a/src/Makefile +++ b/src/Makefile @@ -1,11 +1,12 @@ -CC= gcc -v +#CC= gcc -v +CC= gcc #LFLAGS= -v -g #CFLAGS= -g LFLAGS= -O2 -g -mno-cygwin CFLAGS= -O2 -g -PARAM=biaspar +PARAM=mypar1 imach : imach.o $(CC) $(LFLAGS) -o imach imach.o @@ -14,7 +15,7 @@ imach.o : imach.c $(PARAM).htm: imach $(PARAM).txt data1.txt ./imach $(PARAM).txt -clean: orbiaspar.txt +clean: rm or$(PARAM).txt er$(PARAM).txt pijr$(PARAM).txt plr$(PARAM).txt \ r$(PARAM).txt tr$(PARAM).txt vpl$(PARAM).txt pr$(PARAM).txt \ vr$(PARAM).txt *.gif imach.exe imach.o diff --git a/src/imach.c b/src/imach.c index 50abd3d..51fec42 100644 --- a/src/imach.c +++ b/src/imach.c @@ -1651,7 +1651,7 @@ int main() int *indx; char line[MAXLINE], linepar[MAXLINE]; char title[MAXLINE]; - char optionfile[FILENAMELENGTH], datafile[FILENAMELENGTH], filerespl[FILENAMELENGTH]; + char optionfile[FILENAMELENGTH], datafile[FILENAMELENGTH], filerespl[FILENAMELENGTH], optionfilehtm[FILENAMELENGTH]; char fileres[FILENAMELENGTH], filerespij[FILENAMELENGTH], filereso[FILENAMELENGTH]; char filerest[FILENAMELENGTH]; char fileregp[FILENAMELENGTH]; @@ -1689,7 +1689,7 @@ int main() gettimeofday(&start_time, (struct timezone*)0); */ /* at first time */ - printf("\nIMACH, Version 0.64a"); + printf("\nIMACH, Version 0.64b"); printf("\nEnter the parameter file name: "); #ifdef windows @@ -2374,11 +2374,13 @@ chdir(path); fprintf(ficparo,"agemin=%.0f agemax=%.0f bage=%.0f fage=%.0f\n",agemin,agemax,bage,fage); /*--------- index.htm --------*/ - if((fichtm=fopen("index.htm","w"))==NULL) { - printf("Problem with index.htm \n");goto end; + strcpy(optionfilehtm,optionfile); + strcat(optionfilehtm,".htm"); + if((fichtm=fopen(optionfilehtm,"w"))==NULL) { + printf("Problem with %s \n",optionfilehtm);goto end; } - fprintf(fichtm,"