      SUBROUTINE PUTID (X, Y)
      IMPLICIT NONE
C
C STORE A NAME
C
      INTEGER X(4), Y(4)
C
      INTEGER I
C
C
      DO 10 I = 1, 4
        X(I) = Y(I)
10    CONTINUE
C
      RETURN
      END
