PROGRAM ch1501
REAL :: X
  PRINT *,' Type in an angle (in radians)'
  READ *,X
  PRINT *,' Sine of ', X ,' = ',SIN(X)
END PROGRAM ch1501