[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / divon / bucmve.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/04/01 15:03:25  mclareni
* Mathlib gen
*
*
#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
Commit	Line	Data
fe4da5cc	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