Description:
This
routine attempts to reduce the size of the AGI database file by removing any unused space from the
end. The database must be closed before calling this routine (an error is reported otherwise).
Invocation
CALL AGI_TRUNC( STATUS )
Arguments
STATUS = INTEGER (Given and Returned)
The global status
Copyright ©2000, Central Laboratory of the Research Councils