KPG1_ASSIG

Ensures that the Current Frame from an NDF WCS FrameSet has no insignificant axes

Description:

This routine looks for insignificant axes in the Current Frame of the supplied WCS FrameSet (an axis is insignificant if all pixels within the NDF pixel array has the same position on the axis). If any insignificant axes are found, a new Frame is added to the FrameSet containing only the significant axes from the Current Frame. This new Frame is added into the FrameSet and becomes the new Current Frame. The PermMap which connects it to the original Current Frame assigns the correct constant values to the insignificant axes whn used in the inverse direction.

Invocation

CALL KPG1_ASSIG( IWCS, NDIM, LBND, UBND, STATUS )

Arguments

IWCS = INTEGER (Given)
The WCS FrameSet from the NDF, as returned by KPG1_GTWCS.
NDIM = INTEGER (Given)
The number of dimensions in the NDF, as returned by NDF_BOUND.
LBND( NDIM ) = INTEGER (Returned)
The lower pixel index bounds of the NDF, as returned by NDF_BOUND.
UBND( NDIM ) = INTEGER (Returned)
The upper pixel index bounds of the NDF, as returned by NDF_BOUND.
STATUS = INTEGER (Given and Returned)
The global status.