SUBROUTINE P JVOL (BD , TD , STEMS , HT , ISPEC , V) 



C 



Q ***** 



C * THIS SUBROUTINE COMPUTES GROSS CUBIC-METER VOLUME FOR INDIVIDUAL 



C * PINYON AND JUNIPER TREES. 



C * REQUIRED INPUTS -- 



C * 1. DIAMETER AT GROUND LINE 



C * 2. MINIMUM TOP DIAMETER LIMIT 



C * 3. NUMBER OF 3- INCH AND LARGER STEMS ORIGINATING WITHIN 



C * FIRST 12 INCHES ABOVE GROUND LINE FOR JUNIPER ONLY 



C * 4. TOTAL TREE HEIGHT 



C * 5. SPECIES INDEX OF 1 FOR PINYON AND 2 FOR JUNIPER 



(2 ***** 

 C 



D = (BD - TD) / 2.54 

 IF(ISPEC.EQ.2) D = D * 2.54 



IF(TD.LT.2.5.0R.TD.GT.15. .OR. STEMS . LT. 0. .AND . ISPEC . EQ. 2 . OR. STEMS . 

 1 GT.20.0.AND.ISPEC.EQ.2.OR.HT.LT.0.0.OR.D.LT.0) GO TO 20 

 IF(ISPEC.EQ.2) GO TO 10 

 IF (ISPEC. NE.l) RETURN 



C 



Q ***** 



C * PINYON 



Q ***** 



c 



V = (.0081652 - .0024637 * (27.94 - TD)**.35) * (D**(l.l + .001085 



1 * (27.94 - TD)**2.0)) * HT + .0007838 

 RETURN 



C 



Q ***** 



C * JUNIPER 



Q ***** 



c 



10 IF (STEMS. LE. 1.0) STEMS = 1.000000 



V = (((20.0 - STEMS) / 19.0)**(2.25 +.15012 * (TD - 2.54)) * (1.0 

 181 + .0246575 * (TD - 2.54)) * ((8.52E-05 * D**1.8) + (1.3194E-11 



2 * D**5.0))) * HT + .0008682 

 RETURN 



20 V = 0.0 

 RETURN 

 END 



14 



