Return to EXCH.f CVS log

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

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

1.1     ! root        1:       INTEGER FUNCTION EXCH(J1, J2, DSA, LDSA, HASH, LHASH, OFFSET)
        !             2:       INTEGER DSA(LDSA), HASH(LHASH), OFFSET
        !             3:       INTEGER OUTUT, SYMLEN, OUTUT2, OUTUT3, OUTUT4
        !             4:       COMMON /PARAMS/ INUT, OUTUT, NOCHAR, SYMLEN, OUTUT2, OUTUT3,
        !             5:      *    OUTUT4
        !             6: C
        !             7: C     DSA(HASH(J1)+OFFSET) CONTAINS ELE TO BE COMPARED
        !             8: C      DSA(HASH(J2)+OFFSET) CONTAINS ELE TO BE COMPARED
        !             9: C
        !            10:       JJ1 = HASH(J1) + OFFSET
        !            11:       JJ2 = HASH(J2) + OFFSET
        !            12:       DO 40 I=1,SYMLEN
        !            13:         K1 = JJ1 + I - 1
        !            14:         K2 = JJ2 + I - 1
        !            15:         IF (DSA(K1)) 10, 20, 20
        !            16:    10   IF (DSA(K2)) 30, 50, 50
        !            17:    20   IF (DSA(K2)) 70, 30, 30
        !            18:    30   IF (DSA(K1)-DSA(K2)) 70, 40, 50
        !            19:    40 CONTINUE
        !            20: C
        !            21: C     COMPARISON SHOWS ELEMENTS IN PROPER ORDER
        !            22: C
        !            23:    50 EXCH = 0
        !            24:    60 RETURN
        !            25: C
        !            26: C     COMPARISON SHOWS NEED FOR EXCHANGE
        !            27: C
        !            28:    70 I = HASH(J1)
        !            29:       HASH(J1) = HASH(J2)
        !            30:       HASH(J2) = I
        !            31:       EXCH = -1
        !            32:       GO TO 60
        !            33:       END

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