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