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:

Here is the caller 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:

Here is the caller 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:

Here is the caller 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:

Here is the caller 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:

Here is the caller 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:

Here is the caller 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:

Here is the caller 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:

Here is the caller 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:

Here is the caller 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:

Here is the caller 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:

Here is the caller graph for this function: