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