NDG_SETSZ - Reduces the size of an NDG group

Description:

This routine should be used instead of GRP_SETSZ to set the size of a group created by NDG. It sets the size of the supplied group, and also sets the size of each of the supplemental groups associated with the supplied group.

Invocation:

CALL NDG_SETSZ( IGRP, SIZE, STATUS )

Arguments:

IGRP = INTEGER (Given)

The NDG group as returned by NDG_ASSOC, etc. This should be the last group in a GRP owner-slave chain.

SIZE = INTEGER (Given)

The new group size. Must be less than or equal to the size of the smallest group in the chain.

STATUS = INTEGER (Given and Returned)

The global status.