Return to MATCH.f CVS log

Up to [Research Unix] / researchv10no / cmd / pfort

Annotation of researchv10no/cmd/pfort/MATCH.f, revision 1.1

1.1     ! root        1:       INTEGER FUNCTION MATCH(HEAD, INCR, N)
        !             2:       INTEGER PLAT, HEAD
        !             3:       COMMON /GRAPH/ LLAT, PLAT, LAT(6000)
        !             4: C
        !             5: C     ROUTINE READS DOEN A LINEAR LINKED LIST IN LAT TO FIND ENTRY
        !             6: C     WHOSE FIRST WORD CONTAINS N;  EACH LIST ELEMENT IS INCR+1 LONG;
        !             7: C     HEAD IS POINTER TO FIRST LIST ELEMENT
        !             8: C     RETURNS 0 FOR NO MATCH ON LIST OR THE EMPTY LIST
        !             9: C
        !            10:       IF (HEAD) 40, 40, 10
        !            11:    10 MATCH = HEAD
        !            12:    20 IF (LAT(MATCH).EQ.N) GO TO 50
        !            13:       MATCH = MATCH + INCR
        !            14:       IF (LAT(MATCH)) 40, 40, 30
        !            15:    30 MATCH = LAT(MATCH)
        !            16:       GO TO 20
        !            17:    40 MATCH = 0
        !            18:    50 RETURN
        !            19:       END

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.