! 例題 1-3  三角関数の値を求める ［数学関数の計算 ］
PROGRAM ex1_3

  REAL :: x, s, c

  PRINT *, 'Input degree of the angle:'
  READ *, x

  x = ( 3.14159265 / 180.0 ) * x       ! 三角関数の引数はラジアン
  s = SIN( x )
  c = COS( x )

  PRINT *, 'sin =', s, 'cos =', c, 'sin^2 + cos^2 =', s ** 2 + c ** 2

END PROGRAM ex1_3