! 例題 5-3  三角関数の数表 ［書式の指定 ］
PROGRAM ex5_3

  IMPLICIT NONE
  INTEGER :: k
  REAL, PARAMETER :: rad = 3.1415926E0 / 180.0E0
  REAL :: r, s, c, p

  PRINT '( 1X, A )', '角度      sin       cos       check'
  DO k = 0, 90, 10
    r = k * rad
    s = SIN( r )
    c = COS( r )
    p = s ** 2 + c ** 2
    PRINT '( 1X, I3, 2X, 3F10.5 )', k, s, c, p
  END DO

END PROGRAM ex5_3