ГОСТ Р 56047—2014
lcgvariable("fftrefdx.txt\ processch2.fftref. hann/2):
togvariablefEtestdx.txt". processch2.Etest. bark);
logvariable("Erefdx.txf\ processch2.Eref. bark);
togvariablefE2testdx.txt". processch2.E2test. bark);
togvariab!e("E2refdx.txt\ processch2.E2ref. bark);
logvariable("pptestdx.bcr. processch2.pptest. bark);
logvariabie(”pprefdx.txf\ processch2.ppref. bark);
logvariable("ppnoisedx.txt*, processch2.ppnoise. bark);
logvariableC’Mrefdx.txt*. processch2.Mref. bark):
togvariablefModtestdx.txf, processch2.Modtest, bark);
togvariable("Modre{dx.txt*. processch2.Modref. bark);
#endif
V
n
extern double CfflQ;
extern int maxk;
FILE *fp;
logvariableCCfftdx.txf. Cfft. 128);
fp = fopenCCfftdxmaxpos.txt*. ’a+"};
tpnntf(fp."%d\n“.maxk):
(close(fp);
}*/
return;
}
void
fatalerr(char * pattern....) Г Error handling routine V
{
vaJist ap;
va_start(ap. pattern):
fprintf(stderr.’PEAQ-");
vfprintf(stderr.pattem.ap):
fprintffstderr.* (exit forced).’n“);
va_end(ap);
exit(-1);
}
#ifdef DEBUG
void
debug(ctiar * pattern....) /* Debug handling routine 7
{
FILE ’log;
vaJist ap;
va_start(ap. pattern);
log = fopen(LOGFILE.*a+*);
vfprintf(log.pattem.ap);
va_er>d(ap);
fclose(log);
return;
}
tfendif
#ifdef LOGVARIABLE
void
64
logvariable(const char ’filename, double ’var, int len)
{