#include "stdio.h"
#define MAX 5000
void main()
{
FILE *fp1,*fp2,*fp3;
float ver[50];
int nodenum,t[14],i,j;
int num_node[4];
int node_number;
float val[MAX];
char ch,s1[80],s2[80],s3[80],val_name[80];
float nodex[MAX],nodey[MAX],nodez[MAX];
int *p1;
float *px,*py,*pz,*pnode;
px=nodex;py=nodey;pz=nodez;
pnode=val;
printf("Please enter ele_node_data filename:");
gets(s1);
if((fp1=fopen(s1,"r"))==NULL){
	printf("\t\nCannot open the file or file not find!\n");
	exit(1);
	}
printf("Please enter val_out_data filename:");
gets(s3);
if((fp3=fopen(s3,"r"))==NULL){
	printf("\t\nCannot open the file or file not find!\n");
	exit(1);
	}
printf("Reading datas......\n");
for(i=0;i<=18;i++)
fscanf(fp1,"%c",&ch);
fscanf(fp1,"%f%d",&ver[0],&nodenum);
for(i=0;i<=13;i++)
fscanf(fp1,"%d",&t[i]);
fscanf(fp1,"%f",&ver[0]);
for(i=0;i<=6;i++)
fscanf(fp1,"%d",&t[i]);
fscanf(fp1,"%f%f%f",&px[0],&py[0],&pz[0]);
fscanf(fp1,"%d%f%d%d",&t[0],&ver[0],&t[1],&t[2]);
for(j=1;j<=nodenum-1;j++)
{
for(i=0;i<=6;i++)
fscanf(fp1,"%d",&t[i]);
	{
	  fscanf(fp1,"%f%f%f",&px[j],&py[j],&pz[j]);
	  fscanf(fp1,"%d%f",&t[0],&ver[0]);
	  }
}
for(i=1;i<=64;i++)
	{
	fscanf(fp3,"%c",&ch);
	}
fscanf(fp3,"%s",val_name);
rewind(fp3);
for(i=1;i<=111;i++)
{
fscanf(fp3,"%c",&ch);
if(i>=100&&ch=='1'){break;}
}
printf("Please input savedata filename:");
gets(s2);
if((fp2=fopen(s2,"w"))==NULL){
	printf("\t\nCannot open the file!\n");
	exit(1);
	}
printf("\nSaving datas......\n");
fprintf(fp2,"NODE\t X_COOR\t        Y_COOR\t       Z_COOR\t      %s VAL\n",val_name);
for(j=0;j<=nodenum-1;j++)
	{
	fscanf(fp3,"%d",&num_node[3]);
	for(i=1;i<=6;i++)
	fscanf(fp3,"%c",&ch);
	fscanf(fp3,"%f",&pnode[j]);
	fprintf(fp2,"%d\t",j+1);
	fprintf(fp2,"%12.6e   %12.6e   %12.6e   %12.6e\n",px[j],py[j],pz[j],pnode[j]);
	}
fprintf(fp2,"****************************\n");
for(i=0;i<=7;i++)
fscanf(fp1,"%d",&t[i]);
for(i=0;i<=33;i++)
fscanf(fp1,"%f",&ver[i]);
fprintf(fp2,"NUM\tI\tJ\tK\tL\n");
for(i=0;i<=t[1]-1;i++)
{
p1=num_node;
fscanf(fp1,"%d",&t[4]);
fprintf(fp2,"%d\t",t[4]);
for(j=0;j<=3;j++)
	{
	 fscanf(fp1,"%d",&p1[j]);
	 fprintf(fp2,"%d\t",p1[j]);
	 if(j==3)fprintf(fp2,"\n");
	}
fscanf(fp1,"%d%f%f%d%d%f",&t[2],&ver[0],&ver[1],&t[3],&t[4],&ver[2]);
if(kbhit())if(getch()==27)break;
}
printf("\n\n\t\aProgram is over!\n");
printf("\t******************\n");
fclose(fp1);
fclose(fp2);
}
/********************************************************/