SUBROUTINE MOVE (FROMB, TOB, COUNT)   
      INTEGER COUNT, FROMB (1), TOB (1), I  
      DO  13006 I = 1, COUNT
      TOB (I) = FROMB (I)   
13006 CONTINUE  
    
      RETURN
      END