%
%  psd_syn_output_plots.m  ver 1.1  March 13, 2013
%
function[fig_num]=...
psd_syn_output_plots(fig_num,TT,psd_TH,velox,dispx,freq_spec,amp_spec,rms,freq,full,iunit)
%
[fig_num]=...
plot_time_history(fig_num,'Accel(G)','Synthesized Acceleration Time History',[TT psd_TH],1);
%
%
if(iunit==1)
%
    [fig_num]=...
    plot_time_history(fig_num,'Vel(in/sec)','Synthesized Velocity Time History',[TT velox],1);
%
    [fig_num]=...
    plot_time_history(fig_num,'Disp(in)','Synthesized Displacement Time History',[TT dispx],1);
%
else
%
    [fig_num]=...
    plot_time_history(fig_num,'Vel(cm/sec)','Synthesized Velocity Time History',[TT velox],1);
%
    [fig_num]=...
    plot_time_history(fig_num,'Disp(mm)','Synthesized Displacement Time History',[TT dispx],1);
%
end
%
disp(' ')
disp(' Plot acceleration histogram? ')
hchoice = input(' 1=yes 2=no ');
%
if(hchoice == 1)
    [fig_num]=plot_histogram(psd_TH,'Accel(G)',fig_num);
end    
%
[fig_num]=accel_PSD_syn_plot(fig_num,freq,full,freq_spec,amp_spec,rms);