1 : C STRNCP SOURCE CHAT 05/01/13 03:25:45 5004 2 : SUBROUTINE STRNCP(STR1, STR2, ILEN, IRET) 3 : C===================================================================== 4 : IMPLICIT INTEGER(I-N) 5 : CHARACTER*4 STR1 6 : CHARACTER*4 STR2 7 : IRET = 1 8 : DO 1 IC = 1, ILEN 9 : IF (STR1(IC:IC) .NE. STR2(IC:IC)) THEN 10 : IRET = 0 11 : GOTO 2 12 : ENDIF 13 : 1 CONTINUE 14 : 2 CONTINUE 15 : RETURN 16 : END 17 :
© Cast3M 2003 - All rights reserved.
Disclaimer