! This file:
! http://ftp.aset.psu.edu/pub/ger/fortran/hdk/ReverseVectorValues.f90
!
program ReverseValues
!  by David Frank
integer :: dat(5) = (/5,4,3,2,1/)
print *, "Original Values: ", dat
dat = dat(5:1:-1)
print *, "Reversed Values: ", dat
end ReverseValues