'subroutine to plot forecasts
'version 4
'last checked and revised 9/22/2000 h
'
'gname = (input) name for graph to plot forecasts
'xf = (input) point forecasts
'xf_upp = (input) upper bound of forecast interval
'xf_low = (input) lower bound of forecast interval

subroutine sub_plotForecast(string %gname, series xf, series xf_upp, series xf_low)

'make graph
graph {%gname}.line xf xf_upp xf_low

'set line pattern and colors
{%gname}.setelem(1) linepat(solid) lcolor(blue)
{%gname}.setelem(2) linepat(dash1) lcolor(red)
{%gname}.setelem(3) linepat(dash1) lcolor(red)
{%gname}.options linepat

'show {%gname}

endsub

