]>
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 |