HP Fortran Programmer's Reference (September 2007)

Intrinsic procedures
Intrinsic procedure specifications
Chapter 11 539
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
) is the shape of ARRAY.
DIM (optional) must be a scalar and of type integer with a value in the range 1 <= DIM <= n ,
where n is the rank of ARRAY.IfDIM is omitted, it is as if it were present with
the value 1.
Result type,
type parameters,
and shape
The result is of the type and type parameters of ARRAY, and has the shape of ARRAY.
Result value
Case 1 If ARRAY has rank one, element i of the result is ARRAY(1 + MODULO( i +
SHIFT – 1, SIZE(ARRAY))).
Case 2 If ARRAY has rank greater than one, section ( s
1
, s
2
, ..., s
DIM-1
, :, s
DIM+1
, ....,
s
n
) of the result has a value equal to CSHIFT(ARRAY( s
1
, s
2
, ..., s
DIM-1
,
:, s
DIM+1
, ...., s
n
), sh , 1), where sh is SHIFT or SHIFT( s
1
, s
2
,
..., s
DIM-1
, s
DIM+1
, ..., s
n
).
Specific forms
KCSHIFT.
DATE(DATESTR)
Description
Return current system date.
Class
Nonstandard subroutine.