stepan
/
dynare
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

replace 'fprintf(stdout,' with 'printf('

time-shift
Houtan Bastani 2010-04-28 10:09:39 +02:00
parent 49cfafce92
commit c955ae6242
11 changed files with 63 additions and 63 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
matlab/swz/c-code/sbvar/switching/switch.c
View File

@ -1286,7 +1286,7 @@ int* CreateStateIndex(TMarkovStateVariable* sv, TMarkovStateVariable** list, int
int* index; int* index;
if (!(index=dw_CreateArray_int(sv->nstates))) if (!(index=dw_CreateArray_int(sv->nstates)))
{ {
fprintf(stdout,"CreateStateIndex(): Out of memory.\n"); printf("CreateStateIndex(): Out of memory.\n");
exit(0); exit(0);
} }
for (i=sv->nstates-1; i >= 0; i--) for (i=sv->nstates-1; i >= 0; i--)
@ -1294,7 +1294,7 @@ int* CreateStateIndex(TMarkovStateVariable* sv, TMarkovStateVariable** list, int
for (k=j=0; j < n; j++) for (k=j=0; j < n; j++)
if ((k=IncrementIndex(k,i,sv,list[j])) == -1) if ((k=IncrementIndex(k,i,sv,list[j])) == -1)
{ {
fprintf(stdout,"CreateStateIndex(): Unable to find required state variable.\n"); printf("CreateStateIndex(): Unable to find required state variable.\n");
exit(0); exit(0);
} }
index[i]=k; index[i]=k;

22
matlab/swz/c-code/sbvar/var/PrintDraws.c
View File

@ -49,7 +49,7 @@ int main(int nargs, char **args)
//=== Help Screen === //=== Help Screen ===
if (dw_FindArgument_String(nargs,args,"h") != -1) if (dw_FindArgument_String(nargs,args,"h") != -1)
{ {
fprintf(stdout,"print_draws <options>\n"); printf("print_draws <options>\n");
PrintHelpMessages(stdout,include_help,additional_help); PrintHelpMessages(stdout,include_help,additional_help);
return 0; return 0;
} }
@ -66,7 +66,7 @@ int main(int nargs, char **args)
dw_initialize_generator(seed); dw_initialize_generator(seed);
//=== Setup model and initial parameters //=== Setup model and initial parameters
fprintf(stdout,"Reading data...\n"); printf("Reading data...\n");
if (!(model=CreateTStateModelFromEstimateFinal(nargs,args,&cmd))) if (!(model=CreateTStateModelFromEstimateFinal(nargs,args,&cmd)))
{ {
fprintf(stderr,"Unable to read model or parameters\n"); fprintf(stderr,"Unable to read model or parameters\n");
@ -89,19 +89,19 @@ int main(int nargs, char **args)
free(filename); free(filename);
// Burn-in period with calibration of jumping parameters // Burn-in period with calibration of jumping parameters
fprintf(stdout,"Calibrating jumping parameters - %d draws\n",tuning); printf("Calibrating jumping parameters - %d draws\n",tuning);
begin_time=(int)time((time_t*)NULL); begin_time=(int)time((time_t*)NULL);
AdaptiveMetropolisScale(model,tuning,1000,1,(FILE*)NULL); // tuning iterations - 1000 iterations before updating - verbose AdaptiveMetropolisScale(model,tuning,1000,1,(FILE*)NULL); // tuning iterations - 1000 iterations before updating - verbose
end_time=(int)time((time_t*)NULL); end_time=(int)time((time_t*)NULL);
fprintf(stdout,"Elapsed Time: %d seconds\n",end_time - begin_time); printf("Elapsed Time: %d seconds\n",end_time - begin_time);
// Reset parametrers // Reset parametrers
if (!ReadTransitionMatrices((FILE*)NULL,cmd->parameters_filename_actual,cmd->parameters_header_actual,model) if (!ReadTransitionMatrices((FILE*)NULL,cmd->parameters_filename_actual,cmd->parameters_header_actual,model)
|| !Read_VAR_Parameters((FILE*)NULL,cmd->parameters_filename_actual,cmd->parameters_header_actual,model)) || !Read_VAR_Parameters((FILE*)NULL,cmd->parameters_filename_actual,cmd->parameters_header_actual,model))
fprintf(stdout,"Unable to reset parameters after tuning\n"); printf("Unable to reset parameters after tuning\n");
// Burn-in period // Burn-in period
fprintf(stdout,"Burn-in period - %d draws\n",burn_in); printf("Burn-in period - %d draws\n",burn_in);
for (check=period, count=1; count <= burn_in; count++) for (check=period, count=1; count <= burn_in; count++)
{ {
DrawAll(model); DrawAll(model);
@ -109,15 +109,15 @@ int main(int nargs, char **args)
if (count == check) if (count == check)
{ {
check+=period; check+=period;
fprintf(stdout,"%d iterations completed out of %d\n",count,burn_in); printf("%d iterations completed out of %d\n",count,burn_in);
} }
} }
end_time=(int)time((time_t*)NULL); end_time=(int)time((time_t*)NULL);
fprintf(stdout,"Elapsed Time: %d seconds\n",end_time - begin_time); printf("Elapsed Time: %d seconds\n",end_time - begin_time);
ResetMetropolisInformation(p); ResetMetropolisInformation(p);
// Simulation // Simulation
fprintf(stdout,"Simulating - %d draws\n",iterations); printf("Simulating - %d draws\n",iterations);
for (check=period, output=thinning, count=1; count <= iterations; count++) for (check=period, output=thinning, count=1; count <= iterations; count++)
{ {
DrawAll(model); DrawAll(model);
@ -136,11 +136,11 @@ int main(int nargs, char **args)
if (count == check) if (count == check)
{ {
check+=period; check+=period;
fprintf(stdout,"%d(%d) iterations completed out of %d(%d)\n",count,thinning,iterations,thinning); printf("%d(%d) iterations completed out of %d(%d)\n",count,thinning,iterations,thinning);
} }
} }
end_time=(int)time((time_t*)NULL); end_time=(int)time((time_t*)NULL);
fprintf(stdout,"Elapsed Time: %d seconds\n",end_time - begin_time); printf("Elapsed Time: %d seconds\n",end_time - begin_time);
// clean up // clean up
fclose(f_out); fclose(f_out);

20
matlab/swz/c-code/sbvar/var/VARbase.c
View File

@ -636,7 +636,7 @@ int **ExpandTranslationTable(int **table, TMarkovStateVariable *sv, TMarkovState
free(idx); free(idx);
// verbose // verbose
//dw_PrintArray(stdout,rtable,(char*)NULL); fprintf(stdout,"\n"); dw_PrintArray(stdout,table,(char*)NULL); getchar(); //dw_PrintArray(stdout,rtable,(char*)NULL); printf("\n"); dw_PrintArray(stdout,table,(char*)NULL); getchar();
//dw_PrintArray(stdout,sv->Index,(char*)NULL); getchar(); //dw_PrintArray(stdout,sv->Index,(char*)NULL); getchar();
return rtable; return rtable;
@ -1479,7 +1479,7 @@ static void GetProposedJump_A0(TVector b, int j, int k, T_VAR_Parameters *p)
FreeMatrix(M0); FreeMatrix(M0);
} }
S=MatrixInnerProductSymmetric((TMatrix)NULL,p->U[j],YY); S=MatrixInnerProductSymmetric((TMatrix)NULL,p->U[j],YY);
//dw_PrintMatrix(stdout,S,"%.17le "); fprintf(stdout,"\n"); //dw_PrintMatrix(stdout,S,"%.17le "); printf("\n");
AddMM(S,S,p->inverse_b0_prior[j]); AddMM(S,S,p->inverse_b0_prior[j]);
//dw_PrintMatrix(stdout,S,"%.17le "); fgetc(stdin); //dw_PrintMatrix(stdout,S,"%.17le "); fgetc(stdin);
@ -1489,20 +1489,20 @@ static void GetProposedJump_A0(TVector b, int j, int k, T_VAR_Parameters *p)
dw_NormalVector(b); dw_NormalVector(b);
if (!InverseProductUV(b,CholeskyUT(S,S),b)) if (!InverseProductUV(b,CholeskyUT(S,S),b))
{ {
fprintf(stdout,"Error in GetProposedJump_A0()\n"); printf("Error in GetProposedJump_A0()\n");
fprintf(stdout,"j = %d, k = %d\n,Prior =\n",j,k); printf("j = %d, k = %d\n,Prior =\n",j,k);
dw_PrintMatrix(stdout,p->inverse_b0_prior[j],"%lg "); dw_PrintMatrix(stdout,p->inverse_b0_prior[j],"%lg ");
fprintf(stdout,"S =\n"); printf("S =\n");
dw_PrintMatrix(stdout,S,"%lg "); dw_PrintMatrix(stdout,S,"%lg ");
exit(1); exit(1);
} }
dw_SetTerminalErrors(terminal_errors); dw_SetTerminalErrors(terminal_errors);
/* else */ /* else */
/* { */ /* { */
/* fprintf(stdout,"GetProposedJump_A0()\n"); */ /* printf("GetProposedJump_A0()\n"); */
/* fprintf(stdout,"j = %d, k = %d\n,Prior =\n",j,k); */ /* printf("j = %d, k = %d\n,Prior =\n",j,k); */
/* dw_PrintMatrix(stdout,p->inverse_b0_prior[j],"%lg "); */ /* dw_PrintMatrix(stdout,p->inverse_b0_prior[j],"%lg "); */
/* fprintf(stdout,"S =\n"); */ /* printf("S =\n"); */
/* dw_PrintMatrix(stdout,S,"%lg "); */ /* dw_PrintMatrix(stdout,S,"%lg "); */
/* getchar(); */ /* getchar(); */
/* } */ /* } */
@ -2730,7 +2730,7 @@ void SetLogPriorConstant_VAR(T_VAR_Parameters *p)
p->log_prior_constant+=p->nvars*log(2); p->log_prior_constant+=p->nvars*log(2);
break; break;
default: default:
fprintf(stdout,"Unknown normalization type\n"); printf("Unknown normalization type\n");
exit(1); exit(1);
} }
} }
@ -3037,7 +3037,7 @@ int Normalize_VAR(T_VAR_Parameters *p)
case VAR_NORMALIZATION_WZ: return WZ_Normalize(p); case VAR_NORMALIZATION_WZ: return WZ_Normalize(p);
case VAR_NORMALIZATION_NONE: return 0; case VAR_NORMALIZATION_NONE: return 0;
default: default:
fprintf(stdout,"Unknown normalization type\n"); printf("Unknown normalization type\n");
exit(1); exit(1);
} }
} }

