SUBROUTINE IMOV(N,FROM,TO)
      IMPLICIT INTEGER (A-Z)
C
C         THIS ROUTINE MOVES N INTEGER WORDS.  IT IS USED
C     PRIMARILY TO INSURE THAT CHARACTERS (STORED AS INTEGERS
C     IN TSP) ARE NOT NORMALIZED WHEN REASSIGNED.
C
C                     WRITTEN BY SEAN BECKETTI
C                     APRIL 1982
C
      DIMENSION FROM(1),TO(1)
C
      IF (N .LE. 0) RETURN
      DO 10 I=1,N
        TO(I) = FROM(I)
  10  CONTINUE
      RETURN
      END