PROGRAM ch1504
IMPLICIT NONE
REAL , DIMENSION(5) :: X = (/1.0,2.0,3.0,4.0,5.0/)
! Elemental function
  PRINT *,' Sine of ', X ,' = ',SIN(X)
! Transformational function
  PRINT *,' Sum of ', X ,' = ',SUM(X)
END PROGRAM ch1504