HDS_RUN - Run an HDS application subroutine

Description:

This routine starts up HDS, runs an application subroutine which uses HDS, and then closes HDS down again.

Invocation:

CALL HDS_RUN( APP, STATUS )

Arguments:

APP = SUBROUTINE (Given)

The subroutine to be executed.

STATUS = INTEGER (Given and Returned)

The global status.

Notes:

This routine is obsolete as HDS is now self-starting. The application subroutine can therefore be called directly.