Return to COMPAR.f CVS log

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

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

1.1     ! root        1:       LOGICAL FUNCTION COMPAR(A, B)
        !             2:       INTEGER SYMLEN, A(2), B(2)
        !             3:       COMMON /PARAMS/ INUT, I1, NOCHAR, SYMLEN, I2, I3, I4
        !             4: C
        !             5: C     ROUTINE TESTS TWO IDENTIFIERS FOR SAMENESS; RETURNS TRUE IF
        !             6: C     SAME, ELSE FALSE
        !             7: C
        !             8:       DO 10 I=1,SYMLEN
        !             9:         IF (A(I).NE.B(I)) GO TO 30
        !            10:    10 CONTINUE
        !            11:       COMPAR = .TRUE.
        !            12:    20 RETURN
        !            13:    30 COMPAR = .FALSE.
        !            14:       GO TO 20
        !            15:       END

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