C
C   MOVE A THEME FROM AN ARRAY TO ANOTHER ALONG WITH POINTERS
C
      SUBROUTINE MOV(THM1,MP1,THM2,MP2)
      INTEGER THM1(200,3),THM2(200,3),MP1(75,2),MP2(75,2)
      NAS=MP1(75,2)
      DO 1 I=1,NAS
      DO 1 J=1,3
    1 THM2(I,J)=THM1(I,J)
      NAT=MP1(75,1)
      DO 2 I=1,NAT
      DO 2 J=1,2
    2 MP2(I,J)=MP1(I,J)
C   STORE # OF MOTIVES IN 75,1
C   STORE # OF NOTES IN 75,2
      MP2(75,1)=MP1(75,1)
      MP2(75,2)=MP1(75,2)
      RETURN
      END
