KPG1_GILST

Selects integers within a range of values

Description:

This routine selects integer numbers from LONUM to UPNUM. The routine gets a character string from the user and parses it to extract the specified numbers. The default selection is the all integers within the range LONUM to UPNUM.

Invocation

CALL KPG1_GILST( LONUM, UPNUM, MAXLIN, PARAM, FLAG, NUMBER, NDISP, STATUS )

Arguments

LONUM = INTEGER (Given)
The lower limit of the selection range.
UPNUM = INTEGER (Given)
The upper limit of the selection range.
MAXLIN = INTEGER (Given)
The max. number of numbers can be selected.
PARAM = CHARACTER∗(∗) (Given)
The name of the parameter used to get the number specification from the user. It can be a list, separated by commas, comprising any reasonable combination of the following formats:

ALL or ∗ - All integers between 1 and NUM

xx,yy,zz - A list of integers.

xx:yy - All integers between xx and yy inclusively. When xx is omitted the range begins from 1, when yy is omitted the range ends with UPNUM.

Any number can be specified more than once but it has the same effect as just entering it once.

FLAG( LONUM : UPNUM ) = INTEGER (Returned)
A temporary flag array used to flag the number which has been selected.
NUMBER( MAXLIN ) = INTEGER (Returned)
The selected numbers.
NDISP = INTEGER (Returned)
The number of selected numbers.
STATUS = INTEGER (Given and Returned)
The global status.