	do 1 i=1,30
	arcmin=i-1
	arcsec=arcmin*60.
	rad=arcsec/206262.
	f=1.+81.*rad**2
	dnew=f*rad
C convert to mm
	dmm=dnew/9.4032/4.84814e-6
	write(6,*) arcsec,dmm
1	continue
	stop
	end
