KPG1_SECSH

Shifts bounds of upper dimensions that have one element to index one

Description:

This routine shifts the origin to the default of one of each dimension of an NDF greater than a nominated dimension and whose size is one.

The routine is required in applications that require NDFs of a specific dimensionality and which also call NDF_SECT. This is because a user-defined section may be from an NDF of higher dimensionality, and a subsequent call to NDF_SECT can result in an array of bad data, when the bounds of higher dimensions are not one. It is intended to be used alongside KPG1_SGDIM.

Invocation

CALL KPG1_SECSH( NDF, MXDIM, STATUS )

Arguments

NDF = INTEGER (Given)
The NDF identifier.
MXDIM = INTEGER (Given)
The dimension above which the shifts are to be made. This should be the last significant bound for the required dimensionality of NDF.
STATUS = INTEGER (Given and Returned)
The global status.