This is a service routine to be provided as a " source" routine for the AST_CHANNEL function. It reads data from a GRP group (in response to reading from an AST_ Channel) and delivers it to the AST_ library for interpretation.

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_SRCTA( STATUS )

STATUS = INTEGER (Given and Returned)

ASTGRP = INTEGER (Given) A GRP identifier for the group which holds the data. ASTLN = INTEGER (Given and Returned) This must initially be set to the value 1, to indicate that data will be read starting at the first element of the group (note the routine will not operate correctly unless 1 is the initial value - you cannot start reading at another point in the group if you have previously read from a different group). On exit it will be incremented by the number of elements used to obtain data, so that it identifies the first element to be used on the next invocation. ASTTSZ = INTEGER (Given) The number of characters to use from each GRP element.