8
matlab/swz/c-code/sbvar/var/VARio_matlab.c
View File

@ -430,13 +430,13 @@ TStateModel* CreateStateModel_VAR_matlab(char *filename)
/* YY=TransposeProductMM((TMatrix)NULL,Ui[j],Sigma); */ /* YY=TransposeProductMM((TMatrix)NULL,Ui[j],Sigma); */
/* ZZ=ProductMM((TMatrix)NULL,YY,Ui[j]); */ /* ZZ=ProductMM((TMatrix)NULL,YY,Ui[j]); */
/* fprintf(stdout,"Computed[%d]\n",j); dw_PrintMatrix(stdout,ZZ,"%le "); fprintf(stdout,"\n"); */ /* printf("Computed[%d]\n",j); dw_PrintMatrix(stdout,ZZ,"%le "); printf("\n"); */
/* fprintf(stdout,"File[%d]\n",j); dw_PrintMatrix(stdout,H0[j],"%le "); fprintf(stdout,"\n"); */ /* printf("File[%d]\n",j); dw_PrintMatrix(stdout,H0[j],"%le "); printf("\n"); */
/* max=0.0; */ /* max=0.0; */
/* for (ii=0; ii < RowM(ZZ); ii++) */ /* for (ii=0; ii < RowM(ZZ); ii++) */
/* for (jj=0; jj < ColM(ZZ); jj++) */ /* for (jj=0; jj < ColM(ZZ); jj++) */
/* if (max < fabs(ElementM(H0[j],ii,jj) - ElementM(ZZ,ii,jj))) max=fabs(ElementM(H0[j],ii,jj) - ElementM(ZZ,ii,jj)); */ /* if (max < fabs(ElementM(H0[j],ii,jj) - ElementM(ZZ,ii,jj))) max=fabs(ElementM(H0[j],ii,jj) - ElementM(ZZ,ii,jj)); */
/* fprintf(stdout,"H0: max[%d] = %le\n",j,max); */ /* printf("H0: max[%d] = %le\n",j,max); */
/* FreeMatrix(ZZ); */ /* FreeMatrix(ZZ); */
/* FreeMatrix(YY); */ /* FreeMatrix(YY); */
@ -476,7 +476,7 @@ TStateModel* CreateStateModel_VAR_matlab(char *filename)
/* for (ii=0; ii < RowM(ZZ); ii++) */ /* for (ii=0; ii < RowM(ZZ); ii++) */
/* for (jj=0; jj < ColM(ZZ); jj++) */ /* for (jj=0; jj < ColM(ZZ); jj++) */
/* if (max < fabs(ElementM(H0[j],ii,jj) - ElementM(ZZ,ii,jj))) max=fabs(ElementM(H0[j],ii,jj) - ElementM(ZZ,ii,jj)); */ /* if (max < fabs(ElementM(H0[j],ii,jj) - ElementM(ZZ,ii,jj))) max=fabs(ElementM(H0[j],ii,jj) - ElementM(ZZ,ii,jj)); */
/* fprintf(stdout,"max[%d] = %le\n",j,max); */ /* printf("max[%d] = %le\n",j,max); */
/* FreeMatrix(ZZ); */ /* FreeMatrix(ZZ); */
/* FreeMatrix(YY); */ /* FreeMatrix(YY); */

