HP Fortran Programmer's Reference

Intrinsic procedures
Intrinsic procedure specifications
Arguments
ARRAY may be of any type. It must not be scalar.
SHIFT must be of type integer and must be scalar if ARRAY has rank one; otherwise,
it must be scalar or of rank n-1 and of shape (d 1, d 2,...,d DIM-1, d DIM+1,...,d n)
where (d 1, d 2,...,d n)istheshapeofARRAY.
DIM (optional) must be a scalar and of type integer with a value in the range 1