PROGRAM ch1503
REAL , DIMENSION(5) :: X = (/1.0,2.0,3.0,4.0,5.0/)
  PRINT *,' Sine of ', X ,' = ',SIN(X)
END PROGRAM ch1503