12
matlab/swz/c-code/sbvar/var/estimate.c
View File

@ -289,7 +289,7 @@ int GetLastIteration(FILE *f_in, TStateModel *model, TEstimateInfo *estimate)
sprintf(header=(char*)malloc(strlen(fmt) + i - 1),fmt,k); sprintf(header=(char*)malloc(strlen(fmt) + i - 1),fmt,k);
if (ReadTransitionMatrices(f_in,(char*)NULL,header,model) && Read_VAR_Parameters(f_in,(char*)NULL,header,model)) if (ReadTransitionMatrices(f_in,(char*)NULL,header,model) && Read_VAR_Parameters(f_in,(char*)NULL,header,model))
{ {
fprintf(stdout,"Using intermediate output - %s\n",header); printf("Using intermediate output - %s\n",header);
estimate->initialization_header=header; estimate->initialization_header=header;
dw_SetTerminalErrors(terminal_errors); dw_SetTerminalErrors(terminal_errors);
return 1; return 1;
@ -375,7 +375,7 @@ TStateModel* GetModelFromCommandLine(int nargs, char **args, TEstimateInfo *esti
ReadTransitionMatrices(f_in,(char*)NULL,header,model); ReadTransitionMatrices(f_in,(char*)NULL,header,model);
Read_VAR_Parameters(f_in,(char*)NULL,header,model); Read_VAR_Parameters(f_in,(char*)NULL,header,model);
fclose(f_in); fclose(f_in);
fprintf(stdout,"Using final output\n"); printf("Using final output\n");
estimate->specification_filename=filename; estimate->specification_filename=filename;
estimate->initialization_filename=filename; estimate->initialization_filename=filename;
estimate->initialization_header=header; estimate->initialization_header=header;
@ -415,7 +415,7 @@ TStateModel* GetModelFromCommandLine(int nargs, char **args, TEstimateInfo *esti
ReadTransitionMatrices(f_in,(char*)NULL,header,model); ReadTransitionMatrices(f_in,(char*)NULL,header,model);
Read_VAR_Parameters(f_in,(char*)NULL,header,model); Read_VAR_Parameters(f_in,(char*)NULL,header,model);
fclose(f_in); fclose(f_in);
fprintf(stdout,"Using initial data\n"); printf("Using initial data\n");
estimate->initialization_filename=filename; estimate->initialization_filename=filename;
estimate->initialization_header=header; estimate->initialization_header=header;
if (d2) free(d2); if (d2) free(d2);
@ -614,7 +614,7 @@ int main(int nargs, char **args)
//=== Help Screen === //=== Help Screen ===
if (dw_FindArgument_String(nargs,args,"h") != -1) if (dw_FindArgument_String(nargs,args,"h") != -1)
{ {
fprintf(stdout,"print_draws <options>\n"); printf("print_draws <options>\n");
PrintHelpMessages(stdout,include_help,additional_help); PrintHelpMessages(stdout,include_help,additional_help);
return 0; return 0;
} }
@ -623,11 +623,11 @@ int main(int nargs, char **args)
seed=dw_ParseInteger_String(nargs,args,"gs",0); seed=dw_ParseInteger_String(nargs,args,"gs",0);
dw_initialize_generator(seed); dw_initialize_generator(seed);
fprintf(stdout,"Reading initial data...\n"); printf("Reading initial data...\n");
if (model=SetupFromCommandLine(nargs,args,&estimate)) if (model=SetupFromCommandLine(nargs,args,&estimate))
{ {
// Estimation // Estimation
fprintf(stdout,"Beginning estimation...\n"); printf("Beginning estimation...\n");
begin_time=time((time_t*)NULL); begin_time=time((time_t*)NULL);
FindMode_VAR_csminwel(model,estimate); FindMode_VAR_csminwel(model,estimate);
end_time=time((time_t*)NULL); end_time=time((time_t*)NULL);

8
matlab/swz/c-code/sbvar/var/mhm_VAR.c
View File

@ -173,7 +173,7 @@ void BurnIn(T_MHM *mhm, int iterations, int period)
} }
printf("Total Elapsed Time: %d seconds\n",(int)time((time_t*)NULL) - begin_time); printf("Total Elapsed Time: %d seconds\n",(int)time((time_t*)NULL) - begin_time);
fprintf(stdout,"%d iterations completed out of %d\n",count,iterations); printf("%d iterations completed out of %d\n",count,iterations);
PrintJumps(stdout,(T_VAR_Parameters*)(mhm->model->theta)); PrintJumps(stdout,(T_VAR_Parameters*)(mhm->model->theta));
} }
} }
@ -204,7 +204,7 @@ void ComputeMeanVariance_MHM(T_MHM *mhm, int iterations, int period)
InitializeMatrix(mhm->variance,0.0); InitializeMatrix(mhm->variance,0.0);
// loop and accumulate 1st and 2nd non-central moments // loop and accumulate 1st and 2nd non-central moments
fprintf(stdout,"Beginning mean and variance estimation -- %d iterations.\n",iterations); printf("Beginning mean and variance estimation -- %d iterations.\n",iterations);
begin_time=time((time_t*)NULL); begin_time=time((time_t*)NULL);
for (count=1; count <= iterations; count++) for (count=1; count <= iterations; count++)
{ {
@ -227,8 +227,8 @@ void ComputeMeanVariance_MHM(T_MHM *mhm, int iterations, int period)
if (count == check) if (count == check)
{ {
check+=period; check+=period;
fprintf(stdout,"Total Elapsed Time: %d seconds\n",(int)time((time_t*)NULL) - begin_time); printf("Total Elapsed Time: %d seconds\n",(int)time((time_t*)NULL) - begin_time);
fprintf(stdout,"%d iterations completed out of %d\n",count,iterations); printf("%d iterations completed out of %d\n",count,iterations);
PrintJumps(stdout,(T_VAR_Parameters*)(mhm->model->theta)); PrintJumps(stdout,(T_VAR_Parameters*)(mhm->model->theta));
} }
} }

24
matlab/swz/c-code/sbvar/var/mhm_VAR_main_1.c
View File

@ -417,7 +417,7 @@ int main(int nargs, char **args)
initial_time=begin_time=time((time_t*)NULL); initial_time=begin_time=time((time_t*)NULL);
BurnIn_AdaptiveMetropolisScale(mhm,mhm->n_burn1,1000); BurnIn_AdaptiveMetropolisScale(mhm,mhm->n_burn1,1000);
end_time=time((time_t*)NULL); end_time=time((time_t*)NULL);
fprintf(stdout,"Elapsed Time: %d seconds\n",end_time - begin_time); printf("Elapsed Time: %d seconds\n",end_time - begin_time);
} }
// After first burn-in // After first burn-in
@ -438,10 +438,10 @@ int main(int nargs, char **args)
initial_time=begin_time=time((time_t*)NULL); initial_time=begin_time=time((time_t*)NULL);
BurnIn(mhm,mhm->n_burn2,1000); BurnIn(mhm,mhm->n_burn2,1000);
end_time=time((time_t*)NULL); end_time=time((time_t*)NULL);
fprintf(stdout,"Elapsed Time: %d seconds\n",end_time - begin_time); printf("Elapsed Time: %d seconds\n",end_time - begin_time);
fprintf(stdout,"Number inconsistent normalizations: %d\n",((T_VAR_Parameters*)mhm->model->theta)->WZ_inconsistancies); printf("Number inconsistent normalizations: %d\n",((T_VAR_Parameters*)mhm->model->theta)->WZ_inconsistancies);
fprintf(stdout,"Number singular inverse variances: %d\n\n",Get_VAR_Improper_Distribution_Counter()); printf("Number singular inverse variances: %d\n\n",Get_VAR_Improper_Distribution_Counter());
} }
fclose(f_out_intermediate_draws); fclose(f_out_intermediate_draws);
@ -463,20 +463,20 @@ int main(int nargs, char **args)
begin_time=time((time_t*)NULL); begin_time=time((time_t*)NULL);
ComputeMeanVariance_MHM(mhm,mhm->n_mean_variance,10000); ComputeMeanVariance_MHM(mhm,mhm->n_mean_variance,10000);
end_time=time((time_t*)NULL); end_time=time((time_t*)NULL);
fprintf(stdout,"Elapsed Time: %d seconds\n",end_time - begin_time); printf("Elapsed Time: %d seconds\n",end_time - begin_time);
fprintf(stdout,"Number inconsistent normalizations: %d\n",((T_VAR_Parameters*)mhm->model->theta)->WZ_inconsistancies); printf("Number inconsistent normalizations: %d\n",((T_VAR_Parameters*)mhm->model->theta)->WZ_inconsistancies);
fprintf(stdout,"Number singular inverse variances: %d\n\n",Get_VAR_Improper_Distribution_Counter()); printf("Number singular inverse variances: %d\n\n",Get_VAR_Improper_Distribution_Counter());
} }
// Set center to mean if necessary // Set center to mean if necessary
if (dw_FindArgument_String(nargs,args,"cm") >= 0) if (dw_FindArgument_String(nargs,args,"cm") >= 0)
{ {
fprintf(stdout,"Using mean for center\n"); printf("Using mean for center\n");
mhm->center=mhm->mean; mhm->center=mhm->mean;
} }
else else
fprintf(stdout,"Using posterior mode for center\n"); printf("Using posterior mode for center\n");
// After mean-variance estimation // After mean-variance estimation
@ -507,9 +507,9 @@ int main(int nargs, char **args)
begin_time=time((time_t*)NULL); begin_time=time((time_t*)NULL);
ComputeModifiedHarmonicMean(mhm,10000); ComputeModifiedHarmonicMean(mhm,10000);
end_time=time((time_t*)NULL); end_time=time((time_t*)NULL);
fprintf(stdout,"Elapsed Time: %d seconds\n",end_time - begin_time); printf("Elapsed Time: %d seconds\n",end_time - begin_time);
fprintf(stdout,"Number inconsistent normalizations: %d\n",((T_VAR_Parameters*)mhm->model->theta)->WZ_inconsistancies); printf("Number inconsistent normalizations: %d\n",((T_VAR_Parameters*)mhm->model->theta)->WZ_inconsistancies);
fprintf(stdout,"Number singular inverse variances: %d\n\n",Get_VAR_Improper_Distribution_Counter()); printf("Number singular inverse variances: %d\n\n",Get_VAR_Improper_Distribution_Counter());
fclose(mhm->f_out); fclose(mhm->f_out);

6
matlab/swz/c-code/sbvar/var/mhm_VAR_main_2.c
View File

@ -696,7 +696,7 @@ TVector Create_q(int ndraws, TVector center, TMatrix scale, TStateModel* model,
// timings // timings
end_time=time((time_t*)NULL); end_time=time((time_t*)NULL);
fprintf(stdout,"Elapsed Time: %d seconds\n",end_time - begin_time); printf("Elapsed Time: %d seconds\n",end_time - begin_time);
FreeVector(free_parameters); FreeVector(free_parameters);
@ -779,7 +779,7 @@ TMatrix CreateProposal(int ndraws, TVector center, TMatrix scale, TStateModel* m
// timings // timings
end_time=time((time_t*)NULL); end_time=time((time_t*)NULL);
fprintf(stdout,"Elapsed Time: %d seconds\n",end_time - begin_time); printf("Elapsed Time: %d seconds\n",end_time - begin_time);
FreeVector(free_parameters); FreeVector(free_parameters);
@ -859,7 +859,7 @@ TMatrix CreateProposal_Radius(int ndraws, TVector center, TMatrix scale, TStateM
// timings // timings
end_time=time((time_t*)NULL); end_time=time((time_t*)NULL);
fprintf(stdout,"Elapsed Time: %d seconds\n",end_time - begin_time); printf("Elapsed Time: %d seconds\n",end_time - begin_time);
FreeVector(free_parameters); FreeVector(free_parameters);

16
matlab/swz/c-code/utilities/TZCcode/kalman.c
View File

@ -777,7 +777,7 @@ double tz_kalfiltv(struct TSkalfiltv_tag *kalfiltv_ps)
} }
else else
{ {
fprintf(stdout, "Fatal error: tz_kalfiltv() in kalman.c: the system is non-stationary solutions\n" printf("Fatal error: tz_kalfiltv() in kalman.c: the system is non-stationary solutions\n"
" and the initial conditions must be supplied by, say, input arguments"); " and the initial conditions must be supplied by, say, input arguments");
fflush(stdout); fflush(stdout);
exit( EXIT_FAILURE ); exit( EXIT_FAILURE );
@ -1311,9 +1311,9 @@ int InitializeKalman_z10_P10(struct TSkalfilmsinputs_1stapp_tag *kalfilmsinputs_
fprintf(FPTR_DEBUG, ".../kalman.c/InitializeKalman_z10_P10(): the system is non-stationary solutions\n" fprintf(FPTR_DEBUG, ".../kalman.c/InitializeKalman_z10_P10(): the system is non-stationary solutions\n"
" and see p.003 in LWZ Model II"); " and see p.003 in LWZ Model II");
#else #else
fprintf(stdout, "\n-----------------\n"); printf("\n-----------------\n");
fprintf(stdout, "\nIn grand regime sti=%d\n", sti); printf("\nIn grand regime sti=%d\n", sti);
fprintf(stdout, ".../kalman.c/InitializeKalman_z10_P10(): the system is non-stationary solutions\n" printf(".../kalman.c/InitializeKalman_z10_P10(): the system is non-stationary solutions\n"
" and see p.003 in LWZ Model II"); " and see p.003 in LWZ Model II");
#endif #endif
} }
@ -1836,8 +1836,8 @@ double tz_logTimetCondLH_kalfilms_1st_approx(int st, int inpt, struct TSkalfilms
} }
else else
{ {
fprintf(stdout, "\n-----------------\n"); printf("\n-----------------\n");
fprintf(stdout, "\nIn regime comsti_c=%d and sti_v=%d and at time=%d\n", comsti_c, sti_v, 0); printf("\nIn regime comsti_c=%d and sti_v=%d and at time=%d\n", comsti_c, sti_v, 0);
fn_DisplayError("kalman.c/tz_Refresh_z_T7P_T_in_kalfilms_1st_approx(): the system is non-stationary solutions\n" fn_DisplayError("kalman.c/tz_Refresh_z_T7P_T_in_kalfilms_1st_approx(): the system is non-stationary solutions\n"
" and the initial conditions must be supplied by, say, input arguments"); " and the initial conditions must be supplied by, say, input arguments");
fflush(stdout); fflush(stdout);
@ -2464,8 +2464,8 @@ void tz_Refresh_z_T7P_T_in_kalfilms_1st_approx(struct TSkalfilmsinputs_tag *kalf
} }
else else
{ {
fprintf(stdout, "\n-----------------\n"); printf("\n-----------------\n");
fprintf(stdout, "\nIn regime sti_c=%d and sti_v=%d and at time=%d\n", sti_c, sti_v, 0); printf("\nIn regime sti_c=%d and sti_v=%d and at time=%d\n", sti_c, sti_v, 0);
fn_DisplayError("kalman.c/tz_Refresh_z_T7P_T_in_kalfilms_1st_approx(): the system is non-stationary solutions\n" fn_DisplayError("kalman.c/tz_Refresh_z_T7P_T_in_kalfilms_1st_approx(): the system is non-stationary solutions\n"
" and the initial conditions must be supplied by, say, input arguments"); " and the initial conditions must be supplied by, say, input arguments");
fflush(stdout); fflush(stdout);

2
matlab/swz/c-code/utilities/TZCcode/mathlib.c
View File

@ -4304,7 +4304,7 @@ void TransposeSquare(TSdmatrix *B_dm, TSdmatrix *A_dm) {
fprintf(FPTR_DEBUG, "\nWARNING: .../mathlib.c/TransposeSquare(): the matrix is already both SU and SL, so there is no need to transpose.\n"); fprintf(FPTR_DEBUG, "\nWARNING: .../mathlib.c/TransposeSquare(): the matrix is already both SU and SL, so there is no need to transpose.\n");
fflush(FPTR_DEBUG); fflush(FPTR_DEBUG);
#else #else
fprintf(stdout, "\nWARNING: .../mathlib.c/TransposeSquare(): the matrix is already both SU and SL, so there is no need to transpose.\n"); printf("\nWARNING: .../mathlib.c/TransposeSquare(): the matrix is already both SU and SL, so there is no need to transpose.\n");
fflush(stdout); fflush(stdout);
#endif #endif

4
matlab/swz/c-code/utilities/TZCcode/tzmatlab.c
View File

@ -3,7 +3,7 @@
fprintf(FPTR_DEBUG, "\nWARNING: .../mathlib.c/TransposeSquare(): the matrix is already both SU and SL, so there is no need to transpose.\n"); fprintf(FPTR_DEBUG, "\nWARNING: .../mathlib.c/TransposeSquare(): the matrix is already both SU and SL, so there is no need to transpose.\n");
fflush(FPTR_DEBUG); fflush(FPTR_DEBUG);
#else #else
fprintf(stdout, "\nWARNING: .../mathlib.c/TransposeSquare(): the matrix is already both SU and SL, so there is no need to transpose.\n"); printf("\nWARNING: .../mathlib.c/TransposeSquare(): the matrix is already both SU and SL, so there is no need to transpose.\n");
fflush(stdout); fflush(stdout);
#endif #endif
/**/ /**/
@ -48,7 +48,7 @@ void fn_DisplayError(char *msg_s)
" %s!\n", msg_s); " %s!\n", msg_s);
fflush(FPTR_DEBUG); fflush(FPTR_DEBUG);
#else #else
fprintf(stdout, "\nFatal Error:\n" printf("\nFatal Error:\n"
"\t %s!\n", msg_s); "\t %s!\n", msg_s);
fflush(stdout); fflush(stdout);
#endif #endif