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.