Package Initialisation

For a particular package to be available the method definitions as detailed above must be loaded at run-time. This should be done only once for each package, and to avoid overheads during application start-up is done on an as-required basis. The following section of code from NEW_READ ensures that the package is loaded before any of its methods are called.

*  Global Constants:
      INCLUDE 'AST_PKG'

*  External References:
      LOGICAL                   AST_QPKGI
        EXTERNAL                AST_QPKGI

*  Check initialised
      IF ( .NOT. AST_QPKGI( NEW__PKG ) ) CALL NEW0_INIT( STATUS )