Trailing-Edge
-
PDP-10 Archives
-
decuslib20-05
-
decus/20-0141/dapair.for
There are 2 other files named dapair.for in the archive. Click here to see a list.
SUBROUTINE DAPAIR(SLACK ,KNDBGN,KNDEND,KONECT,IBUFFR,
1 MAXBFR,LOWBFR,KIND ,NEWBGN,NEWEND,BGNNEW,ENDNEW,
2 IWHERE,INCBGN,LMTBGN,BGNINC,BGNLMT,INCEND,LMTEND,
3 ENDINC,ENDLMT)
C RENBR(/INTERPRET PAIR OF ASSOCIATED VALUES)
C
C DONALD BARTH, HARVARD BUSINESS SCHOOL
C
C FOLLOWING ARGUMENTS ARE USED FOR INPUT ONLY, AND ARE
C RETURNED UNCHANGED.
C
C SLACK = FRACTION OF INCREMENT OF REAL NUMBER (NOT
C INTEGER) RANGE EXPRESSED IN SLASH NOTATION,
C BY WHICH RETURNED VALUE CAN EXCEED FINAL
C BOUND AND STILL BE CONSIDERED TO BE WITHIN
C RANGE.
C KNDBGN = SPECIFIES WHETHER INDEX IS RETURNED AS
C INTEGER ARGUMENT NEWBGN OR AS REAL ARGUMENT
C BGNNEW. NUMBER CAN BE TYPED WITH DECIMAL
C POINT AND/OR EXPONENT REGARDLESS OF VALUE OF
C KNDBGN.
C = -1, INDEX IS CALCULATED AS OCTAL INTEGER AND
C IS RETURNED AS ARGUMENT NEWBGN. HOWEVER,
C NUMBER FOLLOWING LETTER E OF EXPONENT IS
C EVALUATED IN DECIMAL.
C = 0, INDEX IS CALCULATED AS DECIMAL INTEGER
C AND IS RETURNED AS ARGUMENT NEWBGN.
C = 1 OR GREATER, INDEX IS RETURNED AS REAL
C ARGUMENT BGNNEW. IF POSSIBLE, REAL NUMBER
C WILL BE ACCUMULATED AS INTEGER, THEN BE
C CONVERTED TO REAL AND SHIFTED AS NECESSARY.
C KNDBGN IS MAXIMUM NUMBER OF DIGITS IN
C INTEGER.
C KNDEND = SPECIFIES WHETHER ASSOCIATED VALUE IS
C RETURNED AS INTEGER ARGUMENT NEWEND OR AS
C REAL ARGUMENT ENDNEW. NUMBER CAN BE TYPED
C WITH DECIMAL POINT AND/OR EXPONENT
C REGARDLESS OF VALUE OF KNDEND.
C = -1, ASSOCIATED VALUE IS CALCULATED AS OCTAL
C INTEGER AND IS RETURNED AS ARGUMENT NEWEND.
C HOWEVER, NUMBER FOLLOWING LETTER E OF
C EXPONENT IS EVALUATED IN DECIMAL.
C = 0, ASSOCIATED VALUE IS CALCULATED AS DECIMAL
C INTEGER AND IS RETURNED AS ARGUMENT NEWEND.
C = 1 OR GREATER, ASSOCIATED VALUE IS RETURNED
C AS REAL ARGUMENT ENDNEW. IF POSSIBLE, REAL
C NUMBER WILL BE ACCUMULATED AS INTEGER, THEN
C BE CONVERTED TO REAL AND SHIFTED AS
C NECESSARY. KNDEND IS MAXIMUM NUMBER OF
C DIGITS IN INTEGER.
C
C KONECT = SPECIFIES MANNER OF INTERPRETATION OF
C FOLLOWING NUMBER WHEN RANGE OF INDEXES AND
C RANGE OF ASSOCIATED VALUES HAVE BOTH BEEN
C EXHAUSTED. KONECT ALSO SPECIFIES WHETHER
C COMMAS ARE TO INDICATE THAT FOLLOWING
C NUMBER, IF ANY, IS TO BE INDEX OF SUBSEQUENT
C PAIR, OR WHETHER COMMAS ARE ALLOWED BETWEEN
C SUBSEQUENT VALUES ASSOCIATED WITH SAME INDEX
C OR RANGE OF INDEXES. REGARDLESS OF VALUE OF
C KONECT, ALL COMMAS APPEARING TO LEFT OF
C INDEX ARE IGNORED.
C = -1, 0 OR 1, COMMAS CANNOT APPEAR BETWEEN
C SPECIFICATION OF INDEX AND OF ITS ASSOCIATED
C VALUE AND CANNOT APPEAR BETWEEN
C REPRESENTATIONS OF SUBSEQUENT ASSOCIATED
C VALUES. IF COMMA IS FOUND, THEN FOLLOWING
C NUMBER, IF ANY, IS TAKEN TO BE INDEX OF
C SUBSEQUENT PAIR OF NUMBERS.
C = -1, WHEN RANGE OF INDEXES AND RANGE OF
C ASSOCIATED VALUES HAVE BOTH BEEN EXHAUSTED,
C FOLLOWING REPRESENTATION OF NUMBER OR OF
C RANGE OF NUMBERS ON SAME LINE IS TAKEN TO
C SPECIFY ADDITIONAL ASSOCIATED VALUES.
C
C IF END OF LINE IS FOUND BEFORE RANGE OF
C INDEXES HAS BEEN EXHAUSTED, THEN CALLING
C PROGRAM CAN REQUEST (BY SETTING KIND=4 TO
C SIMULATE FINDING OF AMPERSAND) THAT
C EVALUATION OF ASSOCIATED VALUES IS TO BE
C CONTINUED BY NEXT CALL TO THIS ROUTINE IN
C NEW TEXT READ INTO INPUT BUFFER. IF END OF
C LINE IS FOUND BEFORE RANGE OF INDEXES HAS
C BEEN EXHAUSTED, BUT CALLING PROGRAM LEAVES
C KIND UNCHANGED BEFORE AGAIN CALLING THIS
C ROUTINE, THEN REMAINING INDEX VALUES WILL BE
C RETURNED WITHOUT ASSOCIATED VALUES,
C FOLLOWING WHICH FIRST NUMBER IN NEW CONTENTS
C OF TEXT BUFFER WILL BE INTERPRETED AS INDEX
C OF NEW PAIR.
C
C IF AMPERSAND IS FOUND TO RIGHT OF INDEX
C SPECIFICATION, REGARDLESS OF WHETHER RANGE
C OF INDEXES HAS BEEN EXHAUSTED, THEN
C EVALUATION OF ASSOCIATED VALUES WILL BE
C CONTINUED BY NEXT CALL TO THIS ROUTINE IN
C NEW TEXT READ INTO INPUT BUFFER. IF
C AMPERSAND IS FOUND PRIOR TO EXHAUSTION OF
C RANGE OF INDEXES, BUT NEXT LINE READ INTO
C INPUT BUFFER IS TO START NEW PAIR, THEN KIND
C SHOULD BE SET TO 6 BY CALLING PROGRAM
C CAUSING REMAINING INDEXES TO BE GENERATED
C FIRST BUT MARKED AS HAVING MISSING
C ASSOCIATED VALUES. IF AMPERSAND IS FOUND
C AFTER EXHAUSTION OF RANGE OF INDEXES, BUT
C NEXT LINE READ INTO INPUT BUFFER IS TO START
C NEW PAIR, THEN KIND SHOULD BE SET TO ONE.
C
C = 0, WHEN RANGE OF INDEXES AND RANGE OF
C ASSOCIATED VALUES HAVE BOTH BEEN EXHAUSTED,
C FOLLOWING REPRESENTATION OF NUMBER OR OF
C RANGE OF NUMBERS ON SAME LINE CAUSES THIS
C ROUTINE TO REPORT MISSING COMMA, AND
C SUBSEQUENT CALL TO THIS ROUTINE THEN BEGINS
C EVALUATION OF THIS FOLLOWING NUMBER AS INDEX
C OR RANGE OF INDEXES OF SUBSEQUENT PAIR.
C
C IF END OF LINE IS FOUND BEFORE RANGE OF
C INDEXES HAS BEEN EXHAUSTED, THEN CALLING
C PROGRAM CAN REQUEST (BY SETTING KIND=4 TO
C SIMULATE FINDING OF AMPERSAND) THAT
C EVALUATION OF ASSOCIATED VALUES IS TO BE
C CONTINUED BY NEXT CALL TO THIS ROUTINE IN
C NEW TEXT READ INTO INPUT BUFFER. IF END OF
C LINE IS FOUND BEFORE RANGE OF INDEXES HAS
C BEEN EXHAUSTED, BUT CALLING PROGRAM LEAVES
C KIND UNCHANGED BEFORE AGAIN CALLING THIS
C ROUTINE, THEN REMAINING INDEX VALUES WILL BE
C RETURNED WITHOUT ASSOCIATED VALUES,
C FOLLOWING WHICH FIRST NUMBER IN NEW CONTENTS
C OF TEXT BUFFER WILL BE INTERPRETED AS INDEX
C OF SUBSEQUENT PAIR.
C
C IF AMPERSAND IS FOUND PRIOR TO EXHAUSTION OF
C RANGE OF INDEXES, THEN EVALUATION OF
C ASSOCIATED VALUES WILL BE CONTINUED BY NEXT
C CALL TO THIS ROUTINE IN NEW TEXT READ INTO
C INPUT BUFFER UNLESS CALLING PROGRAM SETS
C KIND TO 6 PRIOR TO SUBSEQUENT CALL TO THIS
C ROUTINE, CAUSING REMAINING INDEXES TO BE
C GENERATED BUT MARKED AS HAVING MISSING
C ASSOCIATED VALUES. IF AMPERSAND IS FOUND
C AFTER RANGE OF INDEXES AND RANGE OF
C ASSOCIATED VALUES HAVE BOTH BEEN EXHAUSTED,
C THEN FIRST NUMBER EVALUATED BY SUBSEQUENT
C CALL TO THIS ROUTINE IN NEW TEXT READ INTO
C INPUT BUFFER IS ASSUMED TO BE INDEX OF NEW
C PAIR OF VALUES.
C
C = 1, WHEN RANGE OF INDEXES AND RANGE OF
C ASSOCIATED VALUES HAVE BOTH BEEN EXHAUSTED,
C FOLLOWING REPRESENTATION OF NUMBER OR OF
C RANGE OF NUMBERS ON SAME LINE IS TAKEN TO
C SPECIFY ADDITIONAL ASSOCIATED VALUES.
C
C IF EITHER AMPERSAND OR END OF LINE IS FOUND
C BEFORE RANGE OF INDEXES HAS BEEN EXHAUSTED,
C THEN REMAINING INDEX VALUES WILL BE RETURNED
C WITHOUT ASSOCIATED VALUES, FOLLOWING WHICH
C CALLING PROGRAM WILL BE INFORMED THAT END OF
C LINE OR AMPERSAND HAS BEEN REACHED.
C
C = 2, 3 OR 4, SAME AS WHEN KONECT=-1, 0 OR 1
C RESPECTIVELY, EXCEPT THAT COMMAS CAN APPEAR
C (BUT ARE NOT REQUIRED) BETWEEN
C REPRESENTATIONS OF INDEX AND FIRST
C ASSOCIATED VALUE AND BETWEEN REPRESENTATIONS
C OF SUBSEQUENT ASSOCIATED VALUES. EXTRA
C COMMA INDICATES MISSING ASSOCIATED VALUE.
C IF KONECT=3, AND IF RANGE OF INDEXES AND
C RANGE OF ASSOCIATED VALUES HAVE BOTH BEEN
C EXHAUSTED, THEN KIND WILL BE RETURNED SET TO
C 10 TO INDICATE MISSING SEMICOLON IF
C FOLLOWING NUMBER IS FOUND WHETHER OR NOT
C THIS FOLLOWING NUMBER IS PRECEDED BY COMMA,
C AND SUBSEQUENT CALL TO THIS ROUTINE WILL
C BEGIN EVALUATION OF FOLLOWING NUMBER AS
C INDEX OR RANGE OF INDEXES OF SUBSEQUENT
C PAIR. UNLIKE COMMAS, SEMICOLONS ARE ALWAYS
C REPORTED TO CALLING PROGRAM REGARDLESS OF
C VALUE OF KONECT.
C
C IBUFFR = INPUT BUFFER ARRAY CONTAINING CHARACTERS
C TYPED BY USER, READ BY MULTIPLE OF A1
C FORMAT, WHICH IS TO BE SEARCHED FOR NUMBER
C SPECIFICATIONS. IBUFFR THEN CONTAINS ONE
C CHARACTER PER COMPUTER STORAGE LOCATION.
C
C MAXBFR = MAXIMUM SUBSCRIPT OF IBUFFR ARRAY LOCATIONS
C TO BE SEARCHED.
C
C FOLLOWING ARGUMENTS ARE USED BOTH FOR INPUT TO THIS
C ROUTINE, AND FOR OUTPUT TO CALLING PROGRAM.
C
C LOWBFR = INPUT CONTAINING SUBSCRIPT WITHIN IBUFFR
C ARRAY OF FIRST (LEFTMOST) CHARACTER WHICH
C CAN BE SCANNED FOR NUMBER SPECIFICATION.
C LOWBFR IS RETURNED POINTING TO NEXT
C CHARACTER WHICH WOULD BE INTERPRETED BY
C SUBSEQUENT CALL TO THIS ROUTINE IF THIS
C SUBSEQUENT CALL NEEDS TO EVALUATE FURTHER
C NUMBER SPECIFICATIONS. LOWBFR IS RETURNED
C UNCHANGED IF THIS ROUTINE MERELY GENERATES
C NEXT ASSOCIATED VALUE WITHIN PREVIOUSLY
C DETERMINED RANGE. IF THERE ARE NO PRINTING
C CHARACTERS AT OR TO RIGHT OF IBUFFR(LOWBFR),
C BUT INTERPRETATION OF ADDITIONAL CHARACTERS
C IS ATTEMPTED, THEN LOWBFR WILL BE RETURNED
C CONTAINING MAXBFR+1. LOWBFR MUST BE RESET
C BY CALLING PROGRAM TO POINT TO FIRST
C CHARACTER IN IBUFFR ARRAY EACH TIME NEW LINE
C OF TEXT IS READ.
C
C KIND = INPUT CONTAINING -1, ERROR WAS DETECTED BY
C CALLING PROGRAM (RATHER THAN BY THIS
C ROUTINE) IN RESULTS RETURNED BY PREVIOUS
C CALL TO THIS ROUTINE AND ANY ADDITIONAL
C NUMBERS THROUGH NEXT APPEARANCE OF COMMA
C (UNLESS KONECT IS GREATER THAN 1) OR
C SEMICOLON OR AMPERSAND OR UNKNOWN CHARACTER
C OR END OF LINE ARE TO BE IGNORED. NEXT
C NUMBER TO RIGHT OF COMMA OR ON LINE
C FOLLOWING AMPERSAND OR END OF LINE IS TO BE
C INTERPRETED AS INDEX OF NEXT PAIR. UNKNOWN
C CHARACTER OR SEMICOLON IS REPORTED TO
C CALLING PROGRAM IF IT IS FOUND INSTEAD.
C = INPUT CONTAINING 0, THIS ROUTINE HAS NOT YET
C BEEN CALLED DURING EXECUTION OF CURRENT
C LOGICAL SECTION OF CALLING PROGRAM. THIS
C ROUTINE IS TO BEGIN EVALUATION OF CONTENTS
C OF INPUT TEXT BUFFER, NOT CONTINUE
C GENERATION OF RANGES EVALUATED BY PREVIOUS
C CALLS TO THIS ROUTINE. LOWBFR SHOULD POINT
C TO FIRST CHARACTER IN IBUFFR ARRAY TO BE
C INTERPRETED.
C = INPUT GREATER THAN ZERO, VALUE OF KIND
C INDICATES CONDITION RETURNED BY PREVIOUS
C CALL TO THIS ROUTINE AND IN MOST CASES HAS
C NOT BEEN MODIFIED BY CALLING PROGRAM. KIND
C BEING RETURNED WITH ONE OF VALUES 7, 8, 9,
C 10 (IF KONECT IS 2 OR 4), 13 AND 14
C INDICATES THAT PAIR OF VALUES IS BEING
C RETURNED, ALTHOUGH EITHER OR BOTH MEMBERS OF
C PAIR COULD BE MISSING. OTHER VALUES OF KIND
C INDICATE SPECIAL CONDITIONS FOR WHICH PAIR
C OF NUMBERS IS NOT RETURNED.
C = 1, NOTHING, EXCEPT PERHAPS LEADING COMMAS OR
C ELSE COMMENT INDICATED BY LEADING
C EXCLAMATION POINT, WAS FOUND AT OR TO RIGHT
C OF IBUFFR(LOWBFR). CALLING PROGRAM SHOULD
C READ NEW LINE OF TEXT INTO IBUFFR.
C = 2, SEMICOLON WAS FOUND AS FIRST PRINTING
C CHARACTER AT OR TO RIGHT OF IBUFFR(LOWBFR).
C IF RANGE OF INDEXES HAS NOT BEEN EXHAUSTED
C WHEN SEMICOLON IS FOUND, THEN REMAINING
C MEMBERS OF RANGE ARE REPORTED TO CALLING
C PROGRAM BEFORE SEMICOLON IS REPORTED. IT IS
C ASSUMED THAT CALLING PROGRAM WILL TREAT
C SEMICOLON AS MARKING END OF LOGICAL GROUP OF
C PAIR SPECIFICATIONS IF KONECT IS NOT GREATER
C THAN 1, OR END OF SINGLE PAIR SPECIFICATION
C IF KONECT IS GREATER THAN 1.
C = 3, AMPERSAND WAS FOUND WHILE SEARCHING FOR
C NEXT RANGE OF INDEXES. LOWBFR IS RETURNED
C POINTING BEYOND END OF BUFFER. CALLING
C PROGRAM SHOULD READ NEW LINE OF TEXT INTO
C INPUT BUFFER BEFORE AGAIN CALLING THIS
C ROUTINE. THIS VALUE OF KIND IS NOT RETURNED
C IF AMPERSAND IS FOUND WHILE SEARCHING FOR
C RANGE OF ASSOCIATED VALUES.
C = 4, RANGE OF INDEXES WAS NOT EXHAUSTED, BUT
C AMPERSAND WAS FOUND INSTEAD OF RANGE OF
C ASSOCIATED VALUES. CALLING PROGRAM SHOULD
C READ NEW LINE OF TEXT INTO BUFFER BEFORE
C AGAIN CALLING THIS ROUTINE. SUBSEQUENT CALL
C TO THIS ROUTINE WILL CONTINUE EVALUATION OF
C ASSOCIATED RANGES IN NEW CONTENTS OF BUFFER.
C IF SEMICOLON (OR COMMA IF KONECT IS NOT
C GREATER THAN 1) IS FOUND AT START OF NEW
C CONTENTS OF BUFFER, THEN REMAINING INDEX
C VALUES WILL BE RETURNED TO CALLING PROGRAM
C BUT CALLING PROGRAM WILL BE INFORMED THAT
C ASSOCIATED VALUES ARE MISSING. IF
C SUBSEQUENT CALL TO THIS ROUTINE IS INSTEAD
C TO BEGIN EVALUATION OF NEW SET OF LEADING
C INDEXES AND ASSOCIATED VALUES, THEN CALLING
C PROGRAM SHOULD SET KIND TO 6 TO SIMULATE
C LACK OF AMPERSAND, CAUSING REMAINING INDEXES
C TO BE GENERATED, BUT MARKED AS HAVING
C MISSING ASSOCIATED VALUES. IF REMAINING
C INDEXES ARE NOT WANTED, THEN KIND SHOULD BE
C SET TO ONE.
C = 5, RANGE OF INDEXES WAS EXHAUSTED, BUT
C AMPERSAND WAS FOUND INSTEAD OF RANGE OF
C ASSOCIATED VALUES. CALLING PROGRAM SHOULD
C READ NEW LINE OF TEXT INTO BUFFER BEFORE
C AGAIN CALLING THIS ROUTINE. SUBSEQUENT CALL
C TO THIS ROUTINE WILL CONTINUE EVALUATION OF
C ASSOCIATED RANGES IN NEW CONTENTS OF BUFFER.
C SINCE RANGE OF INDEXES HAS BEEN EXHAUSTED,
C NO ADDITIONAL MISSING VALUES WILL BE
C REPORTED IF SEMICOLON (OR COMMA IF KONECT IS
C NOT GREATER THAN 1) IS FOUND AT START OF NEW
C CONTENTS OF BUFFER. IF SUBSEQUENT CALL TO
C THIS ROUTINE IS ALWAYS TO BEGIN EVALUATION
C OF NEW SET OF LEADING INDEXES AND ASSOCIATED
C VALUES, THEN CALLING PROGRAM SHOULD SET KIND
C TO ONE.
C = 6, END OF LINE WAS FOUND BUT RANGE OF
C INDEXES WAS NOT EXHAUSTED. IF KIND IS SENT
C UNCHANGED TO SUBSEQUENT CALL OF THIS
C ROUTINE, THEN REMAINING INDEXES WILL BE
C RETURNED TO CALLING PROGRAM, BUT CALLING
C PROGRAM WILL BE INFORMED THAT ASSOCIATED
C VALUES ARE MISSING. IF SUBSEQUENT CALL TO
C THIS ROUTINE IS INSTEAD TO CONTINUE
C EVALUATION OF ASSOCIATED RANGES IN NEW
C CONTENTS OF BUFFER READ BY CALLING PROGRAM
C BEFORE THIS ROUTINE IS AGAIN CALLED, THEN
C KIND SHOULD BE SET TO 4 TO SIMULATE
C APPEARANCE OF AMPERSAND AT END OF PRECEDING
C LINE. IF REMAINING INDEXES ARE NOT WANTED,
C THEN KIND SHOULD BE SET TO ONE.
C = 7, BOTH INDEX AND ASSOCIATED VALUE ARE BEING
C RETURNED TO CALLING PROGRAM.
C = 8, INDEX IS BEING RETURNED TO CALLING
C PROGRAM, BUT ASSOCIATED VALUE IS MISSING.
C NEWEND AND ENDNEW ARE RETURNED UNDEFINED.
C = 9, ASSOCIATED VALUE IS BEING RETURNED TO
C CALLING PROGRAM, BUT RANGE OF INDEXES HAS
C BEEN EXHAUSTED. NEWBGN OR BGNNEW, WHICHEVER
C IS APPROPRIATE, IS RETURNED UNCHANGED (BUT
C CAN BE MODIFIED AS DESIRED BY CALLING
C PROGRAM).
C = 10, RANGES OF BOTH INDEXES AND ASSOCIATED
C VALUES HAVE BEEN EXHAUSTED. THIS VALUE IS
C NEVER RETURNED IF KONECT=-1 OR 1.
C
C IF KONECT HAS EITHER OF VALUES 2 OR 4, THEN
C RANGES OF BOTH INDEXES AND ASSOCIATED VALUES
C HAVE BEEN EXHAUSTED, BUT EXTRA COMMA WAS
C FOUND INDICATING MISSING ASSOCIATED VALUE.
C NEWBGN OR BGNNEW, WHICHEVER IS APPROPRIATE,
C IS RETURNED UNCHANGED (BUT CAN BE MODIFIED
C AS DESIRED BY CALLING PROGRAM).
C
C IF KONECT=0, THEN RANGES OF BOTH INDEXES AND
C ASSOCIATED VALUES HAVE BEEN EXHAUSTED, BUT
C FOLLOWING NUMBER WAS FOUND WHICH WAS NOT
C PRECEDED BY COMMA. KIND SHOULD BE SET TO -1
C BY CALLING PROGRAM BEFORE THIS ROUTINE IS
C CALLED NEXT IF LACK OF COMMA INDICATES
C SERIOUS ENOUGH ERROR THAT ALL NUMBERS SHOULD
C BE IGNORED UNTIL NEXT COMMA IS FOUND. IF
C KONECT=3, THEN RANGES OF BOTH INDEXES AND
C ASSOCIATED VALUES HAVE BEEN EXHAUSTED, BUT
C FOLLOWING NUMBER WAS FOUND WHICH WAS NOT
C PRECEDED BY SEMICOLON, BUT WHICH MAY OR MAY
C NOT HAVE BEEN PRECEDED BY ONE OR MORE
C COMMAS. KIND SHOULD BE SET TO -1 BY CALLING
C PROGRAM BEFORE THIS ROUTINE IS CALLED NEXT
C IF LACK OF SEMICOLON INDICATES SERIOUS
C ENOUGH ERROR THAT ALL NUMBERS SHOULD BE
C IGNORED UNTIL NEXT SEMICOLON IS FOUND. IF
C KONECT IS 0 OR 3, THEN LOWBFR IS RETURNED
C POINTING TO FIRST CHARACTER OF NUMBER
C SPECIFICATION, AND NUMBER WILL BE EVALUATED
C AS INDEX IF THIS ROUTINE IS CALLED AGAIN
C WITHOUT KIND HAVING BEEN CHANGED.
C = 11, UNKNOWN CHARACTER WAS FOUND. IF RANGE
C OF INDEXES HAS NOT BEEN EXHAUSTED WHEN
C UNKNOWN CHARACTER IS FOUND, THEN REMAINING
C MEMBERS OF RANGE ARE REPORTED TO CALLING
C PROGRAM BEFORE UNKNOWN CHARACTER IS
C REPORTED. LOWBFR IS RETURNED POINTING TO
C NEXT CHARACTER TO RIGHT OF UNKNOWN
C CHARACTER. IF THIS ROUTINE IS CALLED
C WITHOUT CHANGING VALUE OF KIND, THEN NUMBER
C TO RIGHT OF UNKNOWN CHARACTER WILL BE
C INTERPRETED AS INDEX OF NEXT PAIR.
C = 12, ERROR WAS FOUND WITHIN RANGE
C SPECIFICATION. FINDING OF SUCH ERROR
C TERMINATES GENERATION OF RANGE OF INDEXES.
C IWHERE IS RETURNED POINTING TO CHARACTER AT
C START OF SPECIFICATION CONTAINING ERROR.
C LOWBFR IS RETURNED POINTING TO CHARACTER TO
C RIGHT OF SPECIFICATION CONTAINING ERROR. IF
C THIS ROUTINE IS CALLED WITHOUT CHANGING
C VALUE OF KIND, THEN NUMBER TO RIGHT OF
C UNKNOWN CHARACTER WILL BE INTERPRETED AS
C INDEX OF NEXT PAIR.
C = 13, INDEX AND ASSOCIATED VALUE ZERO ARE
C BEING RETURNED TO CALLING PROGRAM. ZERO WAS
C INDICATED BY LACK OF NUMBER TO RIGHT OF
C ASTERISK. MISSING NUMBER TO RIGHT OF
C ASTERISK IN SPECIFICATION OF RANGE OF
C INDEXES IS NOT ALLOWED AND WOULD RETURN KIND
C CONTAINING VALUE 12.
C = 14, SAME AS KIND=13 EXCEPT THAT RANGE OF
C INDEXES WAS EXHAUSTED. NEWBGN OR BGNNEW,
C WHICHEVER IS APPROPRIATE, IS RETURNED
C UNCHANGED (BUT CAN BE MODIFIED AS DESIRED BY
C CALLING PROGRAM).
C
C NEWBGN = RETURNED CONTAINING NEXT VALUE OF INTEGER
C INDEX IF KIND IS RETURNED CONTAINING ONE OF
C VALUES 7, 8 OR 13 AND IF KNDBGN IS LESS THAN
C OR EQUAL TO ZERO. NEWBGN SHOULD NOT BE
C CHANGED BY CALLING PROGRAM UNLESS KIND IS
C RETURNED CONTAINING ONE OF VALUES 9, 10 OR
C 14 INDICATING THAT RANGE OF INDEXES HAS BEEN
C EXHAUSTED.
C
C NEWEND = RETURNED CONTAINING NEXT ASSOCIATED INTEGER
C VALUE IF KIND IS RETURNED WITH ONE OF VALUES
C 7, 9, 13 OR 14 AND IF KNDEND IS LESS THAN OR
C EQUAL TO ZERO. NEWEND CAN BE RETURNED
C CHANGED BY THIS ROUTINE EVEN IF ASSOCIATED
C VALUE IS NOT FOUND BUT THEN MUST NOT BE
C CHANGED BY CALLING PROGRAM. IF RANGE OF
C ASSOCIATED VALUES HAS BEEN EXHAUSTED, OR IF
C ASSOCIATED VALUE IS INDICATED BY EXTRA COMMA
C TO BE MISSING, THEN NEWEND DOES NOT CONTAIN
C ASSOCIATED INTEGER VALUE BUT INSTEAD
C INDICATES TO SUBSEQUENT CALL TO THIS ROUTINE
C REASON WHY VALUE COULD NOT BE RETURNED.
C
C BGNNEW = RETURNED CONTAINING NEXT VALUE OF REAL INDEX
C IF KIND IS RETURNED CONTAINING ONE OF VALUES
C 7, 8 OR 13 AND IF KNDBGN IS GREATER THAN
C ZERO. BGNNEW SHOULD NOT BE CHANGED BY
C CALLING PROGRAM UNLESS KIND IS RETURNED
C CONTAINING ONE OF VALUES 9, 10 OR 14
C INDICATING THAT RANGE OF INDEXES HAS BEEN
C EXHAUSTED.
C
C ENDNEW = RETURNED CONTAINING NEXT ASSOCIATED REAL
C VALUE IF KIND IS RETURNED WITH ONE OF VALUES
C 7, 9, 13 OR 14 AND IF KNDEND IS GREATER THAN
C ZERO. ENDNEW SHOULD NOT BE CHANGED BY
C CALLING PROGRAM.
C
C FOLLOWING ARGUMENT IS USED FOR OUTPUT ONLY.
C
C IWHERE = RETURNED POINTING TO LEFT CHARACTER OF RANGE
C NOTATION WHICH WAS FOUND TO CONTAIN ERROR
C SUCH AS TOO MANY ASTERISKS, TOO MANY
C SLASHES, TOO MANY COLONS, OR ABSENCE OF
C NUMBER TO RIGHT OF ASTERISK IN SPECIFICATION
C OF RANGE OF LEADING INDEXES.
C
C REMAINING DAPAIR ARGUMENTS ARE USED ONLY DURING
C GENERATION OF VALUES WITHIN RANGES AND SHOULD BE SENT
C TO SUBSEQUENT DAPAIR CALL UNCHANGED. THESE ARGUMENTS
C SHOULD BE STATED BY NAME IN CALL STATEMENTS AND
C SHOULD BE IGNORED BY CALLING PROGRAM EXCEPT INSOFAR
C AS IS NECESSARY TO TRANSMIT THEIR VALUES TO
C SUBSEQUENT CALL TO THIS ROUTINE.
C
DIMENSION IBUFFR(MAXBFR)
DATA KOMENT,IEND,IAND,KOMMA,IBLANK,ITAB/
11H!,1H;,1H&,1H,,1H ,1H /
C
C TEST IF ARE CONTINUING PREVIOUSLY EVALUATED SERIES
MISSIN=0
IKNCT=KONECT
IF(IKNCT.GT.1)IKNCT=IKNCT-3
MANY=0
IPLACE=0
IF(KIND.LE.0)GO TO 31
IF(KIND.GT.14)GO TO 31
GO TO(31,31,31,13,11,43, 1, 1, 9, 5,31,31, 1, 6),KIND
C
C GET NEXT INDEX
1 ITYPE=5
LIMIT=LOWBFR-1
IF(KNDBGN.LE.0)INIBGN=NEWBGN
IF(KNDBGN.GT.0)BGNINI=BGNNEW
GO TO 32
2 IF(ITYPE.NE.5)GO TO 4
IF(KIND.EQ.7)GO TO 9
IF(KIND.EQ.8)GO TO 3
KIND=7
GO TO 7
3 IF(NEWEND.LE.0)GO TO 50
GO TO 14
C
C SERIES OF INDEXES EXHAUSTED
4 IF(KNDBGN.LE.0)NEWBGN=INIBGN
IF(KNDBGN.GT.0)BGNNEW=BGNINI
IF(KIND.EQ.7)GO TO 8
IF(KIND.NE.8)GO TO 6
IF(NEWEND.LE.0)GO TO 31
IF(IKNCT.NE.0)GO TO 12
KIND=9
GO TO 31
C
C GET NEXT ASSOCIATED VALUE
5 IF(IKNCT.EQ.0)GO TO 31
6 KIND=9
7 ITYPE=6
GO TO 10
8 KIND=9
9 ITYPE=5
10 LIMIT=LOWBFR-1
GO TO 18
C
C LOOK FOR NEXT ASSOCIATED RANGE OF VALUES
11 MISSIN=NEWEND
12 KIND=9
GO TO 17
13 MISSIN=NEWEND
14 KIND=7
GO TO 17
15 IF(KONECT.LE.1)GO TO 28
IF(MISSIN.GT.0)GO TO 42
MISSIN=1
16 LOWBFR=LOWBFR+1
17 IF(LOWBFR.GT.MAXBFR)GO TO 25
LETTER=IBUFFR(LOWBFR)
IF(LETTER.EQ.IBLANK)GO TO 16
IF(LETTER.EQ.ITAB)GO TO 16
IF(LETTER.EQ.KOMMA)GO TO 15
IF(LETTER.EQ.KOMENT)GO TO 24
IF(LETTER.EQ.IEND)GO TO 23
IF(LETTER.EQ.IAND)GO TO 21
C
C EVALUATE NEXT ASSOCIATED RANGE OF VALUES
ITYPE=0
LIMIT=MAXBFR
IWHERE=LOWBFR
18 CALL DANEXT(KNDEND,SLACK ,IBUFFR,LIMIT,LOWBFR,
1MANY,ITYPE,NEWEND,INCEND,LMTEND,ENDNEW,ENDINC,
2ENDLMT)
IF(ITYPE.EQ.9)GO TO 20
IF(ITYPE.GT.6)GO TO 47
IF(ITYPE.EQ.5)GO TO 50
IF(ITYPE.NE.6)GO TO 19
IF(KIND.EQ.7)GO TO 48
GO TO 49
19 IF(KIND.EQ.7)GO TO 17
IF(IKNCT.NE.0)GO TO 17
GO TO 31
20 IF(KIND.EQ.9)GO TO 46
LOWBFR=LOWBFR-1
GO TO 43
C
C AMPERSAND FOUND INSTEAD OF ADDITIONAL RANGE
21 IF(KIND.EQ.7)GO TO 22
IF(IKNCT.GT.0)GO TO 36
GO TO 38
22 IF(IKNCT.GT.0)GO TO 43
GO TO 37
C
C SEMICOLON FOUND INSTEAD OF ASSOCIATED VALUE
23 IF(KIND.EQ.7)GO TO 43
IF(MISSIN.GT.0)GO TO 45
GO TO 35
C
C NO ADDITIONAL ASSOCIATED RANGE FOUND
24 LOWBFR=MAXBFR+1
25 IF(KIND.EQ.7)GO TO 26
IF(MISSIN.GT.0)GO TO 45
GO TO 34
26 IF(IKNCT.GT.0)GO TO 43
GO TO 40
C
C COMMA FOUND INSTEAD OF NEXT ASSOCIATED RANGE
27 IF(KONECT.LE.1)GO TO 29
GO TO 30
28 IF(KIND.EQ.7)GO TO 43
29 KIND=7
C
C FIND NEXT PAIR OF SERIES
30 LOWBFR=LOWBFR+1
31 IF(LOWBFR.GT.MAXBFR)GO TO 34
LETTER=IBUFFR(LOWBFR)
IF(LETTER.EQ.IBLANK)GO TO 30
IF(LETTER.EQ.ITAB)GO TO 30
IF(LETTER.EQ.KOMMA)GO TO 27
IF(LETTER.EQ.KOMENT)GO TO 33
IF(LETTER.EQ.IEND)GO TO 35
IF(LETTER.EQ.IAND)GO TO 36
C
C OBTAIN FIRST LEADING RANGE
ITYPE=0
LIMIT=MAXBFR
IPLACE=1
IWHERE=LOWBFR
32 CALL DANEXT(KNDBGN,SLACK,IBUFFR,LIMIT,LOWBFR,
1MANY,ITYPE,NEWBGN,INCBGN,LMTBGN,BGNNEW,BGNINC,
2BGNLMT)
IF(IPLACE.EQ.0)GO TO 2
IF(ITYPE.EQ.9)GO TO 46
IF(KIND.LT.0)GO TO 31
IF(ITYPE.NE.5)GO TO 47
IF(KIND.NE.9)GO TO 14
LOWBFR=IWHERE
GO TO 45
C
C RETURN TO CALLING PROGRAM
33 LOWBFR=MAXBFR+1
34 KIND=1
GO TO 50
35 KIND=2
LOWBFR=LOWBFR+1
GO TO 50
36 KIND=3
LOWBFR=MAXBFR+1
GO TO 50
37 KIND=4
GO TO 39
38 KIND=5
39 LOWBFR=MAXBFR+1
GO TO 41
40 KIND=6
41 NEWEND=MISSIN
GO TO 50
42 IF(KIND.EQ.9)GO TO 45
NEWEND=1
GO TO 44
43 NEWEND=0
44 KIND=8
GO TO 50
45 KIND=10
GO TO 50
46 KIND=11
GO TO 50
47 KIND=12
GO TO 50
48 KIND=13
GO TO 50
49 KIND=14
50 RETURN
C863065281593!;&
END