1C-----THIS IS COMMON/INCLUDE FILE DPCOZ2.INC-----
2C     THIS COMMON PROVIDES SINGLE PRECISION ARRAY
3C     DIMENSION REDUCTION VIA SCRATCH SPACE.
4C
5C     UPDATED--AUGUST      1990.  MOVE IG2RB0 SETTING TO DPCOPA.INC
6C
7C     SEE THE COMMENTS FOR THE DPCOZZ INCLUDE FILE FOR MORE DETAILS ON THE USE
8C     OF SCRATCH STORAGE.
9C
10CCCCC THE FOLLOWING 3 LINES WERE COMMENTED OUT    AUGUST 1990
11CCCCC AND MOVED TO DPCOPA.INC     AUGUST 1990
12CCCCC PARAMETER (IG2RB0=13*MAXPOP)
13CCCCC PARAMETER (IG2RB0=MAXCMF*MAXOBV)
14CCCCC PARAMETER (IG2RB0=35*MAXOBV)
15C
16      PARAMETER (IGAR11=0*MAXOBV+1)
17      PARAMETER (IGAR12=1*MAXOBV+1)
18      PARAMETER (IGAR13=2*MAXOBV+1)
19      PARAMETER (IGAR14=3*MAXOBV+1)
20      PARAMETER (IGAR15=4*MAXOBV+1)
21      PARAMETER (IGAR16=5*MAXOBV+1)
22      PARAMETER (IGAR17=6*MAXOBV+1)
23      PARAMETER (IGAR18=7*MAXOBV+1)
24      PARAMETER (IGAR19=8*MAXOBV+1)
25      PARAMETER (IGAR20=9*MAXOBV+1)
26      PARAMETER (IGAR21=10*MAXOBV+1)
27      PARAMETER (IGAR22=11*MAXOBV+1)
28      PARAMETER (IGAR23=12*MAXOBV+1)
29      PARAMETER (IGAR24=13*MAXOBV+1)
30      PARAMETER (IGAR25=14*MAXOBV+1)
31      PARAMETER (IGAR26=15*MAXOBV+1)
32      PARAMETER (IGAR27=16*MAXOBV+1)
33      PARAMETER (IGAR28=17*MAXOBV+1)
34      PARAMETER (IGAR29=18*MAXOBV+1)
35      PARAMETER (IGAR30=19*MAXOBV+1)
36      PARAMETER (IGAR31=20*MAXOBV+1)
37      PARAMETER (IGAR32=21*MAXOBV+1)
38      PARAMETER (IGAR33=22*MAXOBV+1)
39      PARAMETER (IGAR34=23*MAXOBV+1)
40      PARAMETER (IGAR35=24*MAXOBV+1)
41      PARAMETER (IGAR36=25*MAXOBV+1)
42      PARAMETER (IGAR37=26*MAXOBV+1)
43      PARAMETER (IGAR38=27*MAXOBV+1)
44      PARAMETER (IGAR39=28*MAXOBV+1)
45      PARAMETER (IGAR40=29*MAXOBV+1)
46      PARAMETER (IGAR41=30*MAXOBV+1)
47      PARAMETER (IGAR42=31*MAXOBV+1)
48      PARAMETER (IGAR43=32*MAXOBV+1)
49      PARAMETER (IGAR44=33*MAXOBV+1)
50      PARAMETER (IGAR45=34*MAXOBV+1)
51      PARAMETER (IGAR46=35*MAXOBV+1)
52      PARAMETER (IGAR47=36*MAXOBV+1)
53      PARAMETER (IGAR48=37*MAXOBV+1)
54      PARAMETER (IGAR49=38*MAXOBV+1)
55      PARAMETER (IGAR50=39*MAXOBV+1)
56      PARAMETER (IGAR51=40*MAXOBV+1)
57      PARAMETER (IGAR52=41*MAXOBV+1)
58      PARAMETER (IGAR53=42*MAXOBV+1)
59      PARAMETER (IGAR54=43*MAXOBV+1)
60      PARAMETER (IGAR55=44*MAXOBV+1)
61      PARAMETER (IGAR56=45*MAXOBV+1)
62C
63      PARAMETER (IGARG6=0*MAXPOP+1)
64      PARAMETER (IGARG7=1*MAXPOP+1)
65      PARAMETER (IGARG8=2*MAXPOP+1)
66      PARAMETER (IGARG9=3*MAXPOP+1)
67      PARAMETER (IGRG10=4*MAXPOP+1)
68      PARAMETER (IGRG11=5*MAXPOP+1)
69      PARAMETER (IGRG12=6*MAXPOP+1)
70      PARAMETER (IGRG13=7*MAXPOP+1)
71      PARAMETER (IGRG14=8*MAXPOP+1)
72      PARAMETER (IGRG15=9*MAXPOP+1)
73      PARAMETER (IGRG16=10*MAXPOP+1)
74      PARAMETER (IGRG17=11*MAXPOP+1)
75      PARAMETER (IGRG18=12*MAXPOP+1)
76C
77      REAL G2RBAG
78      COMMON/RGARB2/G2RBAG(IG2RB0)
79C
80