This routine returns .TRUE. if the supplied test string matches the supplied abbreviation template. All characters in the template must be matched by the corresponding characters in the test string, with the exception that it is permissable for the test string to end anywhere following the first occurrence of the mark string (the mark string itself should not be matched in the test string). The template sub-string in front of the first mark string thus gives the minimum abbreviation which the test string can use.

For instance, if MARK=’$\ast$’ and TEMPLT=’ VECT$\ast$ORS’ , then the test string matches if the first 4 characters are ’ VECT’ and any remaining characters match ’ ORS’ .

RESULT = KPG1_SHORT( TEMPLT, TEST, MARK, CASE, STATUS )

TEMPLT = CHARACTER $\ast$ ( $\ast$ ) (Given and Returned)

TEST = CHARACTER $\ast$ ( $\ast$ ) (Given and Returned)

MARK = CHARACTER $\ast$ ( $\ast$ ) (Given and Returned)

CASE = LOGICAL (Given)

STATUS = INTEGER (Given and Returned)

KPG1_SHORT = LOGICAL Returned .TRUE. if and only if the supplied test string matches the template.