-77- 



SOBROUTINE STRAT (ACRES, CLASIZ) 

 C 



Q******1f^***********i***t ************* ******************m**^t.t.ttlr*m****^ti 

 C 



C THIS SOBPROGEAH CALCULATES COMBINED STRATA STATISTICS 

 C 

 C********************************************************************** 



c 



INTEGER CLASIZ 



REAL STSECB(35) ,STSEBD(35) .EFDFCB (35) ,EFDPBD(35) 



REAL SrVHCB(35) ,STVHBD(35) , DFCB2(35) ,DFBD2(35) 



REAL STV11PL(35) ,DFPL2(35) ,PLTST(35) ,STSEPL(35) , EFDFPL (35) 



REAL PLVLST(l»0,35) 



REAL CBTST(35) , BDTST(35) , CBVLST (1*0, 35) , BDVLST (40, 35) 



COHMON/O0T1/BASPAC(«»0,35) ,BASTOT(35) ,BDTOT(35) , BDVLSH (40, 35) , 

 1CBTOT(35) ,CBVLSn(40,35) , TREP AC (40, 35) , TRETOT(35) 

 2,SECOE(35) ,SEBRD(35) , NPNTS, PLVLSH (40, 35) ,PLT0T(35) ,SEP0L(35) 

 3,FISPOP,VARBED(35) ,VARPOL(35) 



COHMON/STOOT/CBTST, BDTST,CBVLSr, BDVLST, STSECB ,STSEBD, EFDFCB 

 1 , EFDFBD, TA:RES, PLTST, PL VLST ,STS EPL, EFDFPL 

 C ZERO ACCOBOLATORS AND OTHER VARIABLES 



DATA ((CBVLST(J,I) ,BDVLST(J,I) ,PLVLST(J,I) , J=1,40,1) 

 I.CBTST (I) ,BDTST (I) ,PLTST(I) ,STVHCB(I) ,STVHBD(I) ,STVnPL(I) 

 2,DFCB2 (I) ,DFBD2 (I) ,DFPL2(I) , EFDFCB (I) ,EFDFBD(I) , EFDFPL (I) 

 3,STSECB(I) ,STSEBD(I) ,STSEPL(I) , 1=1,35) / 4725»0.0 / 



TACRES=TACRES+ ACRES 

 C 



C ACCOaOLATE SOMS FOR VOLOHES 

 C 



DO 20 ISPEC=1,35 



00 10 DBH=CLASIZ, 40, CLASIZ 



CBVLST (DBH, ISPEC) =CBVLST (DBH, ISPEC) +CBVLSfl (DBH,ISPEC) ♦ACRES 

 BDVLST(DBH,ISPEC)=BDVLST(DBH,ISPEC) +BDVLSa ( DBH, ISPEC) *ACRES 

 10 PLVLST{DBH, ISPEC) =PLVLST (DBH, ISPEC) +PLVLSB (DBH, ISPEC) ♦ACRES 



CBTST (ISPEC) =CBTST(ISPEC) ♦CBTOT (ISPEC) ♦ACRES 

 BDTST (ISPEC) =BDTST(ISPEC) ♦BDTOT (ISPEC) ♦ACRES 

 PLTST (ISPEC) =PLTST(ISPEC) -fPLTOT (ISPEC) ♦ACRES 

 C 



C ACCOnOLATE SOHS FOE VARIANCE AND D.F. 

 C 



IF(NPNTS. LT.2) GOTO 20 



ST VHCB (ISPEC) =STVBCB (ISPEC) ♦ (ACRES ^^2) ♦ (SEC OB (I SPEC) ^^2) 

 STVHBD ( ISPEC) =STVBBD (ISPEC) +(ACRES^^2)^(S EBRD (ISP EC) ^^2) 

 STVHPL (IS PEC) =STVBPL( ISPEC) ♦(ACRES^^2)^ (SEP OL (I SPEC) **2) 

 DFCB2(ISPEC) =DFCB2(ISPEC) + ACEES^^4^SEC0B(ISPEC) ♦♦4/(NPNTS-1 ) 

 DFBD2(ISPEC) =DFBD2 (ISPEC) ♦ACRES^^4^SEBRD(ISPEC) ^^4/ (NPNTS- 1) 

 DFPL2 (ISPEC) =DFPL2(ISPEq ♦ACBES^^4^SEPaL (ISPEC) ♦♦4/(NPNTS-1 ) 

 20 CONTINUE 

 RETURN 

 C 



C ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ ♦♦♦♦♦♦♦♦♦♦♦♦♦• 

 C CALCULATE STANDAED EEROBS AND EFFECTIVE D.F. 

 C BASED OH PREVIOUSLY ACCOHOLATED SUflS 

 C*************** *********************************** 

 C 



ENTRY ST EAT 2 



DO 50 ISPEC=1,35 



IF(PLTST(ISPEC) .EQ.O) GOTO 30 

 STSEPL(ISPEC)=SQET(SrVBPL(ISPEC) /TACSES^^2) 

 IF(DFPL2(ISPEC)-EQ.0) GOTO 30 

 EFDFPL(ISPEC) =STVBPL (ISPEC) ♦♦2/DFPL2 (ISPEC) 

 30 IF(CBTST(ISPEC) .EQ.O) GOTO 50 



STSECB (ISPEC) =SQET(STVBCB (ISPEC) /TACRES^^2) 

 STSEBD(ISPEC) =SQBT (STVBBD (ISP EC) /TACRES^^2) 

 IF(DFCB2(ISPEC) .EQ.O) GOTO 40 

 EFDFCB(ISPEC) =STVBCB (ISPEC) ♦♦2/DFCB2 (ISPEC) 

 40 IF (DFBD2 (ISPEC). EQ.O) GOTO 50 



EFDFBD(ISPEC) =STVaBD (ISPEC) ♦♦2/DFBD2 (IS PEC) 

 50 CONTINUE 

 RETURN 

 END 



STET0010 

 STRr0020 

 STRT0030 



♦STRT0040 

 STRT0050 

 STBT0050 

 STRT0070 



♦STET0080 

 STRT0090 

 STRT0130 

 STRT0110 

 STRT0120 

 STRT0130 

 STRT0140 

 STRT0150 

 STRT0160 

 STBT0170 

 STBT0180 

 STRT0190 

 STRT0230 

 STRT0210 

 STRT0220 

 STRT0230 

 STRT0240 

 STET0250 

 STRT0260 

 STRT0270 

 STRT0280 

 STRT0290 

 STRT0300 

 STRT0310 

 STRT0320 

 STRT0330 

 STRT0340 

 STBT0350 

 STBr0360 

 STRT0370 

 STRT0380 

 STRT0390 

 STRT0400 

 STRT0410 

 STRT0420 

 STRT0430 

 STRT0440 

 STBT0450 

 STBT0460 

 STRT0470 

 STRT0480 

 STRT0490 

 STRT0500 

 STBr0510 

 STRT0520 

 STRT0530 

 STRT0540 

 STRT0550 

 STRT0560 

 STRT0570 

 STBT0580 

 STRT0590 

 STRT0600 

 STRT06 10 

 STRT0620 

 STRT0630 

 STRT0640 

 STBT0650 

 STET0660 

 STRT0670 

 STRT0680 

 STRT0690 

 STRT0700 

 STRT0710 

 STRT0720 

 STBT0730 



