SUBROUTINE CONCAT(W1,FROM1,W2,FROM2,LENG)
      IMPLICIT INTEGER*4 (A-Z)
      INTEGER*1 W1(1),W2(1)
      DO 10 I=0,LENG-1
      W1(FROM1+I)=W2(FROM2+I)
10    CONTINUE
      RETURN
      END