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

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.