program ch1204 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 ch1204