profile.f File Reference

Functions/Subroutines
subroutine	profile (REGN, FORST, VOLEQ, MTOPP, MTOPS, STUMP, DBHOB, HTTYPE, HTTOT, HTLOG, HT1PRD, HT2PRD, UPSHT1, UPSHT2, UPSD1, UPSD2, AVGZ1, AVGZ2, HTREF, DBTBH, BTR, LOGDIA, BOLHT, LOGLEN, LOGVOL, VOL, LOGST, NOLOGP, NOLOGS, CUTFLG, BFPFLG, CUPFLG, CDPFLG, SPFLG, DRCOB, CTYPE, FCLASS, PROD, ERRFLAG)
subroutine	tcubic (VOLEQ, FORST, JSP, NEXTRA, SETOPT, DBHOB, HTTOT, DBTBH, MTOPP, HEX, DEX, ZEX, RHFW, RFLW, TAPCOE, F, FMOD, PINV_Z, TOP6, TCVOL, slope, errflag)
subroutine	merlen (VOLEQ, FORST, JSP, NEXTRA, SETOPT, DBHOB, HTTOT, DBTBH, HEX, DEX, ZEX, RHFW, RFLW, TAPCOE, F, FMOD, PINV_Z, TOP6, STUMP, TOP, LMERCH, errflag)
subroutine	getdib (VOLEQ, FORST, JSP, NEXTRA, SETOPT, DBHOB, HTTOT, MTOPP, STUMP, TRIM, DBTBH, LOGST, HEX, DEX, ZEX, RHFW, RFLW, TAPCOE, F, FMOD, PINV_Z, TOP6, NUMSEG, LOGLEN, LOGDIA, BOLHT, errflag)
subroutine	top6len (VOLEQ, HTTOT, DBHOB, DEX, HEX, STUMP, TOP, TOP6, DBTBH, errflag)
subroutine	volratio (VOLEQ, FORST, DBHOB, HTTOT, TOPD, LOGDIB, LOGLEN, NUMSEG, CUBV, VMER)
subroutine	tapermodel (VOLEQ, FORST, JSP, NEXTRA, SETOPT, DBHOB, HTTOT, DBTBH, HEX, DEX, ZEX, RHFW, RFLW, TAPCOE, F, FMOD, PINV_Z, TOP6, HT2, MTOPP, MFLG, CUVOL, DIB, DOB, errflag)
subroutine	fwsmall (JSP, NEXTRA, SETOPT, slope, DBHOB, HTTOT, DBTBH, HEX, ZEX, RHFW, RFLW, TAPCOE, F, FMOD, PINV_Z, DIB1, errflag)
subroutine	volintrp (REGN, VOLEQ, DBH, LHT, MHT, MTOPP, HTTYPE, DBTBH, LOGVOL, LOGDIA, HTLOG, LOGLEN, LOGST, NOLOGP, VOL, CTYPE, PROD, ERRFLAG)
subroutine	r10hts (EQNUM, HTTOT, HT1PRD, DBHOB, HTTYPE, STUMP, TOP, LMERCH)
subroutine	firewood (VOLEQ, FORST, JSP, NEXTRA, SETOPT, DBHOB, HTTOT, LMERCH, DBTBH, MTOPP, STUMP, HEX, DEX, ZEX, RHFW, RFLW, TAPCOE, F, FMOD, PINV_Z, TOP6, TCVOL, slope, errflag)

Function/Subroutine Documentation

subroutine firewood	(	character*10	VOLEQ,
		character*2	FORST,
		integer	JSP,
		integer	NEXTRA,
		integer, dimension(6)	SETOPT,
		real	DBHOB,
		real	HTTOT,
		real	LMERCH,
		real	DBTBH,
		real	MTOPP,
		real	STUMP,
		real, dimension(2)	HEX,
		real, dimension(2)	DEX,
		real, dimension(2)	ZEX,
		real, dimension(4)	RHFW,
		real, dimension(6)	RFLW,
		real, dimension(12)	TAPCOE,
		real	F,
		real, dimension(3)	FMOD,
		real, dimension(2)	PINV_Z,
		real	TOP6,
		real	TCVOL,
		real	slope,
		integer	errflag
	)

Here is the call graph for this function:

subroutine fwsmall	(	integer	JSP,
		integer	NEXTRA,
		integer, dimension(6)	SETOPT,
		real	slope,
		real	DBHOB,
		real	HTTOT,
		real	DBTBH,
		real, dimension(2)	HEX,
		real, dimension(2)	ZEX,
		real, dimension(4)	RHFW,
		real, dimension(6)	RFLW,
		real, dimension(12)	TAPCOE,
		real	F,
		real, dimension(3)	FMOD,
		real, dimension(2)	PINV_Z,
		real	DIB1,
		integer	errflag
	)

Here is the call graph for this function:

subroutine getdib	(	character*10	VOLEQ,
		character*2	FORST,
		integer	JSP,
		integer	NEXTRA,
		integer, dimension(6)	SETOPT,
		real	DBHOB,
		real	HTTOT,
		real	MTOPP,
		real	STUMP,
		real	TRIM,
		real	DBTBH,
		integer	LOGST,
		real, dimension(2)	HEX,
		real, dimension(2)	DEX,
		real, dimension(2)	ZEX,
		real, dimension(4)	RHFW,
		real, dimension(6)	RFLW,
		real, dimension(12)	TAPCOE,
		real	F,
		real, dimension(3)	FMOD,
		real, dimension(2)	PINV_Z,
		real	TOP6,
		integer	NUMSEG,
		real, dimension(20)	LOGLEN,
		real, dimension(21,3)	LOGDIA,
		real, dimension(21)	BOLHT,
		integer	errflag
	)

Here is the call graph for this function:

subroutine merlen	(	character*10	VOLEQ,
		character*2	FORST,
		integer	JSP,
		integer	NEXTRA,
		integer, dimension(6)	SETOPT,
		real	DBHOB,
		real	HTTOT,
		real	DBTBH,
		real, dimension(2)	HEX,
		real, dimension(2)	DEX,
		real, dimension(2)	ZEX,
		real, dimension(4)	RHFW,
		real, dimension(6)	RFLW,
		real, dimension(12)	TAPCOE,
		real	F,
		real, dimension(3)	FMOD,
		real, dimension(2)	PINV_Z,
		real	TOP6,
		real	STUMP,
		real	TOP,
		real	LMERCH,
		integer	errflag
	)

Here is the call graph for this function:

subroutine profile	(	integer	REGN,
		character*2	FORST,
		character*10	VOLEQ,
		real	MTOPP,
		real	MTOPS,
		real	STUMP,
		real	DBHOB,
		character*1	HTTYPE,
		real	HTTOT,
		integer	HTLOG,
		real	HT1PRD,
		real	HT2PRD,
		real	UPSHT1,
		real	UPSHT2,
		real	UPSD1,
		real	UPSD2,
		real	AVGZ1,
		real	AVGZ2,
		integer	HTREF,
		real	DBTBH,
		real	BTR,
		real, dimension(21,3)	LOGDIA,
		real, dimension(21)	BOLHT,
		real, dimension(20)	LOGLEN,
		real, dimension(7,20)	LOGVOL,
		real, dimension(15)	VOL,
		integer	LOGST,
		real	NOLOGP,
		real	NOLOGS,
		integer	CUTFLG,
		integer	BFPFLG,
		integer	CUPFLG,
		integer	CDPFLG,
		integer	SPFLG,
		real	DRCOB,
		character*1	CTYPE,
		integer	FCLASS,
		character*2	PROD,
		integer	ERRFLAG
	)

Here is the call graph for this function:

subroutine r10hts	(	character*10	EQNUM,
		real	HTTOT,
		real	HT1PRD,
		real	DBHOB,
		character*1	HTTYPE,
		real	STUMP,
		real	TOP,
		real	LMERCH
	)

Here is the call graph for this function:

subroutine tapermodel	(	character*10	VOLEQ,
		character*2	FORST,
		integer	JSP,
		integer	NEXTRA,
		integer, dimension(6)	SETOPT,
		real	DBHOB,
		real	HTTOT,
		real	DBTBH,
		real, dimension(2)	HEX,
		real, dimension(2)	DEX,
		real, dimension(2)	ZEX,
		real, dimension(4)	RHFW,
		real, dimension(6)	RFLW,
		real, dimension(12)	TAPCOE,
		real	F,
		real, dimension(3)	FMOD,
		real, dimension(2)	PINV_Z,
		real	TOP6,
		real	HT2,
		real	MTOPP,
		integer	MFLG,
		real	CUVOL,
		real	DIB,
		real	DOB,
		integer	errflag
	)

Here is the call graph for this function:

subroutine tcubic	(	character*10	VOLEQ,
		character*2	FORST,
		integer	JSP,
		integer	NEXTRA,
		integer, dimension(6)	SETOPT,
		real	DBHOB,
		real	HTTOT,
		real	DBTBH,
		real	MTOPP,
		real, dimension(2)	HEX,
		real, dimension(2)	DEX,
		real, dimension(2)	ZEX,
		real, dimension(4)	RHFW,
		real, dimension(6)	RFLW,
		real, dimension(12)	TAPCOE,
		real	F,
		real, dimension(3)	FMOD,
		real, dimension(2)	PINV_Z,
		real	TOP6,
		real	TCVOL,
		real	slope,
		integer	errflag
	)

Here is the call graph for this function:

subroutine top6len	(	character*10	VOLEQ,
		real	HTTOT,
		real	DBHOB,
		real, dimension(2)	DEX,
		real, dimension(2)	HEX,
		real	STUMP,
		real	TOP,
		real	TOP6,
		real	DBTBH,
		integer	errflag
	)

Here is the call graph for this function:

subroutine volintrp	(	integer	REGN,
		character*10	VOLEQ,
		real	DBH,
		real	LHT,
		real	MHT,
		real	MTOPP,
		character*1	HTTYPE,
		real	DBTBH,
		real, dimension(7,20)	LOGVOL,
		real, dimension(21,3)	LOGDIA,
		integer	HTLOG,
		real, dimension(20)	LOGLEN,
		integer	LOGST,
		real	NOLOGP,
		real, dimension(15)	VOL,
		character*1	CTYPE,
		character*2	PROD,
		integer	ERRFLAG
	)

Here is the call graph for this function:

subroutine volratio	(	character*10	VOLEQ,
		character*2	FORST,
		real	DBHOB,
		real	HTTOT,
		real	TOPD,
		real, dimension(21,3)	LOGDIB,
		real, dimension(20)	LOGLEN,
		integer	NUMSEG,
		real	CUBV,
		real	VMER
	)

Here is the call graph for this function: