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;
if (!(index=dw_CreateArray_int(sv->nstates)))
{
fprintf(stdout,"CreateStateIndex(): Out of memory.\n");
printf("CreateStateIndex(): Out of memory.\n");
exit(0);
}
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++)
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);
}
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 ===
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);
return 0;
}
@ -66,7 +66,7 @@ int main(int nargs, char **args)
dw_initialize_generator(seed);
//=== Setup model and initial parameters
fprintf(stdout,"Reading data...\n");
printf("Reading data...\n");
if (!(model=CreateTStateModelFromEstimateFinal(nargs,args,&cmd)))
{
fprintf(stderr,"Unable to read model or parameters\n");
@ -89,19 +89,19 @@ int main(int nargs, char **args)
free(filename);
// 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);
AdaptiveMetropolisScale(model,tuning,1000,1,(FILE*)NULL); // tuning iterations - 1000 iterations before updating - verbose
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
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))
fprintf(stdout,"Unable to reset parameters after tuning\n");
printf("Unable to reset parameters after tuning\n");
// 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++)
{
DrawAll(model);
@ -109,15 +109,15 @@ int main(int nargs, char **args)
if (count == check)
{
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);
fprintf(stdout,"Elapsed Time: %d seconds\n",end_time - begin_time);
printf("Elapsed Time: %d seconds\n",end_time - begin_time);
ResetMetropolisInformation(p);
// Simulation
fprintf(stdout,"Simulating - %d draws\n",iterations);
printf("Simulating - %d draws\n",iterations);
for (check=period, output=thinning, count=1; count <= iterations; count++)
{
DrawAll(model);
@ -136,11 +136,11 @@ int main(int nargs, char **args)
if (count == check)
{
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);
fprintf(stdout,"Elapsed Time: %d seconds\n",end_time - begin_time);
printf("Elapsed Time: %d seconds\n",end_time - begin_time);
// clean up
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);
// 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();
return rtable;
@ -1479,7 +1479,7 @@ static void GetProposedJump_A0(TVector b, int j, int k, T_VAR_Parameters *p)
FreeMatrix(M0);
}
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]);
//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);
if (!InverseProductUV(b,CholeskyUT(S,S),b))
{
fprintf(stdout,"Error in GetProposedJump_A0()\n");
fprintf(stdout,"j = %d, k = %d\n,Prior =\n",j,k);
printf("Error in GetProposedJump_A0()\n");
printf("j = %d, k = %d\n,Prior =\n",j,k);
dw_PrintMatrix(stdout,p->inverse_b0_prior[j],"%lg ");
fprintf(stdout,"S =\n");
printf("S =\n");
dw_PrintMatrix(stdout,S,"%lg ");
exit(1);
}
dw_SetTerminalErrors(terminal_errors);
/* else */
/* { */
/* fprintf(stdout,"GetProposedJump_A0()\n"); */
/* fprintf(stdout,"j = %d, k = %d\n,Prior =\n",j,k); */
/* printf("GetProposedJump_A0()\n"); */
/* printf("j = %d, k = %d\n,Prior =\n",j,k); */
/* dw_PrintMatrix(stdout,p->inverse_b0_prior[j],"%lg "); */
/* fprintf(stdout,"S =\n"); */
/* printf("S =\n"); */
/* dw_PrintMatrix(stdout,S,"%lg "); */
/* getchar(); */
/* } */
@ -2730,7 +2730,7 @@ void SetLogPriorConstant_VAR(T_VAR_Parameters *p)
p->log_prior_constant+=p->nvars*log(2);
break;
default:
fprintf(stdout,"Unknown normalization type\n");
printf("Unknown normalization type\n");
exit(1);
}
}
@ -3037,7 +3037,7 @@ int Normalize_VAR(T_VAR_Parameters *p)
case VAR_NORMALIZATION_WZ: return WZ_Normalize(p);
case VAR_NORMALIZATION_NONE: return 0;
default:
fprintf(stdout,"Unknown normalization type\n");
printf("Unknown normalization type\n");
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); */
/* ZZ=ProductMM((TMatrix)NULL,YY,Ui[j]); */
/* fprintf(stdout,"Computed[%d]\n",j); dw_PrintMatrix(stdout,ZZ,"%le "); fprintf(stdout,"\n"); */
/* fprintf(stdout,"File[%d]\n",j); dw_PrintMatrix(stdout,H0[j],"%le "); fprintf(stdout,"\n"); */
/* printf("Computed[%d]\n",j); dw_PrintMatrix(stdout,ZZ,"%le "); printf("\n"); */
/* printf("File[%d]\n",j); dw_PrintMatrix(stdout,H0[j],"%le "); printf("\n"); */
/* max=0.0; */
/* for (ii=0; ii < RowM(ZZ); ii++) */
/* 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)); */
/* fprintf(stdout,"H0: max[%d] = %le\n",j,max); */
/* printf("H0: max[%d] = %le\n",j,max); */
/* FreeMatrix(ZZ); */
/* FreeMatrix(YY); */
@ -476,7 +476,7 @@ TStateModel* CreateStateModel_VAR_matlab(char *filename)
/* for (ii=0; ii < RowM(ZZ); ii++) */
/* 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)); */
/* fprintf(stdout,"max[%d] = %le\n",j,max); */
/* printf("max[%d] = %le\n",j,max); */
/* FreeMatrix(ZZ); */
/* 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);
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;
dw_SetTerminalErrors(terminal_errors);
return 1;
@ -375,7 +375,7 @@ TStateModel* GetModelFromCommandLine(int nargs, char **args, TEstimateInfo *esti
ReadTransitionMatrices(f_in,(char*)NULL,header,model);
Read_VAR_Parameters(f_in,(char*)NULL,header,model);
fclose(f_in);
fprintf(stdout,"Using final output\n");
printf("Using final output\n");
estimate->specification_filename=filename;
estimate->initialization_filename=filename;
estimate->initialization_header=header;
@ -415,7 +415,7 @@ TStateModel* GetModelFromCommandLine(int nargs, char **args, TEstimateInfo *esti
ReadTransitionMatrices(f_in,(char*)NULL,header,model);
Read_VAR_Parameters(f_in,(char*)NULL,header,model);
fclose(f_in);
fprintf(stdout,"Using initial data\n");
printf("Using initial data\n");
estimate->initialization_filename=filename;
estimate->initialization_header=header;
if (d2) free(d2);
@ -614,7 +614,7 @@ int main(int nargs, char **args)
//=== Help Screen ===
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);
return 0;
}
@ -623,11 +623,11 @@ int main(int nargs, char **args)
seed=dw_ParseInteger_String(nargs,args,"gs",0);
dw_initialize_generator(seed);
fprintf(stdout,"Reading initial data...\n");
printf("Reading initial data...\n");
if (model=SetupFromCommandLine(nargs,args,&estimate))
{
// Estimation
fprintf(stdout,"Beginning estimation...\n");
printf("Beginning estimation...\n");
begin_time=time((time_t*)NULL);
FindMode_VAR_csminwel(model,estimate);
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);
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));
}
}
@ -204,7 +204,7 @@ void ComputeMeanVariance_MHM(T_MHM *mhm, int iterations, int period)
InitializeMatrix(mhm->variance,0.0);
// 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);
for (count=1; count <= iterations; count++)
{
@ -227,8 +227,8 @@ void ComputeMeanVariance_MHM(T_MHM *mhm, int iterations, int period)
if (count == check)
{
check+=period;
fprintf(stdout,"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("Total Elapsed Time: %d seconds\n",(int)time((time_t*)NULL) - begin_time);
printf("%d iterations completed out of %d\n",count,iterations);
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);
BurnIn_AdaptiveMetropolisScale(mhm,mhm->n_burn1,1000);
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
@ -438,10 +438,10 @@ int main(int nargs, char **args)
initial_time=begin_time=time((time_t*)NULL);
BurnIn(mhm,mhm->n_burn2,1000);
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);
fprintf(stdout,"Number singular inverse variances: %d\n\n",Get_VAR_Improper_Distribution_Counter());
printf("Number inconsistent normalizations: %d\n",((T_VAR_Parameters*)mhm->model->theta)->WZ_inconsistancies);
printf("Number singular inverse variances: %d\n\n",Get_VAR_Improper_Distribution_Counter());
}
fclose(f_out_intermediate_draws);
@ -463,20 +463,20 @@ int main(int nargs, char **args)
begin_time=time((time_t*)NULL);
ComputeMeanVariance_MHM(mhm,mhm->n_mean_variance,10000);
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);
fprintf(stdout,"Number singular inverse variances: %d\n\n",Get_VAR_Improper_Distribution_Counter());
printf("Number inconsistent normalizations: %d\n",((T_VAR_Parameters*)mhm->model->theta)->WZ_inconsistancies);
printf("Number singular inverse variances: %d\n\n",Get_VAR_Improper_Distribution_Counter());
}
// Set center to mean if necessary
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;
}
else
fprintf(stdout,"Using posterior mode for center\n");
printf("Using posterior mode for center\n");
// After mean-variance estimation
@ -507,9 +507,9 @@ int main(int nargs, char **args)
begin_time=time((time_t*)NULL);
ComputeModifiedHarmonicMean(mhm,10000);
end_time=time((time_t*)NULL);
fprintf(stdout,"Elapsed Time: %d seconds\n",end_time - begin_time);
fprintf(stdout,"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("Elapsed Time: %d seconds\n",end_time - begin_time);
printf("Number inconsistent normalizations: %d\n",((T_VAR_Parameters*)mhm->model->theta)->WZ_inconsistancies);
printf("Number singular inverse variances: %d\n\n",Get_VAR_Improper_Distribution_Counter());
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
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);
@ -779,7 +779,7 @@ TMatrix CreateProposal(int ndraws, TVector center, TMatrix scale, TStateModel* m
// timings
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);
@ -859,7 +859,7 @@ TMatrix CreateProposal_Radius(int ndraws, TVector center, TMatrix scale, TStateM
// timings
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);

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

@ -777,7 +777,7 @@ double tz_kalfiltv(struct TSkalfiltv_tag *kalfiltv_ps)
}
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");
fflush(stdout);
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"
" and see p.003 in LWZ Model II");
#else
fprintf(stdout, "\n-----------------\n");
fprintf(stdout, "\nIn grand regime sti=%d\n", sti);
fprintf(stdout, ".../kalman.c/InitializeKalman_z10_P10(): the system is non-stationary solutions\n"
printf("\n-----------------\n");
printf("\nIn grand regime sti=%d\n", sti);
printf(".../kalman.c/InitializeKalman_z10_P10(): the system is non-stationary solutions\n"
" and see p.003 in LWZ Model II");
#endif
}
@ -1836,8 +1836,8 @@ double tz_logTimetCondLH_kalfilms_1st_approx(int st, int inpt, struct TSkalfilms
}
else
{
fprintf(stdout, "\n-----------------\n");
fprintf(stdout, "\nIn regime comsti_c=%d and sti_v=%d and at time=%d\n", comsti_c, sti_v, 0);
printf("\n-----------------\n");
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"
" and the initial conditions must be supplied by, say, input arguments");
fflush(stdout);
@ -2464,8 +2464,8 @@ void tz_Refresh_z_T7P_T_in_kalfilms_1st_approx(struct TSkalfilmsinputs_tag *kalf
}
else
{
fprintf(stdout, "\n-----------------\n");
fprintf(stdout, "\nIn regime sti_c=%d and sti_v=%d and at time=%d\n", sti_c, sti_v, 0);
printf("\n-----------------\n");
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"
" and the initial conditions must be supplied by, say, input arguments");
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");
fflush(FPTR_DEBUG);
#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);
#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");
fflush(FPTR_DEBUG);
#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);
#endif
/**/
@ -48,7 +48,7 @@ void fn_DisplayError(char *msg_s)
" %s!\n", msg_s);
fflush(FPTR_DEBUG);
#else
fprintf(stdout, "\nFatal Error:\n"
printf("\nFatal Error:\n"
"\t %s!\n", msg_s);
fflush(stdout);
#endif