*! version 1.0.0  06/22/94      ssi6.2, STB-21
program define post_fl
	version 3.1
	if scalar(POST_k) == 0 { exit }
	preserve 
	capture use $POST_fn, clear 
	if _rc { 
		if scalar(POST_n) != 0 { 
			di "post:  file $POST_fn disappeared"
			exit 601
		}
		quietly {
			parse "$POST_vl", parse(" ")
			drop _all
			set obs 1
			while "`1'"!="" {
				gen float `1' = . 
				mac shift
			}
		}
		local newobs = scalar(POST_k)
	}
	else {
		local newobs = _N + scalar(POST_k)
	}
	quietly {
		set obs `newobs'

		local i 1
		while `i' <= scalar(POST_p) {
			local name : word `i' of $POST_vl
			parse "${POSTV`i'}", parse(" ")
			local j = scalar(POST_n) + 1
			local k 1
			while `j' <= _N {
				replace `name' = ``k'' in `j'
				local k=`k'+1
				local j=`j'+1
			}
			global POSTV`i'
			local i=`i'+1 
		}
		save $POST_fn, replace
	}
	scalar POST_k = 0
	scalar POST_n = _N
end