This is a service routine to be provided as a " sink" routine for the AST_CHANNEL function. It takes data in the form of text (in response to writing an AST_ object to a Channel) and delivers it to an HDS object for storage.

This routine has only a STATUS argument, so it communicates with other KPG routines via global variables stored in the KPG_AST common blocks. These are described below under " Global Variables used as Arguments" .

CALL KPG1_WRAST

STATUS = INTEGER (Given and Returned)

ASTLC = CHARACTER $\ast$ ( DAT__SZLOC ) (Given) A locator for the HDS object which is to store the data. This must be a one-dimensional _CHAR array, whose initial size and character string length will be determined via this locator. Write access to the object must be available via this locator, but the locator itself is not altered by this routine. ASTLN = INTEGER (Given and Returned) This must initially be set to the value 1, to indicate that data will be written starting at the first element of the HDS array (note the routine will not operate correctly unless 1 is the initial value - you cannot start writing at another point in the array if you have previously written to a different array). On exit it will be incremented by the number of elements used to store data, so that it identifies the first element to be used on the next invocation. ASTPT = INTEGER (Given and Returned) A pointer to the contents of the HDS object, initially mapped in ’ WRITE’ mode. This pointer may be modified by the routine (and re-mapped in ’ UPDATE’ mode) if it needs to extend the size of the object to accommodate the data written.