!-----  Ex5_3: Table of SIN and COS   -----
      REAL, PARAMETER:: RAD = 3.1415926/180.0
      REAL :: r, s, c ;   INTEGER :: k
      PRINT*, "Šp“x      SIN       COS       CHECK"
      DO k = 0, 90, 10
         r = k*RAD;  s = SIN(r); c = COS(r)
         PRINT  '(1X, I3, 2X, 3F10.5)', k, s, c, s**2+c**2
      END DO
      END