*
* $Id$
*
* $Log$
* Revision 1.1  1996/04/01 15:03:24  mclareni
* Initial revision
*
*
#include "gen/pilot.h"
      SUBROUTINE BUCMVE (NEWSTR,NEWEND,OLDSTR,SCR,BUCKTS,ISCR,IBUC)
      INTEGER NEWSTR,NEWEND,OLDSTR
      REAL SCR(ISCR),BUCKTS(IBUC)
      COMMON /BUKSZE/ MAXWRD
      INTEGER MAXWRD
      DO 70 I=1,MAXWRD
      DO 10 J=NEWSTR,NEWEND
      SCR(J)=BUCKTS(I+MAXWRD*(OLDSTR+J-NEWSTR-1))
 10   CONTINUE
      J=NEWEND+1
      GOTO 30
 20   J=J+1
 30   IF((J).GT.(OLDSTR+NEWEND-NEWSTR-1)) GOTO 40
      SCR(J)=BUCKTS(I+MAXWRD*(NEWSTR+J-NEWEND-1))
      GOTO 20
 40   J=NEWSTR
      GOTO 60
 50   J=J+1
 60   IF((J).GT.(OLDSTR+NEWEND-NEWSTR-1)) GOTO 70
      BUCKTS(I+MAXWRD*(J-1))=SCR(J)
      GOTO 50
 70   CONTINUE
      RETURN
      END
