!Program name: VECTOR
!Building a 5-dimensional vector and sum of its elements
Print *,'Input the five scalar elements of the 5-D vector:'
do 1 I=1,5
Print *,'The sum of the five elements of 5-D vector is: ',sum