w3ai24.f

Go to the documentation of this file.

C> @file
C> @brief Test for match of two strings.
C> @author Luke Lin @date 1994-08-31
 
C> Test two strings. If all equal; Otherwise .false.
C>
C> Program history log:
C> - Luke Lin 1994-08-31
C>
C> @param[in] STRING1 Character array to match with string2
C> @param[in] STRING2 Character array to match with string1
C> @param[in] LENGTH Integer length of string1 and string2
C> @return W3AI24 Logical .true. if s1 and s2 match on all char.,
C> logical .false. if not match on any char.
C>
C> @author Luke Lin @date 1994-08-31
      LOGICAL FUNCTION w3ai24(STRING1, STRING2,LENGTH)
C
       CHARACTER*1 string1(*)
       CHARACTER*1 string2(*)
       INTEGER*4   length
C
          w3ai24 = .true.
C
          DO 10 i = 1,length
             IF (string1(i).NE.string2(i))  GO TO 40
   10     CONTINUE
C
          RETURN
C
   40     CONTINUE
            w3ai24 = .false.
            RETURN
C
          END