*! version 0.1 Mai 15, 2009 @ 10:38:15 UK
*! Subprogram for lgph
program lgphout
version 10.0

syntax anything [, export print]

if "`export'" == "export" {
	graph use `anything'
	local fname = subinstr(`anything',".gph","",1)
	quietly graph export "`fname'.eps", replace
	display 							///
	  `" {res} `fname'.eps {txt}created "' ///
	  `" [{browse `"`fname'.eps"':browse}]"'

}

if "`print'" == "print" {
	graph use `anything'
	graph print
}


end
exit

Author: Ulrich Kohler
	Tel +49 (0)30 25491 361
	Fax +49 (0)30 25491 360
	Email kohler@wzb.eu