SUBROUTINE XMOVEX(A,B,N)
C***   FAKE 360/195 MOVING ROUTINE
      COMPLEX A( 289 ),B( 289 )
      DO 1 I=1, 289
1     A(I)=B(I)
      RETURN
      END