Sources Esope | Cast3M

strncp
C STRNCP    SOURCE    CHAT      05/01/13    03:25:45     5004
      SUBROUTINE STRNCP(STR1, STR2, ILEN, IRET)
C=====================================================================
      IMPLICIT INTEGER(I-N)
      CHARACTER*4 STR1
      CHARACTER*4 STR2
      IRET = 1
      DO 1 IC = 1, ILEN
         IF (STR1(IC:IC) .NE. STR2(IC:IC)) THEN
            IRET = 0
            GOTO 2
         ENDIF
  1   CONTINUE
  2   CONTINUE
      RETURN
      END