Исследовательская часть

fscanf(in,"%lf%s",&Rc2,s1);

fprintf(out,"%s%5.3e ",s1,Rc2);

fscanf(in,"%lf%s",&tfc,s1);

fprintf(out,"%s%5.3e ",s1,tfc);

fscanf(in,"%lf%s ",&tfc1,s1);

fprintf(out,"%s%5.3e\n ",s1,tfc1);

fscanf(in,"%lf%s ",&Kyc,s1);

fprintf(out,"%s%5.3e ",s1,Kyc);

fscanf(in,"%lf%s",&t1c,s1);

fprintf(out,"%s%5.3e ",s1,t1c);

fscanf(in,"%lf%s",&t2c,s1);

fprintf(out,"%s%5.3e ",s1,t2c);

fscanf(in,"%lf%s",&Ac1,s1);

fprintf(out,"%s%5.3e ",s1,Ac1);

fscanf(in,"%lf%s",&Ac2,s1);

fprintf(out,"%s%5.3e ",s1,Ac2);

fscanf(in,"%lf%s",&Ac11,s1);

fprintf(out,"%s%5.3e ",s1,Ac11);

fscanf(in,"%lf%s",&Ac22,s1);

fprintf(out,"%s%5.3e\n ",s1,Ac22);

fscanf(in,"%lf%s",&Rf1,s1);

fprintf(out,"%s%e\n ",s1,Rf1);

fscanf(in,"%lf%s",&Kf1,s1);

fprintf(out,"Wf1 %s%5.3e ",s1,Kf1);

fscanf(in,"%lf%s",&tf11,s1);

fprintf(out,"%s%5.3e ",s1,tf11);

fscanf(in,"%lf%s",&tf12,s1);

fprintf(out,"%s%5.3e ",s1,tf12);

fscanf(in,"%lf%s",&tf13,s1);

fprintf(out,"%s%5.3e\n ",s1,tf13);

fscanf(in,"%lf%s",&Kk1,s1);

fprintf(out,"Wk1 %s%5.3e ",s1,Kk1);

fscanf(in,"%lf%s ",&Kk10,s1);

fprintf(out,"%s%5.3e ",s1,Kk10);

fscanf(in,"%lf%s",&Ak1,s1);

fprintf(out,"%s%5.3e ",s1,Ak1);

fscanf(in,"%lf%s",&Tetk1,s1);

fprintf(out,"%s%5.3e ",s1,Tetk1);

fscanf(in,"%lf%s",&Tet1,s1);

fprintf(out,"%s%5.3e ",s1,Tet1);

fscanf(in,"%lf%s",&tk1,s1);

fprintf(out,"%s%5.3e\n ",s1,tk1);

fscanf(in," %lf%s",&Kktau,s1);

fprintf(out,"Wktau %s%5.3e ",s1,Kktau);

fscanf(in,"%lf%s",&Kktau0,s1);

fprintf(out,"%s%5.3e ",s1,Kktau0);

fscanf(in,"%lf%s",&Aktau,s1);

fprintf(out,"%s%5.3e ",s1,Aktau);

fscanf(in,"%lf%s",&Tetktau,s1);

fprintf(out,"%s%5.3e ",s1,Tetktau);

fscanf(in,"%lf%s",&Tettau,s1);

fprintf(out,"%s%5.3e ",s1,Tettau);

fscanf(in,"%lf%s",&tktau,s1);

fprintf(out,"%s%5.3e\n ",s1,tktau);

fscanf(in,"%lf%s",&Kktau1,s1);

fprintf(out,"Wktau1 %s%5.3e ",s1,Kktau1);

fscanf(in,"%lf%s",&Ktau0,s1);

fprintf(out,"%s%5.3e ",s1,Ktau0);

fscanf(in,"%lf%s",&Aktau1,s1);

fprintf(out,"%s%5.3e ",s1,Aktau1);

fscanf(in,"%lf%s",&Tetktau1,s1);

fprintf(out,"%s%5.3e ",s1,Tetktau1);

fscanf(in,"%lf%s",&Tettau1,s1);

fprintf(out,"%s%5.3e ",s1,Tettau1);

fscanf(in,"%lf%s",&tktau1,s1);

fprintf(out,"%s%5.3e\n ",s1,tktau1);

fscanf(in,"%lf%s",&Kkc,s1);

fprintf(out,"Wkc %s%5.3e ",s1,Kkc);

fscanf(in,"%lf%s",&Kkc0,s1);

fprintf(out,"%s%5.3e ",s1,Kkc0);

fscanf(in,"%lf%s",&Akc,s1);

fprintf(out,"%s%5.3e ",s1,Akc);

fscanf(in,"%lf%s",&Tetkc,s1);

fprintf(out,"%s%5.3e ",s1,Tetkc);

fscanf(in,"%lf%s",&Tetc,s1);

fprintf(out,"%s%5.3e ",s1,Tetc);

fscanf(in,"%lf%s",&tkc,s1);

fprintf(out,"%s%5.3e\n ",s1,tkc);

fscanf(in,"%lf%s ",&Kst1,s1);

fprintf(out,"%s%5.3e ",s1,Kst1);

fscanf(in,"%lf%s",&t6,s1);

fprintf(out,"%s%5.3e ",s1,t6);

fscanf(in,"%lf%s",&t7,s1);

fprintf(out,"%s%5.3e ",s1,t7);

fscanf(in,"%lf%s",&t8,s1);

fprintf(out,"%s%5.3e ",s1,t8);

fscanf(in,"%lf%s",&t9,s1);

fprintf(out,"%s%5.3e\n ",s1,t9);

fscanf(in,"%lf%s",&Ra1,s1);

fprintf(out,"Wa1 %s%5.3e ",s1,Ra1);

fscanf(in,"%lf%s",&Ka1,s1);

fprintf(out,"%s%5.3e ",s1,Ka1);

fscanf(in,"%lf%s",&ta11,s1);

fprintf(out,"%s%5.3e ",s1,ta11);

fscanf(in,"%lf%s",&ta12,s1);

fprintf(out,"%s%5.3e ",s1,ta12);

fscanf(in,"%lf%s",&ta13,s1);

fprintf(out,"%s%5.3e\n ",s1,ta13);

fscanf(in,"%lf%s",&Ra2,s1);