xmovex.f

       SUBROUTINE xmovex(OUT,IN,IBYTES)
c
c      this SUBROUTINE may not be needed, its was in
c      assembler language to move DATA, it ran about three
c      times faster than a fortan DO loop, it was used to
c      make sure the DATA to be unpacked was on a word boundary,
c      this may not be needed on some brands of computers.
c
       CHARACTER*1 OUT(*)
       CHARACTER*1 IN(*)
c
       INTEGER     IBYTES
c
       DO 100 i = 1,ibytes
         out(i) = in(i)
  100  CONTINUE
c
       RETURN
       END