function getsign(x)
	if x < 0 then
		getsign = -1
	else
		getsign = 1
	end if
end function

Function dmsdec(d, m, s)
	dmsdec = d + m/60 + s/3600
End Function

function dmsr(d, m, s)
  dmsr = (d + m/60 + s/3600) / 180 * PI()
End Function

function decdms(dec)
	dim sign as integer
	sign = getsign(dec)
	dec = sign * dec
	dim degrees as integer
	degrees = floor(dec)
	dim minutes as integer
	minutes = floor((dec-degrees)*60)
	dim seconds as double
	seconds = (dec-degrees-minutes/60)*3600

	decdms = array(sign * degrees, minutes, seconds)
End Function

function decr(dec)
  decr = dec / 180 * PI()
End Function

function rdec (rad)
	rdec = rad * 180 / PI()
End Function

function rdms (rad)
	dim dec as double
	dec = rad * 180 / PI()
	dim sign as integer
	sign = getsign(dec)
	dec = sign * dec
	dim degrees as integer
	degrees = int(dec)
	dim minutes as integer
	minutes = int((dec-degrees)*60)
	dim seconds as double
	seconds = (dec-degrees-minutes/60)*3600
	rdms = array(sign * degrees, minutes, seconds)
End Function

function seconds(d, m, s)
  seconds = d*3600 + m*60+s
End Function