LOGICAL FUNCTION IFCOMP(FIRST,SECOND)
C
C          SAMPLE IFCOMP IN FORTRAN FOR NON-IBM COMPUTERS.  THIS
C     COULD BE WRITTEN IN ASSEMBLER ON MOST MACHINES TO SAVE TIME.
C                      BRONWYN H. HALL      1974
C          THE PURPOSE OF IFCOMP IS MERELY TO DO A LOGICAL COMPARISON
C     OF TWO TSP NAMES OF LENGTH NWORD.  IFCOMP IS RETURNED AS TRUE IF
C     THEY MATCH AND AS FALSE IF THEY DO NOT.
C
      COMMON /TSPCOM/ NOT(8),NWORD
      DIMENSION FIRST(1),SECOND(1)
      INTEGER FIRST,SECOND
C
      IFCOMP = .TRUE.
      DO 10 I=1,NWORD
   10   IFCOMP = IFCOMP .AND. FIRST(I).EQ.SECOND(I)
      RETURN
      END