deg2rad.ado

*! version 1.0.0 June 19, 2000 @ 13:37:25
*! converts degrees to radians
program define deg2rad
version 6.0

	syntax varlist(max=3) [if] [in], gen(str) [float double]
	marksample useme

	confirm new var `gen'

	if "`float'"!="" {
		if "`double'"!="" {
			display in red "Choose at most one of float or double!"
			exit 198
			}
		}
	
	local numvar : word count `varlist'
	parse "`varlist'", parse(" ")
	if `numvar'>=2 {
		local extra "+ `2'/60"
		}
	if `numvar'==3 {
		local extra "`extra' + `3'/3600"
		}

	gen `float' `double' `gen' = (`1' `extra')*_pi/180 if `useme'
end