u=6.29 x=cotan(u) print *,x end