-83- 



C OTP 13720 



C***!******* <■************* •****«*«** OTP13730 



C OOTPOT &LL SPECIES VOLOME TABLE OTP 13740 



C***«*«*4'***4<**** ********** ******** OT PI 3750 



C OTP 13760 



IPAGE=IPAGE + 1 OTP13770 



WRITE (3, 100) TITLE, IPAGE OTP13780 



(IBITE(3,<»60) OTP13790 



460 FORHATCO', 99 (•*')/• •',97X,'*V OTP13830 



1' *',30X,'VOL0HE TOTALS FOE ALL S PECIES • ,38X, • * V OTP13810 



2« *',97X,«*V' •,99('*«)/'0',99('-')/ OTP13820 



3« •,15X,2 Cx'.IIX.ISAHLOG'.IIX) ,•: •,10X,«POLPHOGDV OTP13830 



«• SPECIES :«,6X,'C0BIC FOOT VOLO HE •, 5X ,«:•, 6X, • BOARD ', OTP138U0 



5'FOOT VOLOHE'.SX, 'J'.ex, 'COBIC FOOT VOLOBE'/ OTP13850 



6' ',99{'-')/' •) OTP13860 



DO 480 ISPEC=1,35 OTP13870 



IF(CBTST(ISPEC) . EQ. 0. AND. PLTST (ISPEC) . EQ- 0. AND. ISPEC. Lr.33) OTP 13880 



1 GOTO 470 OTP13890 



ICBTST=CBTST(ISPEC) +.5 ; IBDTST=BDTST (ISPEC) +.5 OTP139aO 



IPLTST=PLTST(ISPEC) +. 5 OTP 13910 



HRITE(3,310) (SPETIT(ISPEC,J) ,J=1,3) , ICBTST.IBDTST.IPLTST OTP13920 



470 IF(ISPEC. EQ. 32. OR. ISPEC. EQ.34. OR. ISPEC. EQ.35) HRirE(3,250) OTP13930 



480 CONTINUE OTP 13940 



RETURN OTP13950 



END OTP 13960 



