pi=3.1415926536
print *,"  x[rad]        x[grad]        sin         cos       tan"
print *,"============================================================"
do x=0.,pi/2.,0.01
print '(5f12.4)',x,x*180/pi,sin(x),cos(x),tan(x)
enddo

stop
end