APPENDIX I 



SUBROUTINE P JVOL (BD , TD , STEMS , HT , I SPEC , V) 



C 



Q ***** 



C * THIS SUBROUTINE COMPUTES GROSS CUBIC-FOOT 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 



Q ***** 



C 



D = BD - TD 



IFCTD.LT.1.0.OR.TD.GT.7.0.OR.STEMS.LT.0.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 

 IFCISPEC.EQ.2) GO TO 10 

 IF(ISPEC.NE.l) RETURN 



C ^ 



Q ***** 



C * PINYON 



Q ***** 



C 



V = (.08789 - .03675 * (11. - TD)**.35) * (D**(l.l + .007 * (11. - 

 1 TD)**2.0)) * HT + .02768 



RETURN 



C 



Q ***** 



C * JUNIPER 



Q ***** 



c 



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



V = (((20. - STEMS) / 19.)**(2.25 + .3813 * (TD - 1.)) * (1.08100 + 



1 .06263 * (TD - 1.)) * ((.00491 * D**1.8) + (1.50147E-08 * D 



2 ** 5.0))) * HT + .030664 

 RETURN 



20 V = 0.0 

 RETURN 

 END 



13 



I 



