.FLAGS CAPITALIZE
.TITLE <EXTKEY- ^^EXTEND THE SIZE OF A FIELD IN THE KEY\\
.PAGE
.INDENT 50
<EXTKEY
.SKIP 1
.CENTER
<EXTKEY- ^^EXTEND THE SIZE OF A FIELD IN THE KEY\\
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINE NAME: <EXTKEY\\
.SKIP 1
.INDENT -10
^^PURPOSE:\\ ^ALLOWS THE LAST FIELD IN A KEY TO BE LONGER THAN 32 BYTES.
.SKIP 1
.INDENT -10
^^CALLABLE:\\ ^FROM ^^FORTRAN: CALL EXTKEY(TABLE,EXTSIZ)\\
.SKIP 1
.INDENT -10
^^PARAMETERS:\\ <TABLE -- ^THE KEY SEQUENCE STORAGE AREA INITALIZED BY A PREVIOUS CALL
TO <SETKEY.
.BREAK
<EXTSIZ -- ^THE NUMBER OF BYTES TO EXTEND THE TABLE BY.  ^THE TABLE MUST HAVE
BEEN DIMENSIONED TO 64*<NFLDS+2+<EXTSIZ IF YOU ARE TO CALL THIS ROUTINE.
.SKIP 1
.INDENT -10
^^ROUTINES USED:\\ ^NONE.
.SKIP 1
.INDENT -10
^^EXAMPLE:\\ ^^CALL SETKEY(BUF,CARD,7)
.BREAK;CALL EXTKEY(BUF,50)
.SKIP 1
.INDENT -10
^^AUTHOR:\\ ^MIKE ^HIGGINS
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\\ <MACRO11
.SKIP 1
.INDENT -10
^^OBJECT MODULE NAME:\\ <EXTKEY
.SKIP 1
.INDENT -10
^^LIBRARY:\\ <DP:[60,60]CETUS
.SKIP 1
.INDENT -10
^^MAINTENANCE:\\ ^SEE ^MIKE ^HIGGINS
.SKIP 1
.INDENT -10