1 *CMZ : 23/08/93 13.30.10 by Jonathan Butterworth
3 SUBROUTINE BUCMVE (NEWSTR,NEWEND,OLDSTR,SCR,BUCKTS,ISCR,IBUC)
4 INTEGER NEWSTR,NEWEND,OLDSTR
5 REAL SCR(ISCR),BUCKTS(IBUC)
11 SCR(J)=BUCKTS(I+MAXWRD*(OLDSTR+J-NEWSTR-1))
16 30 IF((J).GT.(OLDSTR+NEWEND-NEWSTR-1)) GOTO 40
17 SCR(J)=BUCKTS(I+MAXWRD*(NEWSTR+J-NEWEND-1))
22 60 IF((J).GT.(OLDSTR+NEWEND-NEWSTR-1)) GOTO 70
23 BUCKTS(I+MAXWRD*(J-1))=SCR(J)