This is a basic definition of the operation corresponding to the Fortran's EOSHIFT transformational intrinsic.
block