.SD;.FLAGS CAPITALIZE
.TITLE SETKEY - FIELD SEQUENCE DEFINITION ROUTINE
.PAGE
.INDENT 50
SETKEY
.SKIP 1
.CENTER
SETKEY - FIELD SEQUENCE DEFINITION ROUTINE
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINE NAME: SETKEY\\
.SKIP 1
.INDENT -10
^^PURPOSE:\\<SETKEY IS EQUIVALENT TO RUNNING A SERIES OF SEQUENCE DEFINITIONS ALL IN PARALLEL.
^IN A KEY DERINITION (A STRING SENT TO <SETKEY) THE DIRRERENT SEQUENCE DEFINITIONS ARE
SEPARATED BY TABS OR SPACES.  ^THIS MEANS THAT THE SEQUENCES IN A KEY DEFINITION MAY NOT CONTAIN
SPACES OF TABS THEMSELVES.  ^ANOTHER RESTRICTION IS THE WIDTH OF ALL SEQUENCES IN A
KEY ARE ALWAYS 8 BYTES.
.SKIP 1
.INDENT -10
^^CALLABLE:\\ FROM ^^FORTRAN--\\ ^CALL ^^SETKEY(SCRATCH,KEY,MAX,ERR)
.SKIP 1
.INDENT -10
^^PARAMETERS:\\ 
.SKIP;.INDENT-9
^^SCRATCH--A\\ BUFFER THAT THE KEY SEQUENCE ROUTINES USE TO STORE THEIR INDIVIDUAL
TABLES IN.  ^THIS BUFFER MUST BE DIMENSIONED
TO AT LEAST ^^NFLDS*64+2 BYTES\\.
.SKIP;.INDENT-9
^^KEY------A STRING\\ CONTAINING THE KEY SEQUENCE AS PER E.G., 
^^SETSEQ\\.  ^A KEY SEQUENCE IS DEFINED AS BEING A GROUP OF UP TO 
^^NFLDS\\ ORDINARY SEQUENCES SEPARATED BY SPACES OR TABS.  ^MULTIPLE
TABS WILL SKIP SEQUENCES AND 8 SPACES ARE EQUIVALENT TO A TAB. ^SINCE BOTH SPACES AND TABS
ARE SEPARATORS YOU SHOULD NEVER PUT A SPACE NEXT TO A TAB OR EXTRA SEQUENCES
SILL BE SKIPPED. ^AT <NXTKEY TIME SEQUENCES THAT WERE SKIPPED WILL RETURN ALL
BACKSLASHES: _\_\_\_\_\_\_\_\.
.SKIP;.INDENT -9
^^NFLDS----T\\HE NUMBER OF INDEPENDENT SEQUENCES IN THE ^^KEY.\\
.SKIP;.INDENT -9
^^ERR------\\0 = FAILURE;    -1 = SUCCESS

.SKIP 1
.INDENT -10
^^ROUTINES USED:\\ ^^SETSEQ\\
.SKIP 1
.INDENT -10
^^EXAMPLE:\\
.SKIP
.LEFT MARGIN 2
.NO FILL
^^C	CREATE AN 8 FIELD KEY SEQUENCE
C	DEFINITION
C
	^^CALL SETKEY(SCRAT,'KEY01>KEY99
     1	EXPDA01>EXP-99 TECH-A TECH-B
     2	NO-NH4 WTIH-NH4
     3	2*(ODD EVEN)  SEPT-78'
     4	,8, ERR)
.SKIP 1
.INDENT -10
^^AUTHOR:\\ ^MIKE ^HIGGINS ^^CETUS CORP.\\
.SKIP 1
.INDENT -10
^^WRITTEN:\\ ^JUNE 1977
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\\ ^^SUPERMAC
.SKIP 1
.INDENT -10
^^OBJECT MODULE NAME:\\ ^^SETKEY
.SKIP 1
.INDENT -10
^^LIBRARY:\\ ^^DP:[60,60]CETUS
.SKIP 1
.INDENT -10
^^LAST MODIFICATION:\\ NONE
.SKIP 1
.INDENT -10
^^MAINTENANCE:\\ SEE ^JACK ^MARTINELLI OR ^MIKE ^HIGGINS
.SKIP 1
.INDENT -10