This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / divon / bucmve.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1996/04/01 15:03:25  mclareni
6 * Mathlib gen
7 *
8 *
9 #include "gen/pilot.h"
10       SUBROUTINE BUCMVE (NEWSTR,NEWEND,OLDSTR,SCR,BUCKTS,ISCR,IBUC)
11       INTEGER NEWSTR,NEWEND,OLDSTR
12       REAL SCR(ISCR),BUCKTS(IBUC)
13       COMMON /BUKSZE/ MAXWRD
14       INTEGER MAXWRD
15       DO 70 I=1,MAXWRD
16       DO 10 J=NEWSTR,NEWEND
17       SCR(J)=BUCKTS(I+MAXWRD*(OLDSTR+J-NEWSTR-1))
18  10   CONTINUE
19       J=NEWEND+1
20       GOTO 30
21  20   J=J+1
22  30   IF((J).GT.(OLDSTR+NEWEND-NEWSTR-1)) GOTO 40
23       SCR(J)=BUCKTS(I+MAXWRD*(NEWSTR+J-NEWEND-1))
24       GOTO 20
25  40   J=NEWSTR
26       GOTO 60
27  50   J=J+1
28  60   IF((J).GT.(OLDSTR+NEWEND-NEWSTR-1)) GOTO 70
29       BUCKTS(I+MAXWRD*(J-1))=SCR(J)
30       GOTO 50
31  70   CONTINUE
32       RETURN
33       END