capture program drop nwrename
program nwrename
	
	local renameCmd `0'
	
	preserve
	drop _all
	_nwsyntax _all, max(9999)
	foreach onenet in `netname' {
		gen `onenet' = .
	}
	rename `renameCmd', r
	local oldnames "`r(oldnames)'"
	local newnames "`r(newnames)'"
	restore
	local i = 1
	foreach onenet in `oldnames' {
		local newname : word `i' of `newnames'
		nwname `onenet', newname(`newname')
		local i = `i' + 1
	}
end

*! v1.5.0 __ 17 Sep 2015 __ 13:09:53
*! v1.5.1 __ 17 Sep 2015 __ 14:54:23