home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / libs / matlab.lzh / MATLAB / MATLAB.LZH / Source / MatLab / EQID.for < prev    next >
Encoding:
Text File  |  1991-04-13  |  358 b   |  23 lines
  1.       LOGICAL FUNCTION EQID (X, Y)
  2.       IMPLICIT NONE
  3. C
  4. C CHECK FOR EQUALITY OF TWO NAMES
  5. C
  6.       INTEGER X(4), Y(4)
  7. C
  8.       INTEGER I
  9. C
  10. C
  11.       EQID = .TRUE.
  12.       DO 10 I = 1, 4
  13.         IF(.NOT.(X(I).EQ. Y(I))) THEN
  14.           EQID = .FALSE.
  15.           RETURN
  16.         ENDIF
  17. C       EQID = EQID .AND. (X(I).EQ.Y(I))
  18. C
  19. 10    CONTINUE
  20. C
  21.       RETURN
  22.       END
  23.