Open-FVS¶
Open-FVS is both the official code base for the Forest Vegetation Simulator (FVS), maintained by the USFS Rocky Mountain Research Station, as well as a development workspace to foster open collaboration on developement and enhancement of FVS.
The official Open-FVS project is hosted on Google Code.
Contents:
- module arrays_mod
Public Members
- module carbon_data
Public Functions
- subroutine copy_forest_carbon(carb carb)
- subroutine copy_harvest_carbon(carb carb)
- type clkcoef_mod::clkcoef
- module clkcoef_mod
- module coeffs_mod
- module contrl_mod
Public Members
- character *160 trefmt
- character *250 kwdfil
- character *4, dimension(maxsp) iused
- character *10, dimension(10) namgrp
- logical ldubdg
- logical lrcor2
- logical lflag
- logical ldcor2
- logical, dimension(maxsp) ldgcal
- logical, dimension(maxsp) lhtdrg
- logical lmort
- logical lsite
- logical lfire
- logical lstart
- logical lsumry
- logical ltrip
- logical mordat
- logical notrip
- logical lbkden
- logical lauton
- logical lcvols
- logical lbvols
- logical lfia
- logical lzeide
- logical nofortype
- integer iccode
- integer icflag
- integer icl1
- integer icl2
- integer icl3
- integer icl4
- integer icl5
- integer icl6
- integer icyc
- integer idg
- integer ifst
- integer iread
- integer irec1
- integer irec2
- integer irecnt
- integer irecrd
- integer istdat
- integer itrn
- integer jolist
- integer jostnd
- integer josum
- integer jotree
- integer jocalb
- integer nstknt
- integer ncyc
- integer numsp
- integer lstknt
- integer nspgrp
- integer ithnpi
- integer ithnpn
- integer ithnpa
- real autmax
- real autmin
- real auteff
- real dgsd
- real eff
- real trm
- real fintm
- real bamax
- real d0mult
- real d0
- real tcwt
- real cfmin
- real bfmin
- real bamin
- real spclwt
- real yr
- real tcfmin
- real pbawt
- real pccfwt
- real ptpawt
- real dr016
- real dbhstage
- real dbhzeide
- real dbhsdi
- struct d_BOV
Public Members
- char cr_BOV_Cat[20]
- int i_3InId
- float f_RemAmt
- float f_TimBurOut
- struct d_CCT
- #include <fof_cct.h>
Public Members
- int i_No
- char cr_CC[10]
- float f_a
- float f_b
- float f_r
- struct d_CFF
- #include <bur_brn.h>
Public Members
- int i_MAX_TIMES
- int i_INTENSITY
- int i_IG_TIME
- int i_WINDSPEED
- int i_DEPTH
- int i_AMBIENT_TEMP
- int i_r0
- int i_dr
- int i_TIMESTEP
- int i_DUFF_LOAD
- int i_DUFF_MOIST
- struct d_CI
- #include <fof_ci.h>
Public Members
- float f_Duff
- float f_DufDep
- float f_MoistDuff
- float f_MoistDW10
- float f_MoistDW1000
- float f_Lit
- float f_DW1
- float f_DW10
- float f_DW100
- float f_DW1000
- float f_pcRot
- char cr_WD[eC_WD]
- float f_Snd_DW3
- float f_Snd_DW6
- float f_Snd_DW9
- float f_Snd_DW20
- float f_Rot_DW3
- float f_Rot_DW6
- float f_Rot_DW9
- float f_Rot_DW20
- float f_CroFol
- float f_CroBra
- float f_Pc_CroBrn
- float f_Herb
- float f_Shrub
- float f_HSFCon
- float f_PerDufCon
- char cr_LoadFN[400]
- char cr_EmiFN[400]
- float f_SURat_Lit
- float f_SURat_DW1
- float f_SURat_DW10
- float f_SURat_DW100
- float f_SURat_DWk_3_6
- float f_SURat_DWk_6_9
- float f_SURat_DWk_9_20
- float f_SURat_DWk_20
- long int l_MAX_TIMES
- float f_INTENSITY
- float f_IG_TIME
- float f_WINDSPEED
- float f_DEPTH
- float f_AMBIENT_TEMP
- float f_R0
- float f_DR
- float f_TIMESTEP
- char cr_CoverGroup[eC_CoverGroup]
- char cr_CoverClass[20]
- char cr_Season[eC_Season]
- char cr_Region[eC_Region]
- char cr_FuelCategory[eC_FuelCategory]
- char cr_DufMoiMet[eC_DufMoiMet]
- struct d_CO
- #include <fof_co.h>
Public Members
- char cr_BrnIg[10]
- int i_LitEqu
- float f_LitPre
- float f_LitCon
- float f_LitPos
- float f_LitPer
- int i_DW1Equ
- float f_DW1Pre
- float f_DW1Con
- float f_DW1Pos
- float f_DW1Per
- int i_DW10Equ
- float f_DW10Pre
- float f_DW10Con
- float f_DW10Pos
- float f_DW10Per
- int i_DW100Equ
- float f_DW100Pre
- float f_DW100Con
- float f_DW100Pos
- float f_DW100Per
- int i_Snd_DW1kEqu
- float f_Snd_DW1kPre
- float f_Snd_DW1kCon
- float f_Snd_DW1kPos
- float f_Snd_DW1kPer
- int i_Rot_DW1kEqu
- float f_Rot_DW1kPre
- float f_Rot_DW1kCon
- float f_Rot_DW1kPos
- float f_Rot_DW1kPer
- int i_DufEqu
- float f_DufPre
- float f_DufCon
- float f_DufPos
- float f_DufPer
- int i_DufDepEqu
- float f_DufDepPre
- float f_DufDepCon
- float f_DufDepPos
- float f_DufDepPer
- float f_MSEPer
- int i_MSEEqu
- int i_HerEqu
- float f_HerPre
- float f_HerCon
- float f_HerPos
- float f_HerPer
- int i_ShrEqu
- float f_ShrPre
- float f_ShrCon
- float f_ShrPos
- float f_ShrPer
- int i_FolEqu
- float f_FolPre
- float f_FolCon
- float f_FolPos
- float f_FolPer
- int i_BraEqu
- float f_BraPre
- float f_BraCon
- float f_BraPos
- float f_BraPer
- float f_TotPre
- float f_TotCon
- float f_TotPos
- float f_TotPer
- float f_S3Pos
- float f_S3Con
- float f_S3Pre
- float f_S3Per
- float f_S6Pos
- float f_S6Con
- float f_S6Pre
- float f_S6Per
- float f_S9Pos
- float f_S9Con
- float f_S9Pre
- float f_S9Per
- float f_S20Pos
- float f_S20Con
- float f_S20Pre
- float f_S20Per
- float f_R3Pos
- float f_R3Con
- float f_R3Pre
- float f_R3Per
- float f_R6Pos
- float f_R6Con
- float f_R6Pre
- float f_R6Per
- float f_R9Pos
- float f_R9Con
- float f_R9Pre
- float f_R9Per
- float f_R20Pos
- float f_R20Con
- float f_R20Pre
- float f_R20Per
- float f_PM10F
- float f_PM25F
- float f_CH4F
- float f_COF
- float f_CO2F
- float f_NOXF
- float f_SOXF
- float f_PM10S
- float f_PM25S
- float f_CH4S
- float f_COS
- float f_CO2S
- float f_NOXS
- float f_SOXS
- float f_FlaDur
- float f_SmoDur
- float f_FlaCon
- float f_SmoCon
- int i_Time
- int i_Cnt
- float f_fi
- char cr_SHC[200]
- struct d_DUF
- #include <fof_duf.h>
Public Members
- float f_Per
- int i_PerEqu
- float f_Red
- int i_RedEqu
- char cr_ErrMess[400]
- float f_MSEPer
- int i_MSEEqu
- char cr_MSEMess[400]
- struct d_ES
- #include <bur_brn.h>
Public Members
- double d_FlaCon
- double d_SmoCon
- double dN_FlaCon
- double dN_SmoCon
- double d_PM25
- double d_PM10
- double d_CH4
- double d_CO2
- double d_CO
- double d_NOX
- double d_SOX
- double dN_PM25F
- double dN_CH4F
- double dN_COF
- double dN_CO2F
- double dN_PM10F
- double dN_NOXF
- double dN_SOXF
- double dN_PM25S
- double dN_CH4S
- double dN_COS
- double dN_CO2S
- double dN_PM10S
- double dN_NOXS
- double dN_SOXS
- double d_FlaDur
- double d_SmoDur
- struct d_ISS
- #include <fof_iss.h>
Public Members
- char cr_Spe[eC_ISS_SPe+1]
- int i_Den
- int i_DBH
- int i_TreHgt
- int i_CroRat
- struct d_MI
- #include <fof_mrt.h>
Public Members
- char cr_Spe[20]
- float f_DBH
- float f_FS
- char cr_FS[10]
- float f_Hgt
- float f_CroRat
- char cr_FirSev[10]
- float f_Den
- struct d_MO
- #include <fof_mrt.h>
Public Members
- float f_Mort
- float f_TotPreTree
- float f_Killed
- float f_BasPre
- float f_BasKil
- float f_BasPos
- float f_CovPreLiv
- float f_CovPosLiv
- float f_AvgMort
- float f_4AvgMort
- float f_TotKilled
- float f_AvgDBHKilled
- float f_BasTotPre
- float f_BasTotKil
- float f_BasTotPos
- float f_CovTotPreLiv
- float f_CovTotPosLiv
- int i_MortEqu
- struct d_SD
- #include <fof_sd.h>
- struct d_SE
- #include <fof_se.h>
- struct d_SGV
- #include <fof_sgv.h>
Public Members
- float f_Sec
- float f_Amt
- float f_PM2_5
- float f_PM10
- float f_CH4
- float f_CO2
- float f_CO
- float f_NOX
- float f_SOX
- float f_Inten
- struct d_SI
- #include <fof_sh.h>
Public Members
- float f_DufDepPre
- float f_DufDepPos
- float f_SoilMoist
- char cr_BrnIg[10]
- char cr_SoilType[eC_SoilType]
- char cr_MoistCond[eC_MoistCond]
- int i_Time
- int i_Cnt
- float f_fi
- struct d_SMT
- #include <fof_smt.h>
Public Members
- char cr_Spe[10]
- char cr_Name[150]
- int i_MrtEqu
- int i_BrkEqu
- int i_Reg1
- int i_Reg2
- int i_Reg3
- int i_Reg4
- int i_No
- struct d_SO
- #include <fof_sh.h>
Public Members
- int ir_Temp[e_Layers]
- int ir_Time[e_Layers]
- float f_cDufPre
- float f_cDufPost
- float f_Heatpc
- int i_LayMaxDeg1
- int i_LayMaxDeg2
- char cr_Model[30]
- type debug_mod::debug_indicators
- module debug_mod
Public Members
- logical any_debug
- logical false
- integer ludbg
- integer vedbg
- integer luout
- type(debug_indicators) debug
- module downwood_data
Public Functions
- subroutine copy_downwood(ddw ddw)
- module eshap_mod
Public Members
- logical lingrw
- logical lautal
- logical lsprut
- integer nptids
- integer iprint
- integer inadv
- integer load
- integer idsdat
- integer mode
- integer kdtold
- integer ihtype
- integer iyrlrm
- integer ifo
- integer joregt
- integer iblk
- integer meth
- integer minrep
- integer ipinfo
- integer itrnrm
- integer ntally
- real zmech
- real xtes
- real esb
- real esa
- real pmech
- real pburn
- real oldtim
- real confid
- real stoadj
- real zburn
- real esdraw
- real thres1
- real thres2
- module estree_mod
- module findage_mod
- module fmcom_mod
Public Members
- integer burnyr
- real canmht
- real cbhcut
- integer covtyp
- real crburn
- real cwdcut
- real folmc
- integer fmkod
- real fmslop
- integer nfmsvpx
- integer ftreat
- logical, dimension(mxsnag) hard
- integer hartyp
- integer harvyr
- real htr1
- real htr2
- real htxsft
- integer icansp
- integer icbhmt
- integer ifmyr1
- integer ifmyr2
- integer iftyr
- integer isalvc
- integer isalvs
- integer isngsm
- integer jcout
- logical lanhed
- logical lfmon
- logical lfmon2
- logical, dimension(3) lfrout
- real limbrk
- logical lshead
- logical ldhead
- logical ldynfm
- logical lvwest
- logical lremt
- integer nsnag
- integer nyrs
- integer oldcovtyp
- integer oldict
- integer oldict2
- real nzero
- real pbscor
- real pbsoft
- real pbsize
- real pbsmal
- real pbtime
- integer pburnyr
- real percov
- real prsnag
- real sccf
- real tonrmc
- real tonrms
- real tonrmh
- real totacr
- integer nsnagsalv
- logical, dimension(mxsnag) hardsalv
- integer icycrm
- integer itrnl
- module fmfcom_mod
Public Members
- integer actcbh
- integer atemp
- integer burnseas
- real burncr
- real ccchng
- real cccrit
- real cbd
- real depth
- real dpmod
- real exposr
- integer firtype
- integer fm89yr
- real fwind
- integer iflogic
- integer ifmset
- integer ifmfle
- integer ifmmrb
- integer ifmmre
- integer iflalb
- integer iflale
- integer idbrn
- integer idful
- integer idmrt
- integer idflal
- integer idpflm
- integer idsheat
- integer isheatb
- integer isheate
- integer ibrpas
- integer iflpas
- integer imrpas
- integer ifapas
- integer ipfpas
- integer ifstep
- integer ifmbrb
- integer ifmbre
- integer ifmflb
- integer ipfstp
- integer ipflmb
- integer ipflme
- integer isnagb
- integer isnage
- integer isnstp
- integer icfpb
- integer icfpe
- integer icfpst
- integer idwpas
- integer idcpas
- integer iddwrp
- integer iddwcv
- integer idwrpb
- integer idwrpe
- integer idwrpi
- integer idwcvb
- integer idwcve
- integer idwcvi
- integer idryb
- integer idrye
- integer jsnout
- real large
- real small
- real olarge
- real osmall
- logical lhead
- logical lflbrn
- logical lusrfm
- logical latfuel
- logical latshrb
- logical lprv89
- logical, dimension(maxsp) lsw
- real minsol
- integer nd
- integer nl
- integer nfmods
- real pbrncr
- real prv8
- real prv9
- real rfinal
- real sch
- real slchng
- real slcrit
- integer soiltp
- real tcload
- real ulhv
- integer idcrpt
- integer icrptb
- integer icrpte
- integer icrpti
- integer icrpas
- integer idchrv
- integer ichrvb
- integer ichrve
- integer ichrvi
- integer ichpas
- integer icmeth
- integer icmetrc
- integer ichabt
- real crdcay
- real biolive
- real biosnag
- real bioddw
- real bioflr
- real bioshrb
- real bioroot
- logical cfim_on
- real cfim_bd
- real cfim_dc
- module fmparm_mod
- module fmprop_mod
- module fvs_step
Public Functions
- subroutine fvs_init(keywords keywords, irtncd irtncd)
- subroutine fvs_grow(irtncd irtncd)
- subroutine fvs_end(irtncd irtncd)
- module htcal_mod
- module metric_mod
Public Members
- real cmtoin
- real cmtoft
- real mtoin
- real mtoft
- real intocm
- real fttocm
- real intom
- real fttom
- real m2toft2
- real hatoacr
- real ft2tom2
- real acrtoha
- real m3toft3
- real ft3tom3
- real kgtolb
- real tmtoti
- real lbtokg
- real titotm
- real m2phatoft2pacr
- real m3phatoft3pacr
- real ft2pacrtom2pha
- real ft3pacrtom3pha
- real mitokm
- real kmtomi
- real ftoc1
- real ftoc2
- real ctof1
- real ctof2
- real btutokj
- integer n_metric_prms
- logical lmtric
- module multcm_mod
- module outcom_mod
Public Members
- character *3, dimension(4) iosptt
- character *3, dimension(4) iospbr
- character *3, dimension(4) iosptv
- character *3, dimension(4) iospmr
- character *3, dimension(4) iospac
- character *3, dimension(4) iospct
- character *3, dimension(4) iospcv
- character *3, dimension(4) iospmc
- character *3, dimension(4) iospbv
- character *3, dimension(4) iosprt
- character *3, dimension(4) iospmo
- character *3, dimension(6) ionsp
- character *72 ititle
- module pden_mod
- module plot_mod
Public Members
- character *4 mgmid
- character *4, dimension(maxsp) jsp
- character *4, dimension(maxsp, 3) nsp
- character *4, dimension(maxsp) fiajsp
- character *10 cpvref
- character *6, dimension(maxsp) plnjsp
- character *26 nplt
- character *40 dbcn
- real aspect
- real avh
- real ba
- real baf
- real brk
- real atavd
- real atavh
- real atba
- real atccf
- real attpa
- real covyr
- real covmlt
- real elev
- real fint
- real fpa
- real grospc
- real pi
- real relden
- real reldm1
- real oldtpa
- real rmsqd
- real slope
- real samwt
- real tfpa
- real rmai
- real tprob
- real oldba
- real oldavh
- real ormsqd
- real sdimax
- real tlat
- real tlong
- real pmsdil
- real pmsdiu
- real vmlt
- real vmltyr
- real btsdix
- real atsdix
- real sdibc
- real sdiac
- real stndsi
- real sdibc2
- real sdiac2
- integer iptinv
- integer nonstk
- integer iage
- integer ifint
- integer ifor
- integer igl
- integer ismall
- integer itype
- integer isisp
- integer islop
- integer iaspec
- integer kodtyp
- integer kodfor
- integer managd
- integer imodty
- integer iphreg
- integer ifortp
- integer iszcl
- integer istcl
- integer istate
- integer icnty
- integer icage
- integer nsitet
- integer jspindef
- module prgprm_mod
- module siteht_mod
Public Functions
- subroutine get_siteht(si si, spp spp, age age, siteht siteht)
- module snag_data
Public Functions
- subroutine copy_snag_data()
Public Members
- module tree_data
Public Functions
- subroutine init_tree_data()
- subroutine copy_tree_data()
- subroutine copy_mort_data()
- subroutine copy_cuts_data()
Public Members
- logical save_tree_data
- module varcom_mod
- module volstd_mod
- module workcm_mod
- namespace arrays_mod
- namespace BARRETT
- namespace coeffs_mod
- namespace contrl_mod
- namespace DAHMS
- namespace DEBUG_MOD
- namespace eshap_mod
- namespace estree_mod
- namespace FARR
- namespace fmcom_mod
- namespace fmfcom_mod
- namespace fmparm_mod
- namespace fmprop_mod
- namespace FOR
- namespace htcal_mod
- namespace metric_mod
- namespace multcm_mod
- namespace outcom_mod
- namespace pden_mod
- namespace plot_mod
- namespace prgprm_mod
- namespace PROFILE
- namespace siteht_mod
- namespace tree_data
- namespace UNPUBLISHED
- namespace varcom_mod
- namespace volstd_mod
- namespace workcm_mod
- file algcmp.f
- file algevl.f
- file algexp.f
- file algkey.f
Functions
- subroutine algkey(CTOK CTOK, LEN LEN, NUM NUM, IRC IRC)
- file algptg.f
Functions
- subroutine algptg(CTOK CTOK, LEN LEN, NUM NUM, IRC IRC)
- file algslp.f
Functions
- real function algslp(XX XX, X X, Y Y, N N)
- file algspp.f
Functions
- subroutine algspp(CTOK CTOK, LEN LEN, NUM NUM, IRC IRC)
- file apisubs.f
Functions
- subroutine fvsdimsizes(ntrees ntrees, ncycles ncycles, nplots nplots, maxtrees maxtrees, maxspecies maxspecies, maxplots maxplots, maxcycles maxcycles)
- subroutine fvssummary(summary summary, icycle icycle, ncycles ncycles, maxrow maxrow, maxcol maxcol, rtnCode rtnCode)
- subroutine fvstreeattr(name name, nch nch, action action, ntrees ntrees, attr attr, rtnCode rtnCode)
- subroutine fvsspeciesattr(name name, nch nch, action action, attr attr, rtnCode rtnCode)
- subroutine fvsevmonattr(name name, nch nch, action action, attr attr, rtnCode rtnCode)
- subroutine fvsaddtrees(in_dbh in_dbh, in_species in_species, in_ht in_ht, in_cratio in_cratio, in_plot in_plot, in_tpa in_tpa, ntrees ntrees, rtnCode rtnCode)
- subroutine fvsspeciescode(fvs_code fvs_code, fia_code fia_code, plant_code plant_code, indx indx, nchfvs nchfvs, nchfia nchfia, nchplant nchplant, rtnCode rtnCode)
- subroutine fvscuttrees(pToCut pToCut, ntrees ntrees, rtnCode rtnCode)
- subroutine fvsstandid(sID sID, sCN sCN, mID mID, ncsID ncsID, ncCN ncCN, ncmID ncmID)
- subroutine fvsclosefile(filename filename, nch nch)
- subroutine fvsaddactivity(idt idt, iactk iactk, inprms inprms, nprms nprms, rtnCode rtnCode)
- subroutine fvssvsdimsizes(nsvsobjs nsvsobjs, ndeadobjs ndeadobjs, ncwdobjs ncwdobjs, mxsvsobjs mxsvsobjs, mxdeadobjs mxdeadobjs, mxcwdobjs mxcwdobjs)
- subroutine fvssvsobjdata(name name, nch nch, action action, nobjs nobjs, attr attr, rtnCode rtnCode)
- subroutine fvsffeattrs(name name, nch nch, action action, nobjs nobjs, attr attr, rtnCode rtnCode)
- subroutine fvsunitconversion(name name, nch nch, value value, rtnCode rtnCode)
- file ARRAYS.F77
Functions
- CODE SEGMENT ARRAYS C C **ARRAYS DATE OF LAST HT2TD C C VECTORS IN THE ARRAYS COMMON AREA STORE INDIVIDUAL TREE ATTRIBUTES C ALL OF THESE VECTORS ARE MODIFIED OR DESTROYED WHEN **COMPRS **C IS CALLED TO COMPRESS THE TREE LIST THE CONTENTS OF THESE C VECTORS IS REARRANGED WHEN **TREDEL **IS CALLED TO DELETE TREE C RECORDS C C C BFV CURRENT BOARD FOOT VOLUME THIS IS THE VOLUME OF A C AND HAS NOT BEEN EXPANDED TO VOLUME PER ACRE C CALCULATED IN **VOLS **C CFV CURRENT TOTAL CUBIC VOLUME(VOLUME PER TREE AS ABOVE)
- CODE SEGMENT ARRAYS C C **ARRAYS DATE OF LAST HT2TD C C VECTORS IN THE ARRAYS COMMON AREA STORE INDIVIDUAL TREE ATTRIBUTES C ALL OF THESE VECTORS ARE MODIFIED OR DESTROYED WHEN **COMPRS **C IS CALLED TO COMPRESS THE TREE LIST THE CONTENTS OF THESE C VECTORS IS REARRANGED WHEN **TREDEL **IS CALLED TO DELETE TREE C RECORDS C C C BFV CURRENT BOARD FOOT VOLUME THIS IS THE VOLUME OF A C AND HAS NOT BEEN EXPANDED TO VOLUME PER ACRE C CALCULATED IN **VOLS **C CFV CURRENT TOTAL CUBIC INCREMENTED IN **UPDATE **AT END OF C CYCLE C DEFECT PERCENT DEFECT CODED AS AND AT INPUT IT MAY BE AN INCREMENT OR A PAST C OR FUTURE DIAMETER MEASUREMENT COMPUTED IN **DGF **AND C **DGDRIV **EACH CYCLE C HT TREE HEIGHT AT THE BEGINNING OF A PROJECTION CYCLE C READ IN **INTREE **OPTIONAL INCREMENTED IN C **UPDATE **AT END OF CYCLE C HT2TD IS THE HEIGHT FROM STUMP TO SECIFIED TOP DIAMETER C HT2TD(2)
- CODE SEGMENT ARRAYS C C **ARRAYS DATE OF LAST HT2TD C C VECTORS IN THE ARRAYS COMMON AREA STORE INDIVIDUAL TREE ATTRIBUTES C ALL OF THESE VECTORS ARE MODIFIED OR DESTROYED WHEN **COMPRS **C IS CALLED TO COMPRESS THE TREE LIST THE CONTENTS OF THESE C VECTORS IS REARRANGED WHEN **TREDEL **IS CALLED TO DELETE TREE C RECORDS C C C BFV CURRENT BOARD FOOT VOLUME THIS IS THE VOLUME OF A C AND HAS NOT BEEN EXPANDED TO VOLUME PER ACRE C CALCULATED IN **VOLS **C CFV CURRENT TOTAL CUBIC INCREMENTED IN **UPDATE **AT END OF C CYCLE C DEFECT PERCENT DEFECT CODED AS AND AT INPUT IT MAY BE AN INCREMENT OR A PAST C OR FUTURE DIAMETER MEASUREMENT COMPUTED IN **DGF **AND C **DGDRIV **EACH CYCLE C HT TREE HEIGHT AT THE BEGINNING OF A PROJECTION CYCLE C READ IN **INTREE **OPTIONAL INCREMENTED IN C **UPDATE **AT END OF CYCLE C HT2TD IS THE HEIGHT FROM STUMP TO SECIFIED TOP DIAMETER C HT2TD(1)
- CODE SEGMENT ARRAYS C C **ARRAYS DATE OF LAST HT2TD C C VECTORS IN THE ARRAYS COMMON AREA STORE INDIVIDUAL TREE ATTRIBUTES C ALL OF THESE VECTORS ARE MODIFIED OR DESTROYED WHEN **COMPRS **C IS CALLED TO COMPRESS THE TREE LIST THE CONTENTS OF THESE C VECTORS IS REARRANGED WHEN **TREDEL **IS CALLED TO DELETE TREE C RECORDS C C C BFV CURRENT BOARD FOOT VOLUME THIS IS THE VOLUME OF A C AND HAS NOT BEEN EXPANDED TO VOLUME PER ACRE C CALCULATED IN **VOLS **C CFV CURRENT TOTAL CUBIC INCREMENTED IN **UPDATE **AT END OF C CYCLE C DEFECT PERCENT DEFECT CODED AS AND AT INPUT IT MAY BE AN INCREMENT OR A PAST C OR FUTURE DIAMETER MEASUREMENT COMPUTED IN **DGF **AND C **DGDRIV **EACH CYCLE C HT TREE HEIGHT AT THE BEGINNING OF A PROJECTION CYCLE C READ IN **INTREE **OPTIONAL INCREMENTED IN C **UPDATE **AT END OF CYCLE C HT2TD IS THE HEIGHT FROM STUMP TO SECIFIED TOP DIAMETER C ETC CODE CAN BE USED IN C SETTING CUT PRIORITY VIA MULTIPLIER ON TCONDMLT KEYWORD C OLDPCT PERCENTILE IN THE DISTRIBUTION OF TREE BASAL AREA IN C THE PREVIOUS CYCLE ASSIGNED IN **TREGRO **AT THE END C OF EACH CYCLE C OLDRN RANDOM ERROR ASSIGNED TO TREES IN THE PREVIOUS CYCLE C PCT PERCENTILE IN THE DISTRIBUTION OF TREE BASAL AREA C COMPUTED IN **DENSE **IF STAND IS THINNED PCT IS USED C IN **CUTS **AS TEMPORARY STORAGE FOR COMPUTING SUMMARY C DISTRIBUTIONS PERCENTILES ARE REASSIGNED IN CALL TO C **DENSE **FOLLOWING THINNING C PLTSIZ THE SIZE OF PLOT ON WHICH THE TREE WAS MEASURED SET IN C **NOTRE **FOR INVENTORY AND **ESTAB **FOR C ESTABLISHED TREES C PROB NUMBER OF TREES PER ACRE REPRESENTED BY THE TREE RECORD C READ IN **INTREE **AT INPUT INTERPRETED AS NUMBER OF C TREES REPRESENTED BY THE TREE RECORD CONVERTED TO C TREES PER ACRE IN **NOTRE **MODIFIED TO REFLECT C THINNING IN **CUTS **AND MORTALITY IN **UPDATE **C WK1 WORK ARRAY DURING WK1 IS USED TO STORE C THE DIFFERENCE BETWEEN PREDICTED AND OBSERVED DBH C INCREMENT IN **DGDRIV **AND THE RATIO OF PREDICTED C TO OBSERVED HEIGHT INCREMENT IN **REGENT **IN C **DGDRIV WK1 IS LOADED WITH PAST YEAR DBH C INCREMENT FOR USE IN **MORTS **IN **VOLS WK1 IS C LOADED WITH MERCHANTABLE CUBIC FOOT VOLUME FOR USE C IN **CUTS **IN THE NEXT CYCLE C WK2 WORK ARRAY USED WITHIN **CUTS **TO HOLD CUTTING C PRIORITY LEVELS AND THEN CFV REMOVED USED WITHIN C **DENSE **TO HOLD D *D *PROB WHEN COMPUTING PERCENTILES C IN THE BASAL AREA DISTRIBUTION DURING WK2 C IS USED TO PASS TREE DBH FROM **DGDRIV **TO **DGF **C EACH PROJECTION IT IS LOADED WITH THE TREES PER C ACRE DYING IN **MORTS **THE MORTALITY ESTIMATE MAY BE C MODIFIED BY SUBSEQUENT INTERACTION WITH PEST MODELS C WK2 IS SUBTRACTED FROM PROB IN **UPDATE **AND THEN C USED WITHIN **VOLS **TO HOLD CUFT VOL ACCRETION C WK3 WORK ARRAY DURING WK3 IS USED TO C CARRY BACKDATED DBH FROM **DENSE **TO **DGDRIV **C DURING EACH PROJECTION WK3 IS USED FREQUENTLY C AS WORK SPACE FOR COMPUTING PERCENTILES IN OUTPUT C DISTRIBUTIONS WK3 IS AVAILABLE FOR OTHER WORK C SPACE BUT SHOULD NOT BE USED TO CARRY C DATA BETWEEN GROWTH ROUTINES C WK4 ADDITIONAL WORK SPACE THAT IS CURRENTLY USED ONLY C WK5 WITHIN CUTS(AND WK4 THIS HOLDS CLIMATE GROWTH MULTIPLIERS C FOR EACH TREE)
- CODE SEGMENT ARRAYS C C **ARRAYS DATE OF LAST HT2TD C C VECTORS IN THE ARRAYS COMMON AREA STORE INDIVIDUAL TREE ATTRIBUTES C ALL OF THESE VECTORS ARE MODIFIED OR DESTROYED WHEN **COMPRS **C IS CALLED TO COMPRESS THE TREE LIST THE CONTENTS OF THESE C VECTORS IS REARRANGED WHEN **TREDEL **IS CALLED TO DELETE TREE C RECORDS C C C BFV CURRENT BOARD FOOT VOLUME THIS IS THE VOLUME OF A C AND HAS NOT BEEN EXPANDED TO VOLUME PER ACRE C CALCULATED IN **VOLS **C CFV CURRENT TOTAL CUBIC INCREMENTED IN **UPDATE **AT END OF C CYCLE C DEFECT PERCENT DEFECT CODED AS AND AT INPUT IT MAY BE AN INCREMENT OR A PAST C OR FUTURE DIAMETER MEASUREMENT COMPUTED IN **DGF **AND C **DGDRIV **EACH CYCLE C HT TREE HEIGHT AT THE BEGINNING OF A PROJECTION CYCLE C READ IN **INTREE **OPTIONAL INCREMENTED IN C **UPDATE **AT END OF CYCLE C HT2TD IS THE HEIGHT FROM STUMP TO SECIFIED TOP DIAMETER C ETC CODE CAN BE USED IN C SETTING CUT PRIORITY VIA MULTIPLIER ON TCONDMLT KEYWORD C OLDPCT PERCENTILE IN THE DISTRIBUTION OF TREE BASAL AREA IN C THE PREVIOUS CYCLE ASSIGNED IN **TREGRO **AT THE END C OF EACH CYCLE C OLDRN RANDOM ERROR ASSIGNED TO TREES IN THE PREVIOUS CYCLE C PCT PERCENTILE IN THE DISTRIBUTION OF TREE BASAL AREA C COMPUTED IN **DENSE **IF STAND IS THINNED PCT IS USED C IN **CUTS **AS TEMPORARY STORAGE FOR COMPUTING SUMMARY C DISTRIBUTIONS PERCENTILES ARE REASSIGNED IN CALL TO C **DENSE **FOLLOWING THINNING C PLTSIZ THE SIZE OF PLOT ON WHICH THE TREE WAS MEASURED SET IN C **NOTRE **FOR INVENTORY AND **ESTAB **FOR C ESTABLISHED TREES C PROB NUMBER OF TREES PER ACRE REPRESENTED BY THE TREE RECORD C READ IN **INTREE **AT INPUT INTERPRETED AS NUMBER OF C TREES REPRESENTED BY THE TREE RECORD CONVERTED TO C TREES PER ACRE IN **NOTRE **MODIFIED TO REFLECT C THINNING IN **CUTS **AND MORTALITY IN **UPDATE **C WK1 WORK ARRAY DURING WK1 IS USED TO STORE C THE DIFFERENCE BETWEEN PREDICTED AND OBSERVED DBH C INCREMENT IN **DGDRIV **AND THE RATIO OF PREDICTED C TO OBSERVED HEIGHT INCREMENT IN **REGENT **IN C **DGDRIV WK1 IS LOADED WITH PAST YEAR DBH C INCREMENT FOR USE IN **MORTS **IN **VOLS WK1 IS C LOADED WITH MERCHANTABLE CUBIC FOOT VOLUME FOR USE C IN **CUTS **IN THE NEXT CYCLE C WK2 WORK ARRAY USED WITHIN **CUTS **TO HOLD CUTTING C PRIORITY LEVELS AND THEN CFV REMOVED USED WITHIN C **DENSE **TO HOLD D *D *PROB WHEN COMPUTING PERCENTILES C IN THE BASAL AREA DISTRIBUTION DURING WK2 C IS USED TO PASS TREE DBH FROM **DGDRIV **TO **DGF **C EACH PROJECTION IT IS LOADED WITH THE TREES PER C ACRE DYING IN **MORTS **THE MORTALITY ESTIMATE MAY BE C MODIFIED BY SUBSEQUENT INTERACTION WITH PEST MODELS C WK2 IS SUBTRACTED FROM PROB IN **UPDATE **AND THEN C USED WITHIN **VOLS **TO HOLD CUFT VOL ACCRETION C WK3 WORK ARRAY DURING WK3 IS USED TO C CARRY BACKDATED DBH FROM **DENSE **TO **DGDRIV **C DURING EACH PROJECTION WK3 IS USED FREQUENTLY C AS WORK SPACE FOR COMPUTING PERCENTILES IN OUTPUT C DISTRIBUTIONS WK3 IS AVAILABLE FOR OTHER WORK C SPACE BUT SHOULD NOT BE USED TO CARRY C DATA BETWEEN GROWTH ROUTINES C WK4 ADDITIONAL WORK SPACE THAT IS CURRENTLY USED ONLY C WK5 WITHIN WK5 IS LOADED WITH REMOVED MERCHANTABLE C CUBIC FOOT AND WK6 IS LOADED WITH REMOVED C BOARD FOOT VOLUME C ICR CROWN LENGTH EXPRESSED AS A PERCENTAGE OF TOTAL HEIGHT C OPTIONAL INPUT READ IN **INTREE **MISSING C VALUES ARE DUBBED IN **CROWN **OR **DUBSCR DEPENDING C ON TREE SIZE IF TREE HAS LESS THAN IN CROWN C DOES NOT CHANGE WHEN DBH CROSSES IN A C NEW CROWN RATIO IS ASSIGNED IN **DUBSCR **ALL CROWN C RATIOS FOR TREES WITH GREATER THAN IN DBH ARE UPDATED C EACH CYCLE IN **CROWN **C IMC TREE VALUE CLASS READ IN **INTREE USED IN **CUTS **C TO COMPUTE REMOVAL PRIORITY(1 = DESIRABLE, 2 = ACCEPTABLE, C 3 = LIVE CULL)
- CODE SEGMENT ARRAYS C C **ARRAYS DATE OF LAST HT2TD C C VECTORS IN THE ARRAYS COMMON AREA STORE INDIVIDUAL TREE ATTRIBUTES C ALL OF THESE VECTORS ARE MODIFIED OR DESTROYED WHEN **COMPRS **C IS CALLED TO COMPRESS THE TREE LIST THE CONTENTS OF THESE C VECTORS IS REARRANGED WHEN **TREDEL **IS CALLED TO DELETE TREE C RECORDS C C C BFV CURRENT BOARD FOOT VOLUME THIS IS THE VOLUME OF A C AND HAS NOT BEEN EXPANDED TO VOLUME PER ACRE C CALCULATED IN **VOLS **C CFV CURRENT TOTAL CUBIC INCREMENTED IN **UPDATE **AT END OF C CYCLE C DEFECT PERCENT DEFECT CODED AS AND AT INPUT IT MAY BE AN INCREMENT OR A PAST C OR FUTURE DIAMETER MEASUREMENT COMPUTED IN **DGF **AND C **DGDRIV **EACH CYCLE C HT TREE HEIGHT AT THE BEGINNING OF A PROJECTION CYCLE C READ IN **INTREE **OPTIONAL INCREMENTED IN C **UPDATE **AT END OF CYCLE C HT2TD IS THE HEIGHT FROM STUMP TO SECIFIED TOP DIAMETER C ETC CODE CAN BE USED IN C SETTING CUT PRIORITY VIA MULTIPLIER ON TCONDMLT KEYWORD C OLDPCT PERCENTILE IN THE DISTRIBUTION OF TREE BASAL AREA IN C THE PREVIOUS CYCLE ASSIGNED IN **TREGRO **AT THE END C OF EACH CYCLE C OLDRN RANDOM ERROR ASSIGNED TO TREES IN THE PREVIOUS CYCLE C PCT PERCENTILE IN THE DISTRIBUTION OF TREE BASAL AREA C COMPUTED IN **DENSE **IF STAND IS THINNED PCT IS USED C IN **CUTS **AS TEMPORARY STORAGE FOR COMPUTING SUMMARY C DISTRIBUTIONS PERCENTILES ARE REASSIGNED IN CALL TO C **DENSE **FOLLOWING THINNING C PLTSIZ THE SIZE OF PLOT ON WHICH THE TREE WAS MEASURED SET IN C **NOTRE **FOR INVENTORY AND **ESTAB **FOR C ESTABLISHED TREES C PROB NUMBER OF TREES PER ACRE REPRESENTED BY THE TREE RECORD C READ IN **INTREE **AT INPUT INTERPRETED AS NUMBER OF C TREES REPRESENTED BY THE TREE RECORD CONVERTED TO C TREES PER ACRE IN **NOTRE **MODIFIED TO REFLECT C THINNING IN **CUTS **AND MORTALITY IN **UPDATE **C WK1 WORK ARRAY DURING WK1 IS USED TO STORE C THE DIFFERENCE BETWEEN PREDICTED AND OBSERVED DBH C INCREMENT IN **DGDRIV **AND THE RATIO OF PREDICTED C TO OBSERVED HEIGHT INCREMENT IN **REGENT **IN C **DGDRIV WK1 IS LOADED WITH PAST YEAR DBH C INCREMENT FOR USE IN **MORTS **IN **VOLS WK1 IS C LOADED WITH MERCHANTABLE CUBIC FOOT VOLUME FOR USE C IN **CUTS **IN THE NEXT CYCLE C WK2 WORK ARRAY USED WITHIN **CUTS **TO HOLD CUTTING C PRIORITY LEVELS AND THEN CFV REMOVED USED WITHIN C **DENSE **TO HOLD D *D *PROB WHEN COMPUTING PERCENTILES C IN THE BASAL AREA DISTRIBUTION DURING WK2 C IS USED TO PASS TREE DBH FROM **DGDRIV **TO **DGF **C EACH PROJECTION IT IS LOADED WITH THE TREES PER C ACRE DYING IN **MORTS **THE MORTALITY ESTIMATE MAY BE C MODIFIED BY SUBSEQUENT INTERACTION WITH PEST MODELS C WK2 IS SUBTRACTED FROM PROB IN **UPDATE **AND THEN C USED WITHIN **VOLS **TO HOLD CUFT VOL ACCRETION C WK3 WORK ARRAY DURING WK3 IS USED TO C CARRY BACKDATED DBH FROM **DENSE **TO **DGDRIV **C DURING EACH PROJECTION WK3 IS USED FREQUENTLY C AS WORK SPACE FOR COMPUTING PERCENTILES IN OUTPUT C DISTRIBUTIONS WK3 IS AVAILABLE FOR OTHER WORK C SPACE BUT SHOULD NOT BE USED TO CARRY C DATA BETWEEN GROWTH ROUTINES C WK4 ADDITIONAL WORK SPACE THAT IS CURRENTLY USED ONLY C WK5 WITHIN WK5 IS LOADED WITH REMOVED MERCHANTABLE C CUBIC FOOT AND WK6 IS LOADED WITH REMOVED C BOARD FOOT VOLUME C ICR CROWN LENGTH EXPRESSED AS A PERCENTAGE OF TOTAL HEIGHT C OPTIONAL INPUT READ IN **INTREE **MISSING C VALUES ARE DUBBED IN **CROWN **OR **DUBSCR DEPENDING C ON TREE SIZE IF TREE HAS LESS THAN IN CROWN C DOES NOT CHANGE WHEN DBH CROSSES IN A C NEW CROWN RATIO IS ASSIGNED IN **DUBSCR **ALL CROWN C RATIOS FOR TREES WITH GREATER THAN IN DBH ARE UPDATED C EACH CYCLE IN **CROWN **C IMC TREE VALUE CLASS READ IN **INTREE USED IN **CUTS **C TO COMPUTE REMOVAL TREE I IS THE C LARGEST TREE IN THE STAND INITIALLY LOADED IN C **IDSORT **WITH A CALL FROM **CRATET **UPDATED EACH C CYCLE WITH CALL TO **IDSORT **FROM **TREGRO **C IND1 USED TO ACCESS THE TREE LIST IN SPECIES ORDER IND1 C IS DIVIDED INTO SECTORS SUCH THAT EACH SECTOR C CONTAINS INDICES TO THE INPUT ORDER OF ALL THE C RECORDS OF A GIVEN SPECIES IND1 MUST BE REFERENCED C WITH THE ARRAY ISCT(DIMENSIONED MAXSP, 2)
- C THE SECOND WILL HAVE VALUES OF C IND1 AND ISCT ARE INITIALLY COMPUTED WITH A CALL TO C **SETUP **FROM **MAIN **THEY ARE RECOMPUTED IN C **CRATET **WHEN NON PROJECTABLE RECORDS ARE DELETED C WHEN RECORDS ARE THEY ARE RECOMPUTED WITH C CALL TO **REASS **FROM **TREGRO THEY ARE RECOMPUTED C BY **SPESRT **AND **SETUP **ANYTIME TREE RECORDS ARE C COMPLETELY REMOVED IN THINNING(CALL FROM **CUTS **)
- C THE SECOND WILL HAVE VALUES OF C IND1 AND ISCT ARE INITIALLY COMPUTED WITH A CALL TO C **SETUP **FROM **MAIN **THEY ARE RECOMPUTED IN C **CRATET **WHEN NON PROJECTABLE RECORDS ARE DELETED C WHEN RECORDS ARE THEY ARE RECOMPUTED WITH C CALL TO **REASS **FROM **TREGRO THEY ARE RECOMPUTED C BY **SPESRT **AND **SETUP **ANYTIME TREE RECORDS ARE C COMPLETELY REMOVED IN C THE NUMBER OF TREE RECORDS IS CHANGED BY COMPRESSION C(CALL FROM ** COMCUP)
- C THE SECOND WILL HAVE VALUES OF C IND1 AND ISCT ARE INITIALLY COMPUTED WITH A CALL TO C **SETUP **FROM **MAIN **THEY ARE RECOMPUTED IN C **CRATET **WHEN NON PROJECTABLE RECORDS ARE DELETED C WHEN RECORDS ARE THEY ARE RECOMPUTED WITH C CALL TO **REASS **FROM **TREGRO THEY ARE RECOMPUTED C BY **SPESRT **AND **SETUP **ANYTIME TREE RECORDS ARE C COMPLETELY REMOVED IN C THE NUMBER OF TREE RECORDS IS CHANGED BY COMPRESSION OR NEW TREE RECORDS ARE C CREATED BY THE REGENERATION ESTABLISHMENT MODEL C(CALL FROM **ESNUTR **)
Variables
- CODE SEGMENT ARRAYS C C **ARRAYS DATE OF LAST HT2TD C C VECTORS IN THE ARRAYS COMMON AREA STORE INDIVIDUAL TREE ATTRIBUTES C ALL OF THESE VECTORS ARE MODIFIED OR DESTROYED WHEN **COMPRS **C IS CALLED TO COMPRESS THE TREE LIST ALSO
- CODE SEGMENT ARRAYS C C **ARRAYS DATE OF LAST HT2TD C C VECTORS IN THE ARRAYS COMMON AREA STORE INDIVIDUAL TREE ATTRIBUTES C ALL OF THESE VECTORS ARE MODIFIED OR DESTROYED WHEN **COMPRS **C IS CALLED TO COMPRESS THE TREE LIST THE CONTENTS OF THESE C VECTORS IS REARRANGED WHEN **TREDEL **IS CALLED TO DELETE TREE C RECORDS C C C BFV CURRENT BOARD FOOT VOLUME THIS IS THE VOLUME OF A C TREE
- CODE SEGMENT ARRAYS C C **ARRAYS DATE OF LAST HT2TD C C VECTORS IN THE ARRAYS COMMON AREA STORE INDIVIDUAL TREE ATTRIBUTES C ALL OF THESE VECTORS ARE MODIFIED OR DESTROYED WHEN **COMPRS **C IS CALLED TO COMPRESS THE TREE LIST THE CONTENTS OF THESE C VECTORS IS REARRANGED WHEN **TREDEL **IS CALLED TO DELETE TREE C RECORDS C C C BFV CURRENT BOARD FOOT VOLUME THIS IS THE VOLUME OF A C AND HAS NOT BEEN EXPANDED TO VOLUME PER ACRE C CALCULATED IN **VOLS **C CFV CURRENT TOTAL CUBIC INCREMENTED IN **UPDATE **AT END OF C CYCLE C DEFECT PERCENT DEFECT CODED AS WHERE
- CODE SEGMENT ARRAYS C C **ARRAYS DATE OF LAST HT2TD C C VECTORS IN THE ARRAYS COMMON AREA STORE INDIVIDUAL TREE ATTRIBUTES C ALL OF THESE VECTORS ARE MODIFIED OR DESTROYED WHEN **COMPRS **C IS CALLED TO COMPRESS THE TREE LIST THE CONTENTS OF THESE C VECTORS IS REARRANGED WHEN **TREDEL **IS CALLED TO DELETE TREE C RECORDS C C C BFV CURRENT BOARD FOOT VOLUME THIS IS THE VOLUME OF A C AND HAS NOT BEEN EXPANDED TO VOLUME PER ACRE C CALCULATED IN **VOLS **C CFV CURRENT TOTAL CUBIC INCREMENTED IN **UPDATE **AT END OF C CYCLE C DEFECT PERCENT DEFECT CODED AS AND AT INPUT IT MAY BE AN INCREMENT OR A PAST C OR FUTURE DIAMETER MEASUREMENT COMPUTED IN **DGF **AND C **DGDRIV **EACH CYCLE C HT TREE HEIGHT AT THE BEGINNING OF A PROJECTION CYCLE C READ IN **INTREE **OPTIONAL INPUT
- CODE SEGMENT ARRAYS C C **ARRAYS DATE OF LAST HT2TD C C VECTORS IN THE ARRAYS COMMON AREA STORE INDIVIDUAL TREE ATTRIBUTES C ALL OF THESE VECTORS ARE MODIFIED OR DESTROYED WHEN **COMPRS **C IS CALLED TO COMPRESS THE TREE LIST THE CONTENTS OF THESE C VECTORS IS REARRANGED WHEN **TREDEL **IS CALLED TO DELETE TREE C RECORDS C C C BFV CURRENT BOARD FOOT VOLUME THIS IS THE VOLUME OF A C AND HAS NOT BEEN EXPANDED TO VOLUME PER ACRE C CALCULATED IN **VOLS **C CFV CURRENT TOTAL CUBIC INCREMENTED IN **UPDATE **AT END OF C CYCLE C DEFECT PERCENT DEFECT CODED AS AND AT INPUT IT MAY BE AN INCREMENT OR A PAST C OR FUTURE DIAMETER MEASUREMENT COMPUTED IN **DGF **AND C **DGDRIV **EACH CYCLE C HT TREE HEIGHT AT THE BEGINNING OF A PROJECTION CYCLE C READ IN **INTREE **OPTIONAL INCREMENTED IN C **UPDATE **AT END OF CYCLE C HT2TD IS THE HEIGHT FROM STUMP TO SECIFIED TOP DIAMETER C ETC CODE CAN BE USED IN C SETTING CUT PRIORITY VIA MULTIPLIER ON TCONDMLT KEYWORD C OLDPCT PERCENTILE IN THE DISTRIBUTION OF TREE BASAL AREA IN C THE PREVIOUS CYCLE ASSIGNED IN **TREGRO **AT THE END C OF EACH CYCLE C OLDRN RANDOM ERROR ASSIGNED TO TREES IN THE PREVIOUS CYCLE C PCT PERCENTILE IN THE DISTRIBUTION OF TREE BASAL AREA C COMPUTED IN **DENSE **IF STAND IS THINNED PCT IS USED C IN **CUTS **AS TEMPORARY STORAGE FOR COMPUTING SUMMARY C DISTRIBUTIONS PERCENTILES ARE REASSIGNED IN CALL TO C **DENSE **FOLLOWING THINNING C PLTSIZ THE SIZE OF PLOT ON WHICH THE TREE WAS MEASURED SET IN C **NOTRE **FOR INVENTORY TREES
- CODE SEGMENT ARRAYS C C **ARRAYS DATE OF LAST HT2TD C C VECTORS IN THE ARRAYS COMMON AREA STORE INDIVIDUAL TREE ATTRIBUTES C ALL OF THESE VECTORS ARE MODIFIED OR DESTROYED WHEN **COMPRS **C IS CALLED TO COMPRESS THE TREE LIST THE CONTENTS OF THESE C VECTORS IS REARRANGED WHEN **TREDEL **IS CALLED TO DELETE TREE C RECORDS C C C BFV CURRENT BOARD FOOT VOLUME THIS IS THE VOLUME OF A C AND HAS NOT BEEN EXPANDED TO VOLUME PER ACRE C CALCULATED IN **VOLS **C CFV CURRENT TOTAL CUBIC INCREMENTED IN **UPDATE **AT END OF C CYCLE C DEFECT PERCENT DEFECT CODED AS AND AT INPUT IT MAY BE AN INCREMENT OR A PAST C OR FUTURE DIAMETER MEASUREMENT COMPUTED IN **DGF **AND C **DGDRIV **EACH CYCLE C HT TREE HEIGHT AT THE BEGINNING OF A PROJECTION CYCLE C READ IN **INTREE **OPTIONAL INCREMENTED IN C **UPDATE **AT END OF CYCLE C HT2TD IS THE HEIGHT FROM STUMP TO SECIFIED TOP DIAMETER C ETC CODE CAN BE USED IN C SETTING CUT PRIORITY VIA MULTIPLIER ON TCONDMLT KEYWORD C OLDPCT PERCENTILE IN THE DISTRIBUTION OF TREE BASAL AREA IN C THE PREVIOUS CYCLE ASSIGNED IN **TREGRO **AT THE END C OF EACH CYCLE C OLDRN RANDOM ERROR ASSIGNED TO TREES IN THE PREVIOUS CYCLE C PCT PERCENTILE IN THE DISTRIBUTION OF TREE BASAL AREA C COMPUTED IN **DENSE **IF STAND IS THINNED PCT IS USED C IN **CUTS **AS TEMPORARY STORAGE FOR COMPUTING SUMMARY C DISTRIBUTIONS PERCENTILES ARE REASSIGNED IN CALL TO C **DENSE **FOLLOWING THINNING C PLTSIZ THE SIZE OF PLOT ON WHICH THE TREE WAS MEASURED SET IN C **NOTRE **FOR INVENTORY AND **ESTAB **FOR C ESTABLISHED TREES C PROB NUMBER OF TREES PER ACRE REPRESENTED BY THE TREE RECORD C READ IN **INTREE **AT INPUT INTERPRETED AS NUMBER OF C TREES REPRESENTED BY THE TREE RECORD CONVERTED TO C TREES PER ACRE IN **NOTRE **MODIFIED TO REFLECT C THINNING IN **CUTS **AND MORTALITY IN **UPDATE **C WK1 WORK ARRAY DURING CALIBRATION
- CODE SEGMENT ARRAYS C C **ARRAYS DATE OF LAST HT2TD C C VECTORS IN THE ARRAYS COMMON AREA STORE INDIVIDUAL TREE ATTRIBUTES C ALL OF THESE VECTORS ARE MODIFIED OR DESTROYED WHEN **COMPRS **C IS CALLED TO COMPRESS THE TREE LIST THE CONTENTS OF THESE C VECTORS IS REARRANGED WHEN **TREDEL **IS CALLED TO DELETE TREE C RECORDS C C C BFV CURRENT BOARD FOOT VOLUME THIS IS THE VOLUME OF A C AND HAS NOT BEEN EXPANDED TO VOLUME PER ACRE C CALCULATED IN **VOLS **C CFV CURRENT TOTAL CUBIC INCREMENTED IN **UPDATE **AT END OF C CYCLE C DEFECT PERCENT DEFECT CODED AS AND AT INPUT IT MAY BE AN INCREMENT OR A PAST C OR FUTURE DIAMETER MEASUREMENT COMPUTED IN **DGF **AND C **DGDRIV **EACH CYCLE C HT TREE HEIGHT AT THE BEGINNING OF A PROJECTION CYCLE C READ IN **INTREE **OPTIONAL INCREMENTED IN C **UPDATE **AT END OF CYCLE C HT2TD IS THE HEIGHT FROM STUMP TO SECIFIED TOP DIAMETER C ETC CODE CAN BE USED IN C SETTING CUT PRIORITY VIA MULTIPLIER ON TCONDMLT KEYWORD C OLDPCT PERCENTILE IN THE DISTRIBUTION OF TREE BASAL AREA IN C THE PREVIOUS CYCLE ASSIGNED IN **TREGRO **AT THE END C OF EACH CYCLE C OLDRN RANDOM ERROR ASSIGNED TO TREES IN THE PREVIOUS CYCLE C PCT PERCENTILE IN THE DISTRIBUTION OF TREE BASAL AREA C COMPUTED IN **DENSE **IF STAND IS THINNED PCT IS USED C IN **CUTS **AS TEMPORARY STORAGE FOR COMPUTING SUMMARY C DISTRIBUTIONS PERCENTILES ARE REASSIGNED IN CALL TO C **DENSE **FOLLOWING THINNING C PLTSIZ THE SIZE OF PLOT ON WHICH THE TREE WAS MEASURED SET IN C **NOTRE **FOR INVENTORY AND **ESTAB **FOR C ESTABLISHED TREES C PROB NUMBER OF TREES PER ACRE REPRESENTED BY THE TREE RECORD C READ IN **INTREE **AT INPUT INTERPRETED AS NUMBER OF C TREES REPRESENTED BY THE TREE RECORD CONVERTED TO C TREES PER ACRE IN **NOTRE **MODIFIED TO REFLECT C THINNING IN **CUTS **AND MORTALITY IN **UPDATE **C WK1 WORK ARRAY DURING WK1 IS USED TO STORE C THE DIFFERENCE BETWEEN PREDICTED AND OBSERVED DBH C INCREMENT IN **DGDRIV **AND THE RATIO OF PREDICTED C TO OBSERVED HEIGHT INCREMENT IN **REGENT **IN C **DGDRIV WK1 IS LOADED WITH PAST YEAR DBH C INCREMENT FOR USE IN **MORTS **IN **VOLS WK1 IS C LOADED WITH MERCHANTABLE CUBIC FOOT VOLUME FOR USE C IN **CUTS **IN THE NEXT CYCLE C WK2 WORK ARRAY USED WITHIN **CUTS **TO HOLD CUTTING C PRIORITY LEVELS AND THEN CFV REMOVED USED WITHIN C **DENSE **TO HOLD D *D *PROB WHEN COMPUTING PERCENTILES C IN THE BASAL AREA DISTRIBUTION DURING WK2 C IS USED TO PASS TREE DBH FROM **DGDRIV **TO **DGF **C EACH PROJECTION CYCLE
- CODE SEGMENT ARRAYS C C **ARRAYS DATE OF LAST HT2TD C C VECTORS IN THE ARRAYS COMMON AREA STORE INDIVIDUAL TREE ATTRIBUTES C ALL OF THESE VECTORS ARE MODIFIED OR DESTROYED WHEN **COMPRS **C IS CALLED TO COMPRESS THE TREE LIST THE CONTENTS OF THESE C VECTORS IS REARRANGED WHEN **TREDEL **IS CALLED TO DELETE TREE C RECORDS C C C BFV CURRENT BOARD FOOT VOLUME THIS IS THE VOLUME OF A C AND HAS NOT BEEN EXPANDED TO VOLUME PER ACRE C CALCULATED IN **VOLS **C CFV CURRENT TOTAL CUBIC INCREMENTED IN **UPDATE **AT END OF C CYCLE C DEFECT PERCENT DEFECT CODED AS AND AT INPUT IT MAY BE AN INCREMENT OR A PAST C OR FUTURE DIAMETER MEASUREMENT COMPUTED IN **DGF **AND C **DGDRIV **EACH CYCLE C HT TREE HEIGHT AT THE BEGINNING OF A PROJECTION CYCLE C READ IN **INTREE **OPTIONAL INCREMENTED IN C **UPDATE **AT END OF CYCLE C HT2TD IS THE HEIGHT FROM STUMP TO SECIFIED TOP DIAMETER C ETC CODE CAN BE USED IN C SETTING CUT PRIORITY VIA MULTIPLIER ON TCONDMLT KEYWORD C OLDPCT PERCENTILE IN THE DISTRIBUTION OF TREE BASAL AREA IN C THE PREVIOUS CYCLE ASSIGNED IN **TREGRO **AT THE END C OF EACH CYCLE C OLDRN RANDOM ERROR ASSIGNED TO TREES IN THE PREVIOUS CYCLE C PCT PERCENTILE IN THE DISTRIBUTION OF TREE BASAL AREA C COMPUTED IN **DENSE **IF STAND IS THINNED PCT IS USED C IN **CUTS **AS TEMPORARY STORAGE FOR COMPUTING SUMMARY C DISTRIBUTIONS PERCENTILES ARE REASSIGNED IN CALL TO C **DENSE **FOLLOWING THINNING C PLTSIZ THE SIZE OF PLOT ON WHICH THE TREE WAS MEASURED SET IN C **NOTRE **FOR INVENTORY AND **ESTAB **FOR C ESTABLISHED TREES C PROB NUMBER OF TREES PER ACRE REPRESENTED BY THE TREE RECORD C READ IN **INTREE **AT INPUT INTERPRETED AS NUMBER OF C TREES REPRESENTED BY THE TREE RECORD CONVERTED TO C TREES PER ACRE IN **NOTRE **MODIFIED TO REFLECT C THINNING IN **CUTS **AND MORTALITY IN **UPDATE **C WK1 WORK ARRAY DURING WK1 IS USED TO STORE C THE DIFFERENCE BETWEEN PREDICTED AND OBSERVED DBH C INCREMENT IN **DGDRIV **AND THE RATIO OF PREDICTED C TO OBSERVED HEIGHT INCREMENT IN **REGENT **IN C **DGDRIV WK1 IS LOADED WITH PAST YEAR DBH C INCREMENT FOR USE IN **MORTS **IN **VOLS WK1 IS C LOADED WITH MERCHANTABLE CUBIC FOOT VOLUME FOR USE C IN **CUTS **IN THE NEXT CYCLE C WK2 WORK ARRAY USED WITHIN **CUTS **TO HOLD CUTTING C PRIORITY LEVELS AND THEN CFV REMOVED USED WITHIN C **DENSE **TO HOLD D *D *PROB WHEN COMPUTING PERCENTILES C IN THE BASAL AREA DISTRIBUTION DURING WK2 C IS USED TO PASS TREE DBH FROM **DGDRIV **TO **DGF **C EACH PROJECTION IT IS LOADED WITH THE TREES PER C ACRE DYING IN **MORTS **THE MORTALITY ESTIMATE MAY BE C MODIFIED BY SUBSEQUENT INTERACTION WITH PEST MODELS C WK2 IS SUBTRACTED FROM PROB IN **UPDATE **AND THEN C USED WITHIN **VOLS **TO HOLD CUFT VOL ACCRETION C WK3 WORK ARRAY DURING WK3 IS USED TO C CARRY BACKDATED DBH FROM **DENSE **TO **DGDRIV **C DURING EACH PROJECTION WK3 IS USED FREQUENTLY C AS WORK SPACE FOR COMPUTING PERCENTILES IN OUTPUT C DISTRIBUTIONS WK3 IS AVAILABLE FOR OTHER WORK C SPACE APPLICATIONS
- CODE SEGMENT ARRAYS C C **ARRAYS DATE OF LAST HT2TD C C VECTORS IN THE ARRAYS COMMON AREA STORE INDIVIDUAL TREE ATTRIBUTES C ALL OF THESE VECTORS ARE MODIFIED OR DESTROYED WHEN **COMPRS **C IS CALLED TO COMPRESS THE TREE LIST THE CONTENTS OF THESE C VECTORS IS REARRANGED WHEN **TREDEL **IS CALLED TO DELETE TREE C RECORDS C C C BFV CURRENT BOARD FOOT VOLUME THIS IS THE VOLUME OF A C AND HAS NOT BEEN EXPANDED TO VOLUME PER ACRE C CALCULATED IN **VOLS **C CFV CURRENT TOTAL CUBIC INCREMENTED IN **UPDATE **AT END OF C CYCLE C DEFECT PERCENT DEFECT CODED AS AND AT INPUT IT MAY BE AN INCREMENT OR A PAST C OR FUTURE DIAMETER MEASUREMENT COMPUTED IN **DGF **AND C **DGDRIV **EACH CYCLE C HT TREE HEIGHT AT THE BEGINNING OF A PROJECTION CYCLE C READ IN **INTREE **OPTIONAL INCREMENTED IN C **UPDATE **AT END OF CYCLE C HT2TD IS THE HEIGHT FROM STUMP TO SECIFIED TOP DIAMETER C ETC CODE CAN BE USED IN C SETTING CUT PRIORITY VIA MULTIPLIER ON TCONDMLT KEYWORD C OLDPCT PERCENTILE IN THE DISTRIBUTION OF TREE BASAL AREA IN C THE PREVIOUS CYCLE ASSIGNED IN **TREGRO **AT THE END C OF EACH CYCLE C OLDRN RANDOM ERROR ASSIGNED TO TREES IN THE PREVIOUS CYCLE C PCT PERCENTILE IN THE DISTRIBUTION OF TREE BASAL AREA C COMPUTED IN **DENSE **IF STAND IS THINNED PCT IS USED C IN **CUTS **AS TEMPORARY STORAGE FOR COMPUTING SUMMARY C DISTRIBUTIONS PERCENTILES ARE REASSIGNED IN CALL TO C **DENSE **FOLLOWING THINNING C PLTSIZ THE SIZE OF PLOT ON WHICH THE TREE WAS MEASURED SET IN C **NOTRE **FOR INVENTORY AND **ESTAB **FOR C ESTABLISHED TREES C PROB NUMBER OF TREES PER ACRE REPRESENTED BY THE TREE RECORD C READ IN **INTREE **AT INPUT INTERPRETED AS NUMBER OF C TREES REPRESENTED BY THE TREE RECORD CONVERTED TO C TREES PER ACRE IN **NOTRE **MODIFIED TO REFLECT C THINNING IN **CUTS **AND MORTALITY IN **UPDATE **C WK1 WORK ARRAY DURING WK1 IS USED TO STORE C THE DIFFERENCE BETWEEN PREDICTED AND OBSERVED DBH C INCREMENT IN **DGDRIV **AND THE RATIO OF PREDICTED C TO OBSERVED HEIGHT INCREMENT IN **REGENT **IN C **DGDRIV WK1 IS LOADED WITH PAST YEAR DBH C INCREMENT FOR USE IN **MORTS **IN **VOLS WK1 IS C LOADED WITH MERCHANTABLE CUBIC FOOT VOLUME FOR USE C IN **CUTS **IN THE NEXT CYCLE C WK2 WORK ARRAY USED WITHIN **CUTS **TO HOLD CUTTING C PRIORITY LEVELS AND THEN CFV REMOVED USED WITHIN C **DENSE **TO HOLD D *D *PROB WHEN COMPUTING PERCENTILES C IN THE BASAL AREA DISTRIBUTION DURING WK2 C IS USED TO PASS TREE DBH FROM **DGDRIV **TO **DGF **C EACH PROJECTION IT IS LOADED WITH THE TREES PER C ACRE DYING IN **MORTS **THE MORTALITY ESTIMATE MAY BE C MODIFIED BY SUBSEQUENT INTERACTION WITH PEST MODELS C WK2 IS SUBTRACTED FROM PROB IN **UPDATE **AND THEN C USED WITHIN **VOLS **TO HOLD CUFT VOL ACCRETION C WK3 WORK ARRAY DURING WK3 IS USED TO C CARRY BACKDATED DBH FROM **DENSE **TO **DGDRIV **C DURING EACH PROJECTION WK3 IS USED FREQUENTLY C AS WORK SPACE FOR COMPUTING PERCENTILES IN OUTPUT C DISTRIBUTIONS WK3 IS AVAILABLE FOR OTHER WORK C SPACE BUT SHOULD NOT BE USED TO CARRY C DATA BETWEEN GROWTH ROUTINES C WK4 ADDITIONAL WORK SPACE THAT IS CURRENTLY USED ONLY C WK5 WITHIN WK5 IS LOADED WITH REMOVED MERCHANTABLE C CUBIC FOOT VOLUME
- CODE SEGMENT ARRAYS C C **ARRAYS DATE OF LAST HT2TD C C VECTORS IN THE ARRAYS COMMON AREA STORE INDIVIDUAL TREE ATTRIBUTES C ALL OF THESE VECTORS ARE MODIFIED OR DESTROYED WHEN **COMPRS **C IS CALLED TO COMPRESS THE TREE LIST THE CONTENTS OF THESE C VECTORS IS REARRANGED WHEN **TREDEL **IS CALLED TO DELETE TREE C RECORDS C C C BFV CURRENT BOARD FOOT VOLUME THIS IS THE VOLUME OF A C AND HAS NOT BEEN EXPANDED TO VOLUME PER ACRE C CALCULATED IN **VOLS **C CFV CURRENT TOTAL CUBIC INCREMENTED IN **UPDATE **AT END OF C CYCLE C DEFECT PERCENT DEFECT CODED AS AND AT INPUT IT MAY BE AN INCREMENT OR A PAST C OR FUTURE DIAMETER MEASUREMENT COMPUTED IN **DGF **AND C **DGDRIV **EACH CYCLE C HT TREE HEIGHT AT THE BEGINNING OF A PROJECTION CYCLE C READ IN **INTREE **OPTIONAL INCREMENTED IN C **UPDATE **AT END OF CYCLE C HT2TD IS THE HEIGHT FROM STUMP TO SECIFIED TOP DIAMETER C ETC CODE CAN BE USED IN C SETTING CUT PRIORITY VIA MULTIPLIER ON TCONDMLT KEYWORD C OLDPCT PERCENTILE IN THE DISTRIBUTION OF TREE BASAL AREA IN C THE PREVIOUS CYCLE ASSIGNED IN **TREGRO **AT THE END C OF EACH CYCLE C OLDRN RANDOM ERROR ASSIGNED TO TREES IN THE PREVIOUS CYCLE C PCT PERCENTILE IN THE DISTRIBUTION OF TREE BASAL AREA C COMPUTED IN **DENSE **IF STAND IS THINNED PCT IS USED C IN **CUTS **AS TEMPORARY STORAGE FOR COMPUTING SUMMARY C DISTRIBUTIONS PERCENTILES ARE REASSIGNED IN CALL TO C **DENSE **FOLLOWING THINNING C PLTSIZ THE SIZE OF PLOT ON WHICH THE TREE WAS MEASURED SET IN C **NOTRE **FOR INVENTORY AND **ESTAB **FOR C ESTABLISHED TREES C PROB NUMBER OF TREES PER ACRE REPRESENTED BY THE TREE RECORD C READ IN **INTREE **AT INPUT INTERPRETED AS NUMBER OF C TREES REPRESENTED BY THE TREE RECORD CONVERTED TO C TREES PER ACRE IN **NOTRE **MODIFIED TO REFLECT C THINNING IN **CUTS **AND MORTALITY IN **UPDATE **C WK1 WORK ARRAY DURING WK1 IS USED TO STORE C THE DIFFERENCE BETWEEN PREDICTED AND OBSERVED DBH C INCREMENT IN **DGDRIV **AND THE RATIO OF PREDICTED C TO OBSERVED HEIGHT INCREMENT IN **REGENT **IN C **DGDRIV WK1 IS LOADED WITH PAST YEAR DBH C INCREMENT FOR USE IN **MORTS **IN **VOLS WK1 IS C LOADED WITH MERCHANTABLE CUBIC FOOT VOLUME FOR USE C IN **CUTS **IN THE NEXT CYCLE C WK2 WORK ARRAY USED WITHIN **CUTS **TO HOLD CUTTING C PRIORITY LEVELS AND THEN CFV REMOVED USED WITHIN C **DENSE **TO HOLD D *D *PROB WHEN COMPUTING PERCENTILES C IN THE BASAL AREA DISTRIBUTION DURING WK2 C IS USED TO PASS TREE DBH FROM **DGDRIV **TO **DGF **C EACH PROJECTION IT IS LOADED WITH THE TREES PER C ACRE DYING IN **MORTS **THE MORTALITY ESTIMATE MAY BE C MODIFIED BY SUBSEQUENT INTERACTION WITH PEST MODELS C WK2 IS SUBTRACTED FROM PROB IN **UPDATE **AND THEN C USED WITHIN **VOLS **TO HOLD CUFT VOL ACCRETION C WK3 WORK ARRAY DURING WK3 IS USED TO C CARRY BACKDATED DBH FROM **DENSE **TO **DGDRIV **C DURING EACH PROJECTION WK3 IS USED FREQUENTLY C AS WORK SPACE FOR COMPUTING PERCENTILES IN OUTPUT C DISTRIBUTIONS WK3 IS AVAILABLE FOR OTHER WORK C SPACE BUT SHOULD NOT BE USED TO CARRY C DATA BETWEEN GROWTH ROUTINES C WK4 ADDITIONAL WORK SPACE THAT IS CURRENTLY USED ONLY C WK5 WITHIN WK5 IS LOADED WITH REMOVED MERCHANTABLE C CUBIC FOOT AND WK6 IS LOADED WITH REMOVED C BOARD FOOT VOLUME C ICR CROWN LENGTH EXPRESSED AS A PERCENTAGE OF TOTAL HEIGHT C OPTIONAL INPUT VARIABLE
- CODE SEGMENT ARRAYS C C **ARRAYS DATE OF LAST HT2TD C C VECTORS IN THE ARRAYS COMMON AREA STORE INDIVIDUAL TREE ATTRIBUTES C ALL OF THESE VECTORS ARE MODIFIED OR DESTROYED WHEN **COMPRS **C IS CALLED TO COMPRESS THE TREE LIST THE CONTENTS OF THESE C VECTORS IS REARRANGED WHEN **TREDEL **IS CALLED TO DELETE TREE C RECORDS C C C BFV CURRENT BOARD FOOT VOLUME THIS IS THE VOLUME OF A C AND HAS NOT BEEN EXPANDED TO VOLUME PER ACRE C CALCULATED IN **VOLS **C CFV CURRENT TOTAL CUBIC INCREMENTED IN **UPDATE **AT END OF C CYCLE C DEFECT PERCENT DEFECT CODED AS AND AT INPUT IT MAY BE AN INCREMENT OR A PAST C OR FUTURE DIAMETER MEASUREMENT COMPUTED IN **DGF **AND C **DGDRIV **EACH CYCLE C HT TREE HEIGHT AT THE BEGINNING OF A PROJECTION CYCLE C READ IN **INTREE **OPTIONAL INCREMENTED IN C **UPDATE **AT END OF CYCLE C HT2TD IS THE HEIGHT FROM STUMP TO SECIFIED TOP DIAMETER C ETC CODE CAN BE USED IN C SETTING CUT PRIORITY VIA MULTIPLIER ON TCONDMLT KEYWORD C OLDPCT PERCENTILE IN THE DISTRIBUTION OF TREE BASAL AREA IN C THE PREVIOUS CYCLE ASSIGNED IN **TREGRO **AT THE END C OF EACH CYCLE C OLDRN RANDOM ERROR ASSIGNED TO TREES IN THE PREVIOUS CYCLE C PCT PERCENTILE IN THE DISTRIBUTION OF TREE BASAL AREA C COMPUTED IN **DENSE **IF STAND IS THINNED PCT IS USED C IN **CUTS **AS TEMPORARY STORAGE FOR COMPUTING SUMMARY C DISTRIBUTIONS PERCENTILES ARE REASSIGNED IN CALL TO C **DENSE **FOLLOWING THINNING C PLTSIZ THE SIZE OF PLOT ON WHICH THE TREE WAS MEASURED SET IN C **NOTRE **FOR INVENTORY AND **ESTAB **FOR C ESTABLISHED TREES C PROB NUMBER OF TREES PER ACRE REPRESENTED BY THE TREE RECORD C READ IN **INTREE **AT INPUT INTERPRETED AS NUMBER OF C TREES REPRESENTED BY THE TREE RECORD CONVERTED TO C TREES PER ACRE IN **NOTRE **MODIFIED TO REFLECT C THINNING IN **CUTS **AND MORTALITY IN **UPDATE **C WK1 WORK ARRAY DURING WK1 IS USED TO STORE C THE DIFFERENCE BETWEEN PREDICTED AND OBSERVED DBH C INCREMENT IN **DGDRIV **AND THE RATIO OF PREDICTED C TO OBSERVED HEIGHT INCREMENT IN **REGENT **IN C **DGDRIV WK1 IS LOADED WITH PAST YEAR DBH C INCREMENT FOR USE IN **MORTS **IN **VOLS WK1 IS C LOADED WITH MERCHANTABLE CUBIC FOOT VOLUME FOR USE C IN **CUTS **IN THE NEXT CYCLE C WK2 WORK ARRAY USED WITHIN **CUTS **TO HOLD CUTTING C PRIORITY LEVELS AND THEN CFV REMOVED USED WITHIN C **DENSE **TO HOLD D *D *PROB WHEN COMPUTING PERCENTILES C IN THE BASAL AREA DISTRIBUTION DURING WK2 C IS USED TO PASS TREE DBH FROM **DGDRIV **TO **DGF **C EACH PROJECTION IT IS LOADED WITH THE TREES PER C ACRE DYING IN **MORTS **THE MORTALITY ESTIMATE MAY BE C MODIFIED BY SUBSEQUENT INTERACTION WITH PEST MODELS C WK2 IS SUBTRACTED FROM PROB IN **UPDATE **AND THEN C USED WITHIN **VOLS **TO HOLD CUFT VOL ACCRETION C WK3 WORK ARRAY DURING WK3 IS USED TO C CARRY BACKDATED DBH FROM **DENSE **TO **DGDRIV **C DURING EACH PROJECTION WK3 IS USED FREQUENTLY C AS WORK SPACE FOR COMPUTING PERCENTILES IN OUTPUT C DISTRIBUTIONS WK3 IS AVAILABLE FOR OTHER WORK C SPACE BUT SHOULD NOT BE USED TO CARRY C DATA BETWEEN GROWTH ROUTINES C WK4 ADDITIONAL WORK SPACE THAT IS CURRENTLY USED ONLY C WK5 WITHIN WK5 IS LOADED WITH REMOVED MERCHANTABLE C CUBIC FOOT AND WK6 IS LOADED WITH REMOVED C BOARD FOOT VOLUME C ICR CROWN LENGTH EXPRESSED AS A PERCENTAGE OF TOTAL HEIGHT C OPTIONAL INPUT READ IN **INTREE **MISSING C VALUES ARE DUBBED IN **CROWN **OR **DUBSCR DEPENDING C ON TREE SIZE IF TREE HAS LESS THAN IN CROWN C DOES NOT CHANGE WHEN DBH CROSSES IN THRESHOLD
- CODE SEGMENT ARRAYS C C **ARRAYS DATE OF LAST HT2TD C C VECTORS IN THE ARRAYS COMMON AREA STORE INDIVIDUAL TREE ATTRIBUTES C ALL OF THESE VECTORS ARE MODIFIED OR DESTROYED WHEN **COMPRS **C IS CALLED TO COMPRESS THE TREE LIST THE CONTENTS OF THESE C VECTORS IS REARRANGED WHEN **TREDEL **IS CALLED TO DELETE TREE C RECORDS C C C BFV CURRENT BOARD FOOT VOLUME THIS IS THE VOLUME OF A C AND HAS NOT BEEN EXPANDED TO VOLUME PER ACRE C CALCULATED IN **VOLS **C CFV CURRENT TOTAL CUBIC INCREMENTED IN **UPDATE **AT END OF C CYCLE C DEFECT PERCENT DEFECT CODED AS AND AT INPUT IT MAY BE AN INCREMENT OR A PAST C OR FUTURE DIAMETER MEASUREMENT COMPUTED IN **DGF **AND C **DGDRIV **EACH CYCLE C HT TREE HEIGHT AT THE BEGINNING OF A PROJECTION CYCLE C READ IN **INTREE **OPTIONAL INCREMENTED IN C **UPDATE **AT END OF CYCLE C HT2TD IS THE HEIGHT FROM STUMP TO SECIFIED TOP DIAMETER C ETC CODE CAN BE USED IN C SETTING CUT PRIORITY VIA MULTIPLIER ON TCONDMLT KEYWORD C OLDPCT PERCENTILE IN THE DISTRIBUTION OF TREE BASAL AREA IN C THE PREVIOUS CYCLE ASSIGNED IN **TREGRO **AT THE END C OF EACH CYCLE C OLDRN RANDOM ERROR ASSIGNED TO TREES IN THE PREVIOUS CYCLE C PCT PERCENTILE IN THE DISTRIBUTION OF TREE BASAL AREA C COMPUTED IN **DENSE **IF STAND IS THINNED PCT IS USED C IN **CUTS **AS TEMPORARY STORAGE FOR COMPUTING SUMMARY C DISTRIBUTIONS PERCENTILES ARE REASSIGNED IN CALL TO C **DENSE **FOLLOWING THINNING C PLTSIZ THE SIZE OF PLOT ON WHICH THE TREE WAS MEASURED SET IN C **NOTRE **FOR INVENTORY AND **ESTAB **FOR C ESTABLISHED TREES C PROB NUMBER OF TREES PER ACRE REPRESENTED BY THE TREE RECORD C READ IN **INTREE **AT INPUT INTERPRETED AS NUMBER OF C TREES REPRESENTED BY THE TREE RECORD CONVERTED TO C TREES PER ACRE IN **NOTRE **MODIFIED TO REFLECT C THINNING IN **CUTS **AND MORTALITY IN **UPDATE **C WK1 WORK ARRAY DURING WK1 IS USED TO STORE C THE DIFFERENCE BETWEEN PREDICTED AND OBSERVED DBH C INCREMENT IN **DGDRIV **AND THE RATIO OF PREDICTED C TO OBSERVED HEIGHT INCREMENT IN **REGENT **IN C **DGDRIV WK1 IS LOADED WITH PAST YEAR DBH C INCREMENT FOR USE IN **MORTS **IN **VOLS WK1 IS C LOADED WITH MERCHANTABLE CUBIC FOOT VOLUME FOR USE C IN **CUTS **IN THE NEXT CYCLE C WK2 WORK ARRAY USED WITHIN **CUTS **TO HOLD CUTTING C PRIORITY LEVELS AND THEN CFV REMOVED USED WITHIN C **DENSE **TO HOLD D *D *PROB WHEN COMPUTING PERCENTILES C IN THE BASAL AREA DISTRIBUTION DURING WK2 C IS USED TO PASS TREE DBH FROM **DGDRIV **TO **DGF **C EACH PROJECTION IT IS LOADED WITH THE TREES PER C ACRE DYING IN **MORTS **THE MORTALITY ESTIMATE MAY BE C MODIFIED BY SUBSEQUENT INTERACTION WITH PEST MODELS C WK2 IS SUBTRACTED FROM PROB IN **UPDATE **AND THEN C USED WITHIN **VOLS **TO HOLD CUFT VOL ACCRETION C WK3 WORK ARRAY DURING WK3 IS USED TO C CARRY BACKDATED DBH FROM **DENSE **TO **DGDRIV **C DURING EACH PROJECTION WK3 IS USED FREQUENTLY C AS WORK SPACE FOR COMPUTING PERCENTILES IN OUTPUT C DISTRIBUTIONS WK3 IS AVAILABLE FOR OTHER WORK C SPACE BUT SHOULD NOT BE USED TO CARRY C DATA BETWEEN GROWTH ROUTINES C WK4 ADDITIONAL WORK SPACE THAT IS CURRENTLY USED ONLY C WK5 WITHIN WK5 IS LOADED WITH REMOVED MERCHANTABLE C CUBIC FOOT AND WK6 IS LOADED WITH REMOVED C BOARD FOOT VOLUME C ICR CROWN LENGTH EXPRESSED AS A PERCENTAGE OF TOTAL HEIGHT C OPTIONAL INPUT READ IN **INTREE **MISSING C VALUES ARE DUBBED IN **CROWN **OR **DUBSCR DEPENDING C ON TREE SIZE IF TREE HAS LESS THAN IN CROWN C DOES NOT CHANGE WHEN DBH CROSSES IN A C NEW CROWN RATIO IS ASSIGNED IN **DUBSCR **ALL CROWN C RATIOS FOR TREES WITH GREATER THAN IN DBH ARE UPDATED C EACH CYCLE IN **CROWN **C IMC TREE VALUE CLASS READ IN **INTREE USED IN **CUTS **C TO COMPUTE REMOVAL TREE I IS THE C LARGEST TREE IN THE STAND INITIALLY LOADED IN C **IDSORT **WITH A CALL FROM **CRATET **UPDATED EACH C CYCLE WITH CALL TO **IDSORT **FROM **TREGRO **C IND1 USED TO ACCESS THE TREE LIST IN SPECIES ORDER IND1 C IS DIVIDED INTO SECTORS SUCH THAT EACH SECTOR C CONTAINS INDICES TO THE INPUT ORDER OF ALL THE C RECORDS OF A GIVEN SPECIES IND1 MUST BE REFERENCED C WITH THE ARRAY POINTS TO FIRST RECORD IN THE C SECTOR OF IND1 THAT IS ASSOCIATED WITH SPECIES I
- C THE SECOND WILL HAVE VALUES OF C IND1 AND ISCT ARE INITIALLY COMPUTED WITH A CALL TO C **SETUP **FROM **MAIN **THEY ARE RECOMPUTED IN C **CRATET **WHEN NON PROJECTABLE RECORDS ARE DELETED C WHEN RECORDS ARE TRIPLED
- C THE SECOND WILL HAVE VALUES OF C IND1 AND ISCT ARE INITIALLY COMPUTED WITH A CALL TO C **SETUP **FROM **MAIN **THEY ARE RECOMPUTED IN C **CRATET **WHEN NON PROJECTABLE RECORDS ARE DELETED C WHEN RECORDS ARE THEY ARE RECOMPUTED WITH C CALL TO **REASS **FROM **TREGRO THEY ARE RECOMPUTED C BY **SPESRT **AND **SETUP **ANYTIME TREE RECORDS ARE C COMPLETELY REMOVED IN C THE NUMBER OF TREE RECORDS IS CHANGED BY COMPRESSION OR NEW TREE RECORDS ARE C CREATED BY THE REGENERATION ESTABLISHMENT MODEL THEN
- C THE SECOND WILL HAVE VALUES OF C IND1 AND ISCT ARE INITIALLY COMPUTED WITH A CALL TO C **SETUP **FROM **MAIN **THEY ARE RECOMPUTED IN C **CRATET **WHEN NON PROJECTABLE RECORDS ARE DELETED C WHEN RECORDS ARE THEY ARE RECOMPUTED WITH C CALL TO **REASS **FROM **TREGRO THEY ARE RECOMPUTED C BY **SPESRT **AND **SETUP **ANYTIME TREE RECORDS ARE C COMPLETELY REMOVED IN C THE NUMBER OF TREE RECORDS IS CHANGED BY COMPRESSION OR NEW TREE RECORDS ARE C CREATED BY THE REGENERATION ESTABLISHMENT MODEL AFTER THE HEIGHTS ARE DUBBED C IT HOLDS THE POINTERS TO MISSING CROWN RATIOS AND IS C PASSED TO **CROWN **DURING NORMAL CYCLING
- file arrays_mod.f90
- file autcor.f
Functions
- subroutine autcor(COV COV, VRNEXT VRNEXT)
- file avht40.f
Functions
- subroutine avht40()
- file bachlo.f
Functions
- real function bachlo(XBAR XBAR, STDEV STDEV, RANGEN RANGEN)
- file basdam.f
Functions
- subroutine basdam(ITREE ITREE, ICODES ICODES)
- file behprm.f
Functions
- subroutine behprm(VMAX VMAX, D D, H H, BARK BARK, LCONE LCONE)
- file behre.f
Functions
- real function behre(L1 L1, L2 L2)
- file bftopk.f
Functions
- subroutine bftopk(ISPC ISPC, D D, H H, BBFV BBFV, LCONE LCONE, BARK BARK, VMAX VMAX, ITHT ITHT)
- file bfvol.f
Functions
- subroutine bfvol(ISPC ISPC, D D, H H, D2H D2H, BBFV BBFV, TKILL TKILL, LCONE LCONE, BARK BARK, VMAX VMAX, ITHT ITHT, BTKFLG BTKFLG)
- file blkdat.f
- file blmtap.f
Functions
- subroutine blmtap(DBHOB DBHOB, HTTOT HTTOT, TLH TLH, HTUP HTUP, D17 D17, TOP TOP, XLEN XLEN, D2 D2, Profile Profile)
- subroutine behtap(VOLEQ VOLEQ, DBHOB DBHOB, HTTOT HTTOT, TLH TLH, HTUP HTUP, FCLASS FCLASS, TOP TOP, D2 D2)
- file blmvol.f
Functions
- subroutine blmvol(VOLEQ VOLEQ, MTOPP MTOPP, HTTOT HTTOT, HT1PRD HT1PRD, DBHOB DBHOB, HTTYPE HTTYPE, FCLASS FCLASS, VOL VOL, LOGDIA LOGDIA, LOGLEN LOGLEN, LOGVOL LOGVOL, TLOGS TLOGS, NOLOGP NOLOGP, NOLOGS NOLOGS, BFPFLG BFPFLG, CUPFLG CUPFLG, ERRFLAG ERRFLAG)
- subroutine blmtcub(PROFILE PROFILE, DBHOB DBHOB, TTH TTH, TLH TLH, D17 D17, TOP TOP, HTLOG HTLOG, TCVOL TCVOL)
- subroutine blmmlen(PROFILE PROFILE, TTH TTH, TLH TLH, DBHOB DBHOB, D17 D17, STUMP STUMP, TOP TOP, HTLOG HTLOG, LMERCH LMERCH)
- subroutine blmgdib(PROFILE PROFILE, TOP TOP, TTH TTH, TLH TLH, DBHOB DBHOB, DBHIB DBHIB, D17 D17, STUMP STUMP, TRIM TRIM, NUMSEG NUMSEG, HTLOG HTLOG, LOGLEN LOGLEN, LOGDIA LOGDIA)
- subroutine double_bark(TAPEQU TAPEQU, DBHOB DBHOB, DBHIB DBHIB)
- subroutine blmtapeq(VOLEQ VOLEQ, PROFILE PROFILE, TAPEQU TAPEQU)
- file bratio.f
Functions
- real function bratio(IS IS, D D, H H)
- file brk_up.f
Functions
- subroutine brk_up(JSP JSP, GEOSUB GEOSUB, DBHOB DBHOB, THT THT, DBTBH DBTBH, HTUP HTUP, DIB DIB, DOB DOB, DBT DBT)
- file bur_bov.c
- #include <stdlib.h>#include <stdio.h>#include <math.h>#include <string.h>#include “fof_util.h”#include “bur_bov.h”#include “bur_brn.h”
Defines
- eC_BOV
Functions
- int BOV_Set_TimHea(double time, double fi)
- int BOV_Get_TimHea(int * ai_time, float * af_fi, char cr_Mess[])
- int BOV_GetRemAmt(float * af_RemAmt, char cr_BOV_Cat[])
- float BOV_GetRem3(char cr_BOV_Cat[], int i_3InId)
- int BOV_PutRemAmt(float f_RemAmt, int iX, float f_TimBurOut)
- int BOV_Entry(char cr_BOV_Cat[], int i_3InId)
- int BOV_Last()
- void BOV_Init()
- file bur_bov.h
Defines
- e_BOV_Litter
- e_BOV_DW1
- e_BOV_DW10
- e_BOV_DW100
- e_BOV_DW1kSnd
- e_BOV_DW1kRot
Functions
- int BOV_GetRemAmt(float * af_RemAmt, char cr_Cat[])
- int BOV_PutRemAmt(float f_RemAmt, int iX, float f_TimBurOut)
- int BOV_Entry(char cr_BOV_Cat[], int i_3InId)
- void BOV_Init(void)
- int BOV_Last(void)
- void BOV_SetIgnite(char cr_YN[])
- int BOV_GetIgnite(void)
- int BOV_Get_TimHea(int * ai_time, float * af_fi, char cr_Mess[])
- int BOV_Set_TimHea(double time, double fi)
- float BOV_GetRem3(char cr_BOV_Cat[], int i_3InId)
- file bur_brn.c
- #include <stdlib.h>#include <stdio.h>#include <math.h>#include <string.h>#include “fof_gen.h”#include “bur_brn.h”#include “fof_util.h”#include “fof_sgv.h”#include “bur_bov.h”#include “fof_lem.h”#include “win_ccwf.h”
Defines
- eC_Line
Functions
- double Min(double a, double b)
- double Max(double a, double b)
- int _ChkLimM(double d, double low, double hi)
- int BRN_Run(char cr_LoadFN[], char cr_EmisFN[], float f_DufConPerCent, float f_ConHSFB_TPA, char cr_ErrMes[])
- int Start(double dt, long now, long * ncalls, double * ad_Con)
- void Step(double dt, double tin, double fid, long * ncalls, double * ad_Con)
- int Summary(char cr_LoadFN[], char cr_ErrMes[])
- void BRN_Init()
- int BRN_CheckData(char cr_ErrMes[])
- void BRN_SetFireDat(long NumIter, double Fi, double Ti, double U, double D, double Tamb, double R0, double Dr, double Dt, double Wdf, double Dfm)
- long loc(long k, long l)
- long Nint(double input)
- double ff(double x, double tpfi, double tpig)
- double TIgnite(double tpdr, double tpig, double tpfi, double cond, double chtd, double fmof, double dend, double hbar)
- void Arrays()
- double TempF(double q, double r)
- void Sorter()
- void OverLaps()
- void HeatExchange(double dia, double tf, double ts, double * hfm, double * hbar, double cond, double * en)
- double FireIntensity(double * ad_pcSmoCon)
- double DryTime(double enu, double theta)
- void Heat_Heading(FILE * fh)
- void DuffBurn(double wdf, double dfm, double * dfi, double * tdf, float f_DufConPerCent, double * ad_Duf_CPTS)
- double Get_Cons(double d_old, double d_new)
- double Duff_CPTS(double * ad_Duf_ConTot, double d_Duf_CPT, double d_timeSec)
- int ES_Calc(d_ES * a_ES, double d_WooLit, double d_Duff, double d_HSFB, double d_pcSmo, double d_time)
- float ES_PM10F()
- float ES_PM25F()
- float ES_CH4F()
- float ES_COF()
- float ES_CO2F()
- float ES_NOXF()
- float ES_SOXF()
- float ES_PM10S()
- float ES_PM25S()
- float ES_CH4S()
- float ES_COS()
- float ES_CO2S()
- float ES_NOXS()
- float ES_SOXS()
- float ES_FlaDur()
- float ES_SmoDur()
- float ES_FlaCon()
- float ES_SmoCon()
- void ES_Init(d_ES * a_ES)
- int EFM_Open(char cr_FN[])
- void EFM_Close()
- int EFM_Write(d_ES * a_ES, double d_Time, double d_FirInt)
- double pow2(double input)
- double func(double h, double theta)
- float BRN_Intensity(float f_Con)
- void Save_SGV(d_ES * a_ES, double d_time, double d_FirInt)
- int Bur_ChkArgs(char cr_Line[])
- void Bur_Error(char cr_Err[], char cr1[], char cr_Line[])
- int BRN_ChkSwi(char cr[])
- int CFF_ChkAll(d_CFF * a_CFF)
- void CFF_Init(d_CFF * a_CFF)
- void bstrupr(char cr[])
- int BRN_SetFuel(int * aiX, char cr_SR[], float f_Load, float f_Moist, float f_Sigma)
- int BRN_ReadInFil(char cr_FN[], char cr_Err[])
Variables
- long ntimes
- long number
- double fi
- double ti
- double u
- double d
- double tamb
- double ak
- double r0
- double dr
- double dt
- double wdf
- double dfm
- double wd0
- double wg0
- double wdry[MAXNO]
- double ash[MAXNO]
- double htval[MAXNO]
- double fmois[MAXNO]
- double dendry[MAXNO]
- double sigma[MAXNO]
- double cheat[MAXNO]
- double condry[MAXNO]
- double alfa[MAXNO]
- double tpig[MAXNO]
- double tchar[MAXNO]
- double flit[MAXNO]
- double fout[MAXNO]
- double work[MAXNO]
- long key[MAXNO]
- double elam[MAXNO][MAXNO]
- double alone[MAXNO]
- double area[MAXNO]
- double fint[MAXNO]
- double xmat[MAXKL]
- double tdry[MAXKL]
- double tign[MAXKL]
- double tout[MAXKL]
- double wo[MAXKL]
- double wodot[MAXKL]
- double diam[MAXKL]
- double ddot[MAXKL]
- double qcum[MAXKL]
- double tcum[MAXKL]
- double acum[MAXKL]
- double qdot[MAXKL][MXSTEP]
- const double ch2o
- const double tpdry
- double gd_Fudge1
- double gd_Fudge2
- d_ES s_ES
- FILE * fh_EFM
- file bur_brn.h
Defines
- e_BurEqu
- e_ComEffFla
- e_ComEffSmo
- e_tpig_adj
- e_tchar_adj
- e_cht1
- e_cht2
- e_tig1
- e_tig2
- e_tch1
- e_tch2
- e_wdf1
- e_wdf2
- e_dfm1
- e_dfm2
- e_fms1
- e_fms2
- e_small
- e_big
- e_MAX_TIMES
- e_INTENSITY
- e_IG_TIME
- e_WINDSPEED
- e_DEPTH
- e_AMBIENT_TEMP
- e_R0
- e_DR
- e_TIMESTEP
- e_SURat_Lit
- e_SURat_DW1
- e_SURat_DW10
- e_SURat_DW100
- e_SURat_DWk_3_6
- e_SURat_DWk_6_9
- e_SURat_DWk_9_20
- e_SURat_DWk_20
- e_SoundFmt
- e_RottenFmt
- e_htval
- e_Snd_dendry
- e_Rot_dendry
- e_cheat
- e_condry
- e_Snd_tpig
- e_Rot_tpig
- e_tchar
- e_ash
- false
- true
- bool
- MAXNO
- MAXTYPES
- MAXKL
- MXSTEP
Functions
- void CFF_Init(d_CFF * a_CFF)
- int CFF_ChkAll(d_CFF * a_CFF)
- int BRN_Run_UIF(char cr_InFN[], char cr_Err[], float f_DufConPerCent, char cr_LoadFN[], char cr_HeatFN[], float f_BrnCon)
- int BRN_Run(char cr_LoadFN[], char cr_HeatFN[], float f_DufConPerCent, float f_BrnCon, char cr_ErrMes[])
- void BRN_Init(void)
- int BRN_ReadInFil(char cr_FN[], char cr_Err[])
- int BRN_CheckData(char cr_ErrMes[])
- void BRN_SetFireDat(long NumIter, double Fi, double Ti, double U, double D, double Tamb, double R0, double Dr, double Dt, double Wdf, double Dfm)
- int BRN_ChkSwi(char cr[])
- float BRN_Intensity(float f_Con)
- int BRN_SetFuel(int * aiX, char cr_SR[], float f_Load, float f_Moist, float f_Sigma)
- int BurnupNone(char cr_HeatFN[], float f_Con)
- void Heat_Heading(FILE * fh)
- void Arrays(void)
- long loc(long k, long l)
- double func(double h, double theta)
- double ff(double x, double tpfi, double tpig)
- int Start(double tis, long now, long * ncalls, double * ad_Con)
- void OverLaps(void)
- double FireIntensity(double * ad_pcSmoCon)
- double DryTime(double enu, double theta)
- int Stash(char * HistFile, double tis, long now)
- void Sorter(void)
- double TIgnite(double tpdr, double tpig, double tpfi, double cond, double chtd, double fmof, double dend, double hbar)
- double TempF(double q, double r)
- void HeatExchange(double dia, double tf, double ts, double * hfm, double * hbar, double cond, double * en)
- void DuffBurn(double wdf, double dfm, double * dfi, double * tdf, float f_DufConPerCent, double * ad_Duf_CPTS)
- void Step(double dt, double tin, double fid, long * ncalls, double * ad_Con)
- int Summary(char * OutFile, char cr_ErrMes[])
- long Nint(double input)
- void CalculateEmissions(int i_Fst)
- double pow2(double input)
- int ES_Calc(d_ES * a_ES, double d_WooLit, double d_Duff, double d_HSFB, double d_pcSmo, double d_time)
- void ES_Init(d_ES * a_ES)
- float ES_FlaDur(void)
- float ES_SmoDur(void)
- float ES_PM25F(void)
- float ES_PM10F(void)
- float ES_CH4F(void)
- float ES_COF(void)
- float ES_CO2F(void)
- float ES_NOXF(void)
- float ES_SOXF(void)
- float ES_PM25S(void)
- float ES_PM10S(void)
- float ES_CH4S(void)
- float ES_COS(void)
- float ES_CO2S(void)
- float ES_NOXS(void)
- float ES_SOXS(void)
- float ES_FlaCon(void)
- float ES_SmoCon(void)
- void Save_SGV(d_ES * a_ES, double d_time, double d_FirInt)
- double Get_Cons(double d_old, double d_new)
- double Duff_CPTS(double * ad_Duf_Tot, double d_Duf_Sec, double d_NumSec)
- int Bur_ChkArgs(char cr_Line[])
- void Bur_Error(char cr_Err[], char cr1[], char cr_Line[])
- int EFM_Write(d_ES * a_ES, double d_Time, double d_FirInt)
- int EFM_Open(char cr_FN[])
- void EFM_Close(void)
- void Bur_RemoveTmp(void)
- void Bur_SumDivErr(void)
- void bstrupr(char cr[])
- file CALCOM.F77
Functions
Variables
- file CALDEN.F77
- file carbon_data.f90
- file ccfcal.f
- file cftopk.f
Functions
- subroutine cftopk(ISPC ISPC, D D, H H, VN VN, VM VM, VMAX VMAX, LCONE LCONE, BARK BARK, ITHT ITHT)
- file cfvol.f
Functions
- subroutine cfvol(ISPC ISPC, D D, H H, D2H D2H, VN VN, VM VM, VMAX VMAX, TKILL TKILL, LCONE LCONE, BARK BARK, ITHT ITHT, CTKFLG CTKFLG)
- file ch2num.f
Functions
- subroutine ch2num(C2 C2, ICYC ICYC)
- file ch4bsr.f
Functions
- subroutine ch4bsr(N N, A A, IORD IORD, F F, IP IP)
- file ch4srt.f
Functions
- subroutine ch4srt(N N, A A, INDEX INDEX, LSEQ LSEQ)
- file chget.f
Functions
- subroutine chget()
- file chput.f
Functions
- subroutine chput()
- file clauestb.f
Functions
- subroutine clauestb()
- file clgmult.f
Functions
- subroutine clgmult(TREEMULT TREEMULT)
- file CLIMATE.F77
Functions
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR ATTR_LABELS(MXCLATTRS)
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL SPCALIB COMMON CLIMATE CLGROWMULT(MAXSP)
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL SPCALIB COMMON CLIMATE INDXSPECIES(MAXSP)
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL SPCALIB COMMON CLIMATE CLMRTMLT1(MAXSP)
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL SPCALIB COMMON CLIMATE CLMRTMLT2(MAXSP)
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL SPCALIB COMMON CLIMATE YEARS(MXCLYEARS)
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL SPCALIB COMMON CLIMATE ATTRS(MXCLYEARS, MXCLATTRS)
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL SPCALIB COMMON CLIMATE POTESTAB(MAXSP)
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL SPCALIB COMMON CLIMATE SPMORT1(MAXSP)
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL SPCALIB COMMON CLIMATE SPMORT2(MAXSP)
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL SPCALIB COMMON CLIMATE SPGMULT(MAXSP)
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL SPCALIB COMMON CLIMATE SPSITGM(MAXSP)
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL SPCALIB COMMON CLIMATE SPVIAB(MAXSP)
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL SPCALIB COMMON CLIMATE SPCALIB(MAXSP)
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL SPCALIB COMMON CLIMATE IDEmapdd5 C C DEFINITIONS OF VARIABLES IN CLIMATE COMMON C USED FOR REPORTING ONLY C C USED FOR REPORTING ONLY(SPECIES AVERAGE OVER TREES)
Variables
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR CLIMATE_NAME
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER NATTRS
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER NYEARS
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER YEARS
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER INDXSPECIES
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IXMTCM
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IXMAT
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IXMAP
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IXMTWM
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IXGSP
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IXGSDD5
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IXD100
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IXMMIN
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IXDD0
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IXDD5
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IXPSITE
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER NESPECIES
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER JCLREF
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER CLHABINDX
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmtwm
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmtcm
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEdd5
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEsdi
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEdd0
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL ATTRS
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL CLMRTMLT1
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL CLMRTMLT2
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL AESNTREES
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL AESTOCK
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL CLGROWMULT
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL CLMXDENMULT
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL SPMORT1
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL SPMORT2
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL SPGMULT
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL SPVIAB
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL SPSITGM
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL POTESTAB
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL MXDENMLT
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL SPCALIB COMMON CLIMATE LCLIMATE
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL SPCALIB COMMON CLIMATE LAESTB
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL SPCALIB COMMON CLIMATE IDEmapdd5 C C DEFINITIONS OF VARIABLES IN CLIMATE COMMON BLOCK
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL SPCALIB COMMON CLIMATE IDEmapdd5 C C DEFINITIONS OF VARIABLES IN CLIMATE COMMON ROWS
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL SPCALIB COMMON CLIMATE IDEmapdd5 C C DEFINITIONS OF VARIABLES IN CLIMATE COMMON COLS
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL SPCALIB COMMON CLIMATE IDEmapdd5 C C DEFINITIONS OF VARIABLES IN CLIMATE COMMON IDEmapdd5
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL SPCALIB COMMON CLIMATE IDEmapdd5 C C DEFINITIONS OF VARIABLES IN CLIMATE COMMON C USED FOR REPORTING ONLY C C USED FOR REPORTING SEE CLMORTS C USED IN OUTPUT C IF C THE REPORT WILL NOT BE OUTPUT
- CODE SEGMENT CLIMATE C C $Id C INTEGER MXCLYEARS CHARACTER *CLIMATE_NAME CHARACTER *ATTR_LABELS COMMON CLIMCHR LAESTB INTEGER IDEmapdd5 REAL SPCALIB COMMON CLIMATE IDEmapdd5 C C DEFINITIONS OF VARIABLES IN CLIMATE COMMON C USED FOR REPORTING ONLY C C USED FOR REPORTING SEE CLMORTS C USED IN OUTPUT C IF C THE REPORT WILL NOT BE IF
- file clin.f
Functions
- subroutine clin(DEBUG DEBUG, LKECHO LKECHO)
- file clinit.f
Functions
- subroutine clinit()
- file clkcoef_mod.f
- file clmaxden.f
Functions
- subroutine clmaxden(SDIDEF SDIDEF, XMAX XMAX)
- file clmorts.f
Functions
- subroutine clmorts()
- file clputget.f
- file cmdline.f
Functions
- subroutine fvssetcmdline(theCmdLine theCmdLine, lenCL lenCL, IRTNCD IRTNCD)
- subroutine fvsgetstoppointcodes(spptcd spptcd, spptyr spptyr)
- subroutine fvssetstoppointcodes(spptcd spptcd, spptyr spptyr)
- subroutine fvsgetrestartcode(restrtcd restrtcd)
- subroutine fvsrestart(restrtcd restrtcd)
- subroutine fvsrestartlaststand(restrtcd restrtcd)
- subroutine fvsgetkeywordfilename(fn fn, mxch mxch, nch nch)
- subroutine fvssetrtncode(rtnCode rtnCode)
- subroutine fvsgetrtncode(rtnCode rtnCode)
- subroutine fvsstoppoint(LOCODE LOCODE, ISTOPDONE ISTOPDONE)
- file cmrang.f
Functions
- real function cmrang(LEN LEN, INDX INDX, ARR ARR)
- file COEFFS.F77
Functions
- C IORDER IS LOADED IN **INITRE **OTHER VARIABLES ARE LOADED IN C **RCON **ARRAYS ARE SUBSCRIPTED BY SPECIES C C C AHAT AN ESTIMATE OF THE BEHRE TAPER CURVE PARAMETER A C ATTEN NUMBER OF OBSERVATIONS ON WHICH THE DIAMETER C INCREMENT MODEL FOR EACH SPECIES IS BASED THIS C IS USED TO WEIGHT THE CALCULATED CORRECTION TERM C BFLA0 CONSTANT TERMS FOR BOARD FOOT FORM DEFECT CORRECTION C EQUATIONS C BFLA1 COEFFICIENTS FOR LINEAR TERMS IN BOARD FOOT FORM C DEFECT CORRECTION EQUATIONS C BHAT AN ESTIMATE OF THE BEHRE TAPER CURVE PARAMETER B C BJTHET AUTO REGRESSIVE PARM IN BOX JENKINS ARMA(1, 1)
Variables
- CODE SEGMENT COEFFS C C **COEFFS DATE OF LAST SMCON C C DEFINITIONS OF VARIABLES IN COEFFS COMMON BLOCK
- C COR
- C IORDER IS LOADED IN **INITRE **OTHER VARIABLES ARE LOADED IN C **RCON **ARRAYS ARE SUBSCRIPTED BY SPECIES C C C AHAT AN ESTIMATE OF THE BEHRE TAPER CURVE PARAMETER A C ATTEN NUMBER OF OBSERVATIONS ON WHICH THE DIAMETER C INCREMENT MODEL FOR EACH SPECIES IS BASED THIS C IS USED TO WEIGHT THE CALCULATED CORRECTION TERM C BFLA0 CONSTANT TERMS FOR BOARD FOOT FORM DEFECT CORRECTION C EQUATIONS C BFLA1 COEFFICIENTS FOR LINEAR TERMS IN BOARD FOOT FORM C DEFECT CORRECTION EQUATIONS C BHAT AN ESTIMATE OF THE BEHRE TAPER CURVE PARAMETER B C BJTHET AUTO REGRESSIVE PARM IN BOX JENKINS SLOPE
- C IORDER IS LOADED IN **INITRE **OTHER VARIABLES ARE LOADED IN C **RCON **ARRAYS ARE SUBSCRIPTED BY SPECIES C C C AHAT AN ESTIMATE OF THE BEHRE TAPER CURVE PARAMETER A C ATTEN NUMBER OF OBSERVATIONS ON WHICH THE DIAMETER C INCREMENT MODEL FOR EACH SPECIES IS BASED THIS C IS USED TO WEIGHT THE CALCULATED CORRECTION TERM C BFLA0 CONSTANT TERMS FOR BOARD FOOT FORM DEFECT CORRECTION C EQUATIONS C BFLA1 COEFFICIENTS FOR LINEAR TERMS IN BOARD FOOT FORM C DEFECT CORRECTION EQUATIONS C BHAT AN ESTIMATE OF THE BEHRE TAPER CURVE PARAMETER B C BJTHET AUTO REGRESSIVE PARM IN BOX JENKINS ASPECT
- C IORDER IS LOADED IN **INITRE **OTHER VARIABLES ARE LOADED IN C **RCON **ARRAYS ARE SUBSCRIPTED BY SPECIES C C C AHAT AN ESTIMATE OF THE BEHRE TAPER CURVE PARAMETER A C ATTEN NUMBER OF OBSERVATIONS ON WHICH THE DIAMETER C INCREMENT MODEL FOR EACH SPECIES IS BASED THIS C IS USED TO WEIGHT THE CALCULATED CORRECTION TERM C BFLA0 CONSTANT TERMS FOR BOARD FOOT FORM DEFECT CORRECTION C EQUATIONS C BFLA1 COEFFICIENTS FOR LINEAR TERMS IN BOARD FOOT FORM C DEFECT CORRECTION EQUATIONS C BHAT AN ESTIMATE OF THE BEHRE TAPER CURVE PARAMETER B C BJTHET AUTO REGRESSIVE PARM IN BOX JENKINS AND ELEVATION EFFECTS C DIFH ATTUNATION VECTOR FOR REGENT HEIGHT GROWTH MODEL C DGCON CONSTANT TERMS FOR DIAMETER GROWTH MODELS COMBINE C HABITAT TYPE
- C IORDER IS LOADED IN **INITRE **OTHER VARIABLES ARE LOADED IN C **RCON **ARRAYS ARE SUBSCRIPTED BY SPECIES C C C AHAT AN ESTIMATE OF THE BEHRE TAPER CURVE PARAMETER A C ATTEN NUMBER OF OBSERVATIONS ON WHICH THE DIAMETER C INCREMENT MODEL FOR EACH SPECIES IS BASED THIS C IS USED TO WEIGHT THE CALCULATED CORRECTION TERM C BFLA0 CONSTANT TERMS FOR BOARD FOOT FORM DEFECT CORRECTION C EQUATIONS C BFLA1 COEFFICIENTS FOR LINEAR TERMS IN BOARD FOOT FORM C DEFECT CORRECTION EQUATIONS C BHAT AN ESTIMATE OF THE BEHRE TAPER CURVE PARAMETER B C BJTHET AUTO REGRESSIVE PARM IN BOX JENKINS AND ELEVATION EFFECTS C DIFH ATTUNATION VECTOR FOR REGENT HEIGHT GROWTH MODEL C DGCON CONSTANT TERMS FOR DIAMETER GROWTH MODELS COMBINE C HABITAT AND ELEVATION EFFECTS C HDGCOF COEFFICIENTS FOR DIAMETER GROWTH TERMS IN HEIGHT C INCREMENT MODELS DEPENDENT ON HABITAT TYPE C H2COF COEFFICIENT FOR HEIGHT SQUARED TERM IN HEIGHT C INCREMENT MODEL DEPENDENT ON HABITAT TYPE C HTCON CONSTANT TERMS IN HEIGHT GROWTH MODEL DEPENDENT C ON HABITAT TYPE C RDH COEFFICIENTS FOR HEIGHT TERMS IN SMALL TREE HEIGHT C DIAMETER EQUATIONS C RDSC CONSTANT TERMS IN SMALL TREE HEIGHT DIAMETER EQUATIONS C RHCON CONSTANT TERMS FOR SMALL TREE HEIGHT GROWTH EQUATIONS C COMBINE HABITAT AND ELEVATION C EFFECTS C IORDER THINNING SELECTION PRIORITIES DEFAULT VALUES ARE C HABITAT DEPENDENT
- C IORDER IS LOADED IN **INITRE **OTHER VARIABLES ARE LOADED IN C **RCON **ARRAYS ARE SUBSCRIPTED BY SPECIES C C C AHAT AN ESTIMATE OF THE BEHRE TAPER CURVE PARAMETER A C ATTEN NUMBER OF OBSERVATIONS ON WHICH THE DIAMETER C INCREMENT MODEL FOR EACH SPECIES IS BASED THIS C IS USED TO WEIGHT THE CALCULATED CORRECTION TERM C BFLA0 CONSTANT TERMS FOR BOARD FOOT FORM DEFECT CORRECTION C EQUATIONS C BFLA1 COEFFICIENTS FOR LINEAR TERMS IN BOARD FOOT FORM C DEFECT CORRECTION EQUATIONS C BHAT AN ESTIMATE OF THE BEHRE TAPER CURVE PARAMETER B C BJTHET AUTO REGRESSIVE PARM IN BOX JENKINS AND ELEVATION EFFECTS C DIFH ATTUNATION VECTOR FOR REGENT HEIGHT GROWTH MODEL C DGCON CONSTANT TERMS FOR DIAMETER GROWTH MODELS COMBINE C HABITAT AND ELEVATION EFFECTS C HDGCOF COEFFICIENTS FOR DIAMETER GROWTH TERMS IN HEIGHT C INCREMENT MODELS DEPENDENT ON HABITAT TYPE C H2COF COEFFICIENT FOR HEIGHT SQUARED TERM IN HEIGHT C INCREMENT MODEL DEPENDENT ON HABITAT TYPE C HTCON CONSTANT TERMS IN HEIGHT GROWTH MODEL DEPENDENT C ON HABITAT TYPE C RDH COEFFICIENTS FOR HEIGHT TERMS IN SMALL TREE HEIGHT C DIAMETER EQUATIONS C RDSC CONSTANT TERMS IN SMALL TREE HEIGHT DIAMETER EQUATIONS C RHCON CONSTANT TERMS FOR SMALL TREE HEIGHT GROWTH EQUATIONS C COMBINE HABITAT AND ELEVATION C EFFECTS C IORDER THINNING SELECTION PRIORITIES DEFAULT VALUES ARE C HABITAT BUT CAN BE REPLACED BY KEYWORD C CONTROL DEFINED IN **INITRE **C BKRAT RATIO OF DBH INSIDE BARK TO BAH OUTSIDE BARK BY C SPECIES INITIALIZED IN BLKDATA C SIGMA POOLED VARIANCE ESTIMATE FOR THE DIAMETER GROWTH C MODEL COMPUTED IN DGDRIV DURING CALIBRATION C FU MULTIPLIER FOR ACCELERATED DIAMETER GROWTH ESTIMATE C WHEN RECORD TRIPLING COMPUTED BY SPECIES IN DGDRIV C DURING CALIBRATION C FL MULTIPLIER FOR DECELERATED DIAMETER GROWTH ESTIMATE C WHEN RECORD TRIPLING COMPUTED BY SPECIES IN DGDRIV C DURING RECORD CALIBRATION C FM MULTIPLIER MOR MIDDLE DIAMETER GROWTH ESTIMATE WHEN C RECORD TRIPLING COMPUTED BY SPECIES IN DGDRIV DURING C CALIBRATION C WCI USED INITIALLY TO STORE BAYESIAN GROWTH SAMPLE TREE C WEIGHTS FOR DIAMETER GROWTH MODEL CALIBRATION THERE C AFTER STORED ASYMPTOTE FOR CORRECTION TERM ATTENTUATION C COMPUTED BY SPECIES IN FIRST CYCLE IN DGDRIV C C CCF COEFFICIENTS ARE LOADED IN RCON C CCF COEFFICIENTS FOR TREES THAT ARE GREATER THAN IN DBH
- C IORDER IS LOADED IN **INITRE **OTHER VARIABLES ARE LOADED IN C **RCON **ARRAYS ARE SUBSCRIPTED BY SPECIES C C C AHAT AN ESTIMATE OF THE BEHRE TAPER CURVE PARAMETER A C ATTEN NUMBER OF OBSERVATIONS ON WHICH THE DIAMETER C INCREMENT MODEL FOR EACH SPECIES IS BASED THIS C IS USED TO WEIGHT THE CALCULATED CORRECTION TERM C BFLA0 CONSTANT TERMS FOR BOARD FOOT FORM DEFECT CORRECTION C EQUATIONS C BFLA1 COEFFICIENTS FOR LINEAR TERMS IN BOARD FOOT FORM C DEFECT CORRECTION EQUATIONS C BHAT AN ESTIMATE OF THE BEHRE TAPER CURVE PARAMETER B C BJTHET AUTO REGRESSIVE PARM IN BOX JENKINS AND ELEVATION EFFECTS C DIFH ATTUNATION VECTOR FOR REGENT HEIGHT GROWTH MODEL C DGCON CONSTANT TERMS FOR DIAMETER GROWTH MODELS COMBINE C HABITAT AND ELEVATION EFFECTS C HDGCOF COEFFICIENTS FOR DIAMETER GROWTH TERMS IN HEIGHT C INCREMENT MODELS DEPENDENT ON HABITAT TYPE C H2COF COEFFICIENT FOR HEIGHT SQUARED TERM IN HEIGHT C INCREMENT MODEL DEPENDENT ON HABITAT TYPE C HTCON CONSTANT TERMS IN HEIGHT GROWTH MODEL DEPENDENT C ON HABITAT TYPE C RDH COEFFICIENTS FOR HEIGHT TERMS IN SMALL TREE HEIGHT C DIAMETER EQUATIONS C RDSC CONSTANT TERMS IN SMALL TREE HEIGHT DIAMETER EQUATIONS C RHCON CONSTANT TERMS FOR SMALL TREE HEIGHT GROWTH EQUATIONS C COMBINE HABITAT AND ELEVATION C EFFECTS C IORDER THINNING SELECTION PRIORITIES DEFAULT VALUES ARE C HABITAT BUT CAN BE REPLACED BY KEYWORD C CONTROL DEFINED IN **INITRE **C BKRAT RATIO OF DBH INSIDE BARK TO BAH OUTSIDE BARK BY C SPECIES INITIALIZED IN BLKDATA C SIGMA POOLED VARIANCE ESTIMATE FOR THE DIAMETER GROWTH C MODEL COMPUTED IN DGDRIV DURING CALIBRATION C FU MULTIPLIER FOR ACCELERATED DIAMETER GROWTH ESTIMATE C WHEN RECORD TRIPLING COMPUTED BY SPECIES IN DGDRIV C DURING CALIBRATION C FL MULTIPLIER FOR DECELERATED DIAMETER GROWTH ESTIMATE C WHEN RECORD TRIPLING COMPUTED BY SPECIES IN DGDRIV C DURING RECORD CALIBRATION C FM MULTIPLIER MOR MIDDLE DIAMETER GROWTH ESTIMATE WHEN C RECORD TRIPLING COMPUTED BY SPECIES IN DGDRIV DURING C CALIBRATION C WCI USED INITIALLY TO STORE BAYESIAN GROWTH SAMPLE TREE C WEIGHTS FOR DIAMETER GROWTH MODEL CALIBRATION THERE C AFTER STORED ASYMPTOTE FOR CORRECTION TERM ATTENTUATION C COMPUTED BY SPECIES IN FIRST CYCLE IN DGDRIV C C CCF COEFFICIENTS ARE LOADED IN RCON C CCF COEFFICIENTS FOR TREES THAT ARE GREATER THAN IN C SUBSCRIPTED BY SPECIES C C RD2 COEFFICIENT FOR SUM OF DIAMETERS TERM IN CROWN C COMPETITION FACTOR EQUATION
- file coeffs_mod.f90
- file comcup.f90
Functions
- subroutine comcup()
- file comp.f
Functions
- subroutine comp(CMP CMP, ICMP ICMP, ATTR ATTR)
- file comprs.f
Functions
- subroutine comprs(NCLAS NCLAS, PN1 PN1)
- file CONTRL.F77
Functions
- CAN BE RESET BY C KEYWORD C DBHMIN CARRIES MIN TOP DIAMETERS FOR MERCHANTABLE CUBIC VOL C EQUATIONS BY SPECIES DEFAULTED TO IN FOR C AND IN FOR ALL OTHER SP IN GRINIT CAN BE RESET BY C KEYWORD C DGSD BOUNDS OF THE VARIANCE ABOUT PREDICTED DIAMETER C GROWTH IN NUMBER OF STA DEVIATIONS SET IN **INITRE **C EFF CUTTING EFFECTIVENESS(MAXIMUM PROPORTION OF A TREE C RECORD REMOVED IN ANY THINNING)
- INDECATING THAT C NO ADDFILE WAS SPECIFIED THEN USED TO SIGNAL DISPLY THAT C PROJECTION IS OVER USED TO PASS THE DIAMETER C THE GROWTH MEASUREMENT PERIOD FROM **DGDRIV **C TO THE TUSSOCK AND MOUNTAIN PINE BEETLE ROUTINES C ICUT ARRAY CONTAINING CUTTING ALGORITHM SELECTIONS CODED C AS ABOVE KEYWORD CONTROLLED C ICYC INDEX TO CURRENT CYCLE VALUE SET IN **MAIN **C IDG INDEX TO METHOD BY WHICH INPUT DIAMETER GROWTH C WAS THE SUBSCRIPTS IN THE ARRAY C INS WILL BE RELOADED IN THE NEXT CALL TO **DIST **C INS SUBSCRIPTS FOR DISPLAYED TREE RECORDS SET IN C CALL TO **DIST **WHEN IFST IS C IREAD LOGICAL UNIT NUMBER FOR KEYWORD INPUT SET IN C **BLOCK DATA **C IREC1 NUMBER OF PROJECTABLE RECORDS INPUT CALCULATED IN C **INTREE **C IREC2(1351- IREC2)
- INDECATING THAT C NO ADDFILE WAS SPECIFIED THEN USED TO SIGNAL DISPLY THAT C PROJECTION IS OVER USED TO PASS THE DIAMETER C THE GROWTH MEASUREMENT PERIOD FROM **DGDRIV **C TO THE TUSSOCK AND MOUNTAIN PINE BEETLE ROUTINES C ICUT ARRAY CONTAINING CUTTING ALGORITHM SELECTIONS CODED C AS ABOVE KEYWORD CONTROLLED C ICYC INDEX TO CURRENT CYCLE VALUE SET IN **MAIN **C IDG INDEX TO METHOD BY WHICH INPUT DIAMETER GROWTH C WAS THE SUBSCRIPTS IN THE ARRAY C INS WILL BE RELOADED IN THE NEXT CALL TO **DIST **C INS SUBSCRIPTS FOR DISPLAYED TREE RECORDS SET IN C CALL TO **DIST **WHEN IFST IS C IREAD LOGICAL UNIT NUMBER FOR KEYWORD INPUT SET IN C **BLOCK DATA **C IREC1 NUMBER OF PROJECTABLE RECORDS INPUT CALCULATED IN C **INTREE **C INCLUDING TRIPLES C SET IN **SETUP UPDATED IN **TRIPLE **C IUSED CARRIES ALPHA CODES FOR SPECIES ENCOUNTERED IN C TREE LIST IN ORDER OF OCCURENCE SET IN **INTREE **C IY IY(1)
- INDECATING THAT C NO ADDFILE WAS SPECIFIED THEN USED TO SIGNAL DISPLY THAT C PROJECTION IS OVER USED TO PASS THE DIAMETER C THE GROWTH MEASUREMENT PERIOD FROM **DGDRIV **C TO THE TUSSOCK AND MOUNTAIN PINE BEETLE ROUTINES C ICUT ARRAY CONTAINING CUTTING ALGORITHM SELECTIONS CODED C AS ABOVE KEYWORD CONTROLLED C ICYC INDEX TO CURRENT CYCLE VALUE SET IN **MAIN **C IDG INDEX TO METHOD BY WHICH INPUT DIAMETER GROWTH C WAS THE SUBSCRIPTS IN THE ARRAY C INS WILL BE RELOADED IN THE NEXT CALL TO **DIST **C INS SUBSCRIPTS FOR DISPLAYED TREE RECORDS SET IN C CALL TO **DIST **WHEN IFST IS C IREAD LOGICAL UNIT NUMBER FOR KEYWORD INPUT SET IN C **BLOCK DATA **C IREC1 NUMBER OF PROJECTABLE RECORDS INPUT CALCULATED IN C **INTREE **C INCLUDING TRIPLES C SET IN **SETUP UPDATED IN **TRIPLE **C IUSED CARRIES ALPHA CODES FOR SPECIES ENCOUNTERED IN C TREE LIST IN ORDER OF OCCURENCE SET IN **INTREE **C IY IY(2)
- INDECATING THAT C NO ADDFILE WAS SPECIFIED THEN USED TO SIGNAL DISPLY THAT C PROJECTION IS OVER USED TO PASS THE DIAMETER C THE GROWTH MEASUREMENT PERIOD FROM **DGDRIV **C TO THE TUSSOCK AND MOUNTAIN PINE BEETLE ROUTINES C ICUT ARRAY CONTAINING CUTTING ALGORITHM SELECTIONS CODED C AS ABOVE KEYWORD CONTROLLED C ICYC INDEX TO CURRENT CYCLE VALUE SET IN **MAIN **C IDG INDEX TO METHOD BY WHICH INPUT DIAMETER GROWTH C WAS THE SUBSCRIPTS IN THE ARRAY C INS WILL BE RELOADED IN THE NEXT CALL TO **DIST **C INS SUBSCRIPTS FOR DISPLAYED TREE RECORDS SET IN C CALL TO **DIST **WHEN IFST IS C IREAD LOGICAL UNIT NUMBER FOR KEYWORD INPUT SET IN C **BLOCK DATA **C IREC1 NUMBER OF PROJECTABLE RECORDS INPUT CALCULATED IN C **INTREE **C INCLUDING TRIPLES C SET IN **SETUP UPDATED IN **TRIPLE **C IUSED CARRIES ALPHA CODES FOR SPECIES ENCOUNTERED IN C TREE LIST IN ORDER OF OCCURENCE SET IN **INTREE **C IY C IY(3)
- INDECATING THAT C NO ADDFILE WAS SPECIFIED THEN USED TO SIGNAL DISPLY THAT C PROJECTION IS OVER USED TO PASS THE DIAMETER C THE GROWTH MEASUREMENT PERIOD FROM **DGDRIV **C TO THE TUSSOCK AND MOUNTAIN PINE BEETLE ROUTINES C ICUT ARRAY CONTAINING CUTTING ALGORITHM SELECTIONS CODED C AS ABOVE KEYWORD CONTROLLED C ICYC INDEX TO CURRENT CYCLE VALUE SET IN **MAIN **C IDG INDEX TO METHOD BY WHICH INPUT DIAMETER GROWTH C WAS THE SUBSCRIPTS IN THE ARRAY C INS WILL BE RELOADED IN THE NEXT CALL TO **DIST **C INS SUBSCRIPTS FOR DISPLAYED TREE RECORDS SET IN C CALL TO **DIST **WHEN IFST IS C IREAD LOGICAL UNIT NUMBER FOR KEYWORD INPUT SET IN C **BLOCK DATA **C IREC1 NUMBER OF PROJECTABLE RECORDS INPUT CALCULATED IN C **INTREE **C INCLUDING TRIPLES C SET IN **SETUP UPDATED IN **TRIPLE **C IUSED CARRIES ALPHA CODES FOR SPECIES ENCOUNTERED IN C TREE LIST IN ORDER OF OCCURENCE SET IN **INTREE **C IY C AUTOMATIC THINNING WILL BE INVODED IF NO C OTHER THINNINGS ARE REQUESTED C LBKDEN IF DIAMETERS WILL BE BACK DATED IN DENSE PRIOR C TO CALCULATION OF DENSITY STATISTICS DURING CALIBRATION C LDEBUG INPUT FLAGS THAT CONTROL PRINTING OF DEBUG OUTPUT ON C A CYCLE BY CYCLE BASIS KEYWORD CONTROLLED C LDCOR2 TRUE IF DIAMETER GROWTH CORRECTION TERMS(COR2)
- INITIALLY IN **GRINIT BUT POSSIBLY C CHANGED VIA THE NOHTDREG KEYWORD IN **INITRE **USED C IN CONJUNCTION WITH THE VARIABLE IABFLG CONTAINED IN C THE VARCOM COMMON BLOCK TO CONTROL WHICH HT DBH MODEL C WILL BE USED C C IF FVS WILL USE THE CURTIS ARNEY HT DBH MODEL IN C VARIANTS WHERE IT WAS FIT IF THE VARIANT DOES NOT HAVE C C A FVS WILL USE THE WYKOFF HT DBH C MODEL WITH THE DEFAULT COEFFICIENTS FOR THAT SPECIES C IF LHTDRG IS IABFLG WILL ALWAYS BE C C IF AND FVS WILL USE THE WYKOFF MODEL WITH C COEFFICIENTS CALIBRATED TO THE INPUT DATA C IF AND FVS WILL USE THE C A MODELS IN C VARIANTS THAT HAVE OR THE WYKOFF MODEL WITH THE C DEFAULT COEFFICIENTS IN VARIANTS THAT DON T C C USED IN **CRATET **AND **REGENT **C LFIA LOGICAL VARIABLE WHICH INDICATES INPUT DATA CONTAINS C FIA SPECIES CODES INSTEAD OF ALPHA SPECIES CODES C LFLAG SIGNALS INITRE TO WRITE A HEADING OTHERWISE AVAILABLE C LFIRE SET TO TRUE IN CVCBMS WHEN A SIMFIRE KEYWORD HAS BEEN C USED IN THE CURRENT CYCLE FUNCTIONS LIKE LTHIN C TO SIGNAL USE OF PAST CYCLE RMSQD AND BA IN C COVER MODEL CALCULATIONS ALSO USED IN CCFCAL ROUTINES C LIST LOGICAL ARRAY CONTAINING CYCLE BY CYCLE INSTRUCTIONS C FOR PRINTOUT OF SPECIAL TREE LIST KEYWORD CONTROLLED C LSITE LOGICAL VARIABLE WHICH INDICATES WHETHER SITECOD KEYWORD C HAS BEEN USED C LSTART LOGICAL FLAG WHICH IS TRUE DURING SUMMARIZATION OF C INPUT ALLOWS DUBBING OF MISSING VALUES AND LOADING C OF COEFFICIENT ARRAYS SET AND UPDATED IN **MAIN **C LSTKNT COUNT OF POINTS SAMPLED IN PREVIOUS STAND THIS C VARIABLE IS USED TO ALLOW NON UNIQUE POINT ID S C IN RECORDS FOR A GROUP OF STANDS WHICH ARE C COMBINED AND PROCESSED AS A SINGLE STAND C CALCULATED IN **INTREE **C LSUMRY IF ONE LINE SUMMARY OUTPUT IS PRINTED(OR C PUNCHED)
- INITIALLY IN **GRINIT BUT POSSIBLY C CHANGED VIA THE NOHTDREG KEYWORD IN **INITRE **USED C IN CONJUNCTION WITH THE VARIABLE IABFLG CONTAINED IN C THE VARCOM COMMON BLOCK TO CONTROL WHICH HT DBH MODEL C WILL BE USED C C IF FVS WILL USE THE CURTIS ARNEY HT DBH MODEL IN C VARIANTS WHERE IT WAS FIT IF THE VARIANT DOES NOT HAVE C C A FVS WILL USE THE WYKOFF HT DBH C MODEL WITH THE DEFAULT COEFFICIENTS FOR THAT SPECIES C IF LHTDRG IS IABFLG WILL ALWAYS BE C C IF AND FVS WILL USE THE WYKOFF MODEL WITH C COEFFICIENTS CALIBRATED TO THE INPUT DATA C IF AND FVS WILL USE THE C A MODELS IN C VARIANTS THAT HAVE OR THE WYKOFF MODEL WITH THE C DEFAULT COEFFICIENTS IN VARIANTS THAT DON T C C USED IN **CRATET **AND **REGENT **C LFIA LOGICAL VARIABLE WHICH INDICATES INPUT DATA CONTAINS C FIA SPECIES CODES INSTEAD OF ALPHA SPECIES CODES C LFLAG SIGNALS INITRE TO WRITE A HEADING OTHERWISE AVAILABLE C LFIRE SET TO TRUE IN CVCBMS WHEN A SIMFIRE KEYWORD HAS BEEN C USED IN THE CURRENT CYCLE FUNCTIONS LIKE LTHIN C TO SIGNAL USE OF PAST CYCLE RMSQD AND BA IN C COVER MODEL CALCULATIONS ALSO USED IN CCFCAL ROUTINES C LIST LOGICAL ARRAY CONTAINING CYCLE BY CYCLE INSTRUCTIONS C FOR PRINTOUT OF SPECIAL TREE LIST KEYWORD CONTROLLED C LSITE LOGICAL VARIABLE WHICH INDICATES WHETHER SITECOD KEYWORD C HAS BEEN USED C LSTART LOGICAL FLAG WHICH IS TRUE DURING SUMMARIZATION OF C INPUT ALLOWS DUBBING OF MISSING VALUES AND LOADING C OF COEFFICIENT ARRAYS SET AND UPDATED IN **MAIN **C LSTKNT COUNT OF POINTS SAMPLED IN PREVIOUS STAND THIS C VARIABLE IS USED TO ALLOW NON UNIQUE POINT ID S C IN RECORDS FOR A GROUP OF STANDS WHICH ARE C COMBINED AND PROCESSED AS A SINGLE STAND C CALCULATED IN **INTREE **C LSUMRY IF ONE LINE SUMMARY OUTPUT IS C CAN BE SET FALSE BY KEYWORD C LTRIP IF LTRIP IS RECORDS WILL BE TRIPLED THIS C CYCLE SET TRUE IN **MAIN **IF NOTRIP IS C ICYC IS OR AND ITRN IS OR LESS C MORDAT SET TO TRUE ON FIRST CALL TO **INTREE **THIS C FLAG IS USED TO DETECT GROUPS OF STANDS WHICH C ARE TO BE PROCESSED AS A SINGLE STAND AND IS C ALSO USED TO ASSURE THAT TREE RECORDS ARE READ C(IF PROCESS KEYWORD IS ENCOUNTERED PRIOR TO C TREE RECORD READ, **INTREE **IS AUTOMATICALLY C CALLED AND A WARNING MESSAGE IS PRINTED)
Variables
- CODE SEGMENT CONTRL C C **CONTRL DATE OF LAST LZEIDE INTEGER DBHSDI COMMON CONCHR PTGNAME COMMON CONTRL AUTMAX
- CODE SEGMENT CONTRL C C **CONTRL DATE OF LAST LZEIDE INTEGER DBHSDI COMMON CONCHR PTGNAME COMMON CONTRL INS
- CODE SEGMENT CONTRL C C **CONTRL DATE OF LAST LZEIDE INTEGER DBHSDI COMMON CONCHR PTGNAME COMMON CONTRL IBEGIN
- CODE SEGMENT CONTRL C C **CONTRL DATE OF LAST LZEIDE INTEGER DBHSDI COMMON CONCHR PTGNAME COMMON CONTRL IREF
- CODE SEGMENT CONTRL C C **CONTRL DATE OF LAST LZEIDE INTEGER DBHSDI COMMON CONCHR PTGNAME COMMON CONTRL ISCT
- CODE SEGMENT CONTRL C C **CONTRL DATE OF LAST LZEIDE INTEGER DBHSDI COMMON CONCHR PTGNAME COMMON CONTRL KPTR
- CODE SEGMENT CONTRL C C **CONTRL DATE OF LAST LZEIDE INTEGER DBHSDI COMMON CONCHR PTGNAME COMMON CONTRL IY
- CODE SEGMENT CONTRL C C **CONTRL DATE OF LAST LZEIDE INTEGER DBHSDI COMMON CONCHR PTGNAME COMMON CONTRL KOUNT
- CODE SEGMENT CONTRL C C **CONTRL DATE OF LAST LZEIDE INTEGER DBHSDI COMMON CONCHR PTGNAME COMMON CONTRL & LDGCAL
- CODE SEGMENT CONTRL C C **CONTRL DATE OF LAST LZEIDE INTEGER DBHSDI COMMON CONCHR PTGNAME COMMON CONTRL LHTDRG
- CODE SEGMENT CONTRL C C **CONTRL DATE OF LAST LZEIDE INTEGER DBHSDI COMMON CONCHR PTGNAME COMMON CONTRL LDUBDG
- CODE SEGMENT CONTRL C C **CONTRL DATE OF LAST LZEIDE INTEGER DBHSDI COMMON CONCHR PTGNAME COMMON CONTRL TOPD
- CODE SEGMENT CONTRL C C **CONTRL DATE OF LAST LZEIDE INTEGER DBHSDI COMMON CONCHR PTGNAME COMMON CONTRL DBHMIN
- CODE SEGMENT CONTRL C C **CONTRL DATE OF LAST LZEIDE INTEGER DBHSDI COMMON CONCHR PTGNAME COMMON CONTRL STMP
- CODE SEGMENT CONTRL C C **CONTRL DATE OF LAST LZEIDE INTEGER DBHSDI COMMON CONCHR PTGNAME COMMON CONTRL RCOR2
- CODE SEGMENT CONTRL C C **CONTRL DATE OF LAST LZEIDE INTEGER DBHSDI COMMON CONCHR PTGNAME COMMON CONTRL FRMCLS
- CODE SEGMENT CONTRL C C **CONTRL DATE OF LAST LZEIDE INTEGER DBHSDI COMMON CONCHR PTGNAME COMMON CONTRL METHC
- CODE SEGMENT CONTRL C C **CONTRL DATE OF LAST LZEIDE INTEGER DBHSDI COMMON CONCHR PTGNAME COMMON CONTRL & METHB
- CODE SEGMENT CONTRL C C **CONTRL DATE OF LAST LZEIDE INTEGER DBHSDI COMMON CONCHR PTGNAME COMMON CONTRL ITABLE
- CODE SEGMENT CONTRL C C **CONTRL DATE OF LAST LZEIDE INTEGER DBHSDI COMMON CONCHR PTGNAME COMMON CONTRL SIZCAP
- CODE SEGMENT CONTRL C C **CONTRL DATE OF LAST LZEIDE INTEGER DBHSDI COMMON CONCHR PTGNAME COMMON CONTRL ISPGRP
- CODE SEGMENT CONTRL C C **CONTRL DATE OF LAST LZEIDE INTEGER DBHSDI COMMON CONCHR PTGNAME COMMON CONTRL LZEIDE
- CODE SEGMENT CONTRL C C **CONTRL DATE OF LAST LZEIDE INTEGER DBHSDI COMMON CONCHR PTGNAME COMMON CONTRL DBHSDI
- CODE SEGMENT CONTRL C C **CONTRL DATE OF LAST LZEIDE INTEGER DBHSDI COMMON CONCHR PTGNAME COMMON CONTRL IPTGRP C C DEFINITIONS OF VARIABLES IN CONTRL COMMON BLOCK
- CODE SEGMENT CONTRL C C **CONTRL DATE OF LAST LZEIDE INTEGER DBHSDI COMMON CONCHR PTGNAME COMMON CONTRL IPTGRP C C DEFINITIONS OF VARIABLES IN CONTRL COMMON IF NOT SET BY KEYWORD C BAMIN LIKE CFMIN EXCEPT IN BASAL AREA PER ACRE C BFMIN LIKE CFMIN EXCEPT IN BOARD FEET PER ACRE C CFMIN MINIMUM ACCEPTABLE HARVEST AS MEASURED IN MERCH CUFT C PRE ACRE DEFAULTS TO IN GRINIT
- CAN BE RESET BY C KEYWORD C DBHMIN CARRIES MIN TOP DIAMETERS FOR MERCHANTABLE CUBIC VOL C EQUATIONS BY SPECIES DEFAULTED TO IN FOR LP
- CAN BE RESET BY C KEYWORD C DBHMIN CARRIES MIN TOP DIAMETERS FOR MERCHANTABLE CUBIC VOL C EQUATIONS BY SPECIES DEFAULTED TO IN FOR C AND IN FOR ALL OTHER SP IN GRINIT CAN BE RESET BY C KEYWORD C DGSD BOUNDS OF THE VARIANCE ABOUT PREDICTED DIAMETER C GROWTH IN NUMBER OF STA DEVIATIONS SET IN **INITRE **C EFF CUTTING CAN BE RESET BY KEYWORD C IBEGIN POINTS TO THE FIRST PROJECTABLE TREE RECORD IN THE C TREE ARRAYS BY SPECIES USED IN CHAIN SORTING IN C **LNKINT **AND **LNKCHN **C ICCODE ERROR OR WARNING CONDITION CODE INITIALIZED IN **BLOCK C DATA **SET IN **ERRGRO **C ICFLAG INDEX TO CUTTING ALGORITHM IN CURRENT CYCLE
- C
- INDECATING THAT C NO ADDFILE WAS SPECIFIED THEN USED TO SIGNAL DISPLY THAT C PROJECTION IS OVER USED TO PASS THE DIAMETER C THE GROWTH MEASUREMENT PERIOD FROM **DGDRIV **C TO THE TUSSOCK AND MOUNTAIN PINE BEETLE ROUTINES C ICUT ARRAY CONTAINING CUTTING ALGORITHM SELECTIONS CODED C AS ABOVE KEYWORD CONTROLLED C ICYC INDEX TO CURRENT CYCLE VALUE SET IN **MAIN **C IDG INDEX TO METHOD BY WHICH INPUT DIAMETER GROWTH C WAS MEASURED
- INDECATING THAT C NO ADDFILE WAS SPECIFIED THEN USED TO SIGNAL DISPLY THAT C PROJECTION IS OVER USED TO PASS THE DIAMETER C THE GROWTH MEASUREMENT PERIOD FROM **DGDRIV **C TO THE TUSSOCK AND MOUNTAIN PINE BEETLE ROUTINES C ICUT ARRAY CONTAINING CUTTING ALGORITHM SELECTIONS CODED C AS ABOVE KEYWORD CONTROLLED C ICYC INDEX TO CURRENT CYCLE VALUE SET IN **MAIN **C IDG INDEX TO METHOD BY WHICH INPUT DIAMETER GROWTH C WAS THE SUBSCRIPTS IN THE ARRAY C INS WILL BE RELOADED IN THE NEXT CALL TO **DIST **C INS SUBSCRIPTS FOR DISPLAYED TREE RECORDS SET IN C CALL TO **DIST **WHEN IFST IS C IREAD LOGICAL UNIT NUMBER FOR KEYWORD INPUT SET IN C **BLOCK DATA **C IREC1 NUMBER OF PROJECTABLE RECORDS INPUT CALCULATED IN C **INTREE **C INCLUDING TRIPLES C SET IN **SETUP UPDATED IN **TRIPLE **C IUSED CARRIES ALPHA CODES FOR SPECIES ENCOUNTERED IN C TREE LIST IN ORDER OF OCCURENCE SET IN **INTREE **C IY C AUTOMATIC THINNING WILL BE INVODED IF NO C OTHER THINNINGS ARE REQUESTED C LBKDEN IF TRUE
- FALSE BY NOCALIB KEYWORD C LDUBDG IF MISSING DIAMETER INCREMENTS WILL BE DUBBED C IN FOLLOWING CALIBRATION SET FALSE IN **INITRE **C LHTDRG SET BY SPECIES
- INITIALLY IN **GRINIT BUT POSSIBLY C CHANGED VIA THE NOHTDREG KEYWORD IN **INITRE **USED C IN CONJUNCTION WITH THE VARIABLE IABFLG CONTAINED IN C THE VARCOM COMMON BLOCK TO CONTROL WHICH HT DBH MODEL C WILL BE USED C C IF FALSE
- INITIALLY IN **GRINIT BUT POSSIBLY C CHANGED VIA THE NOHTDREG KEYWORD IN **INITRE **USED C IN CONJUNCTION WITH THE VARIABLE IABFLG CONTAINED IN C THE VARCOM COMMON BLOCK TO CONTROL WHICH HT DBH MODEL C WILL BE USED C C IF FVS WILL USE THE CURTIS ARNEY HT DBH MODEL IN C VARIANTS WHERE IT WAS FIT IF THE VARIANT DOES NOT HAVE C C A RELATIONSHIPS
- INITIALLY IN **GRINIT BUT POSSIBLY C CHANGED VIA THE NOHTDREG KEYWORD IN **INITRE **USED C IN CONJUNCTION WITH THE VARIABLE IABFLG CONTAINED IN C THE VARCOM COMMON BLOCK TO CONTROL WHICH HT DBH MODEL C WILL BE USED C C IF FVS WILL USE THE CURTIS ARNEY HT DBH MODEL IN C VARIANTS WHERE IT WAS FIT IF THE VARIANT DOES NOT HAVE C C A FVS WILL USE THE WYKOFF HT DBH C MODEL WITH THE DEFAULT COEFFICIENTS FOR THAT SPECIES C IF LHTDRG IS IABFLG WILL ALWAYS BE C C IF AND IABFLG
- INITIALLY IN **GRINIT BUT POSSIBLY C CHANGED VIA THE NOHTDREG KEYWORD IN **INITRE **USED C IN CONJUNCTION WITH THE VARIABLE IABFLG CONTAINED IN C THE VARCOM COMMON BLOCK TO CONTROL WHICH HT DBH MODEL C WILL BE USED C C IF FVS WILL USE THE CURTIS ARNEY HT DBH MODEL IN C VARIANTS WHERE IT WAS FIT IF THE VARIANT DOES NOT HAVE C C A FVS WILL USE THE WYKOFF HT DBH C MODEL WITH THE DEFAULT COEFFICIENTS FOR THAT SPECIES C IF LHTDRG IS IABFLG WILL ALWAYS BE C C IF AND FVS WILL USE THE WYKOFF MODEL WITH C COEFFICIENTS CALIBRATED TO THE INPUT DATA C IF AND FVS WILL USE THE C A MODELS IN C VARIANTS THAT HAVE THEM
- INITIALLY IN **GRINIT BUT POSSIBLY C CHANGED VIA THE NOHTDREG KEYWORD IN **INITRE **USED C IN CONJUNCTION WITH THE VARIABLE IABFLG CONTAINED IN C THE VARCOM COMMON BLOCK TO CONTROL WHICH HT DBH MODEL C WILL BE USED C C IF FVS WILL USE THE CURTIS ARNEY HT DBH MODEL IN C VARIANTS WHERE IT WAS FIT IF THE VARIANT DOES NOT HAVE C C A FVS WILL USE THE WYKOFF HT DBH C MODEL WITH THE DEFAULT COEFFICIENTS FOR THAT SPECIES C IF LHTDRG IS IABFLG WILL ALWAYS BE C C IF AND FVS WILL USE THE WYKOFF MODEL WITH C COEFFICIENTS CALIBRATED TO THE INPUT DATA C IF AND FVS WILL USE THE C A MODELS IN C VARIANTS THAT HAVE OR THE WYKOFF MODEL WITH THE C DEFAULT COEFFICIENTS IN VARIANTS THAT DON T C C USED IN **CRATET **AND **REGENT **C LFIA LOGICAL VARIABLE WHICH INDICATES INPUT DATA CONTAINS C FIA SPECIES CODES INSTEAD OF ALPHA SPECIES CODES C LFLAG SIGNALS INITRE TO WRITE A HEADING OTHERWISE AVAILABLE C LFIRE SET TO TRUE IN CVCBMS WHEN A SIMFIRE KEYWORD HAS BEEN C USED IN THE CURRENT CYCLE FUNCTIONS LIKE LTHIN C TO SIGNAL USE OF PAST CYCLE TPA
- INITIALLY IN **GRINIT BUT POSSIBLY C CHANGED VIA THE NOHTDREG KEYWORD IN **INITRE **USED C IN CONJUNCTION WITH THE VARIABLE IABFLG CONTAINED IN C THE VARCOM COMMON BLOCK TO CONTROL WHICH HT DBH MODEL C WILL BE USED C C IF FVS WILL USE THE CURTIS ARNEY HT DBH MODEL IN C VARIANTS WHERE IT WAS FIT IF THE VARIANT DOES NOT HAVE C C A FVS WILL USE THE WYKOFF HT DBH C MODEL WITH THE DEFAULT COEFFICIENTS FOR THAT SPECIES C IF LHTDRG IS IABFLG WILL ALWAYS BE C C IF AND FVS WILL USE THE WYKOFF MODEL WITH C COEFFICIENTS CALIBRATED TO THE INPUT DATA C IF AND FVS WILL USE THE C A MODELS IN C VARIANTS THAT HAVE OR THE WYKOFF MODEL WITH THE C DEFAULT COEFFICIENTS IN VARIANTS THAT DON T C C USED IN **CRATET **AND **REGENT **C LFIA LOGICAL VARIABLE WHICH INDICATES INPUT DATA CONTAINS C FIA SPECIES CODES INSTEAD OF ALPHA SPECIES CODES C LFLAG SIGNALS INITRE TO WRITE A HEADING OTHERWISE AVAILABLE C LFIRE SET TO TRUE IN CVCBMS WHEN A SIMFIRE KEYWORD HAS BEEN C USED IN THE CURRENT CYCLE FUNCTIONS LIKE LTHIN C TO SIGNAL USE OF PAST CYCLE RMSQD AND BA IN C COVER MODEL CALCULATIONS ALSO USED IN CCFCAL ROUTINES C LIST LOGICAL ARRAY CONTAINING CYCLE BY CYCLE INSTRUCTIONS C FOR PRINTOUT OF SPECIAL TREE LIST KEYWORD CONTROLLED C LSITE LOGICAL VARIABLE WHICH INDICATES WHETHER SITECOD KEYWORD C HAS BEEN USED C LSTART LOGICAL FLAG WHICH IS TRUE DURING SUMMARIZATION OF C INPUT ALLOWS DUBBING OF MISSING VALUES AND LOADING C OF COEFFICIENT ARRAYS SET AND UPDATED IN **MAIN **C LSTKNT COUNT OF POINTS SAMPLED IN PREVIOUS STAND THIS C VARIABLE IS USED TO ALLOW NON UNIQUE POINT ID S C IN RECORDS FOR A GROUP OF STANDS WHICH ARE C COMBINED AND PROCESSED AS A SINGLE STAND C CALCULATED IN **INTREE **C LSUMRY IF ONE LINE SUMMARY OUTPUT IS C CAN BE SET FALSE BY KEYWORD C LTRIP IF LTRIP IS RECORDS WILL BE TRIPLED THIS C CYCLE SET TRUE IN **MAIN **IF NOTRIP IS C ICYC IS OR LESS
- INITIALLY IN **GRINIT BUT POSSIBLY C CHANGED VIA THE NOHTDREG KEYWORD IN **INITRE **USED C IN CONJUNCTION WITH THE VARIABLE IABFLG CONTAINED IN C THE VARCOM COMMON BLOCK TO CONTROL WHICH HT DBH MODEL C WILL BE USED C C IF FVS WILL USE THE CURTIS ARNEY HT DBH MODEL IN C VARIANTS WHERE IT WAS FIT IF THE VARIANT DOES NOT HAVE C C A FVS WILL USE THE WYKOFF HT DBH C MODEL WITH THE DEFAULT COEFFICIENTS FOR THAT SPECIES C IF LHTDRG IS IABFLG WILL ALWAYS BE C C IF AND FVS WILL USE THE WYKOFF MODEL WITH C COEFFICIENTS CALIBRATED TO THE INPUT DATA C IF AND FVS WILL USE THE C A MODELS IN C VARIANTS THAT HAVE OR THE WYKOFF MODEL WITH THE C DEFAULT COEFFICIENTS IN VARIANTS THAT DON T C C USED IN **CRATET **AND **REGENT **C LFIA LOGICAL VARIABLE WHICH INDICATES INPUT DATA CONTAINS C FIA SPECIES CODES INSTEAD OF ALPHA SPECIES CODES C LFLAG SIGNALS INITRE TO WRITE A HEADING OTHERWISE AVAILABLE C LFIRE SET TO TRUE IN CVCBMS WHEN A SIMFIRE KEYWORD HAS BEEN C USED IN THE CURRENT CYCLE FUNCTIONS LIKE LTHIN C TO SIGNAL USE OF PAST CYCLE RMSQD AND BA IN C COVER MODEL CALCULATIONS ALSO USED IN CCFCAL ROUTINES C LIST LOGICAL ARRAY CONTAINING CYCLE BY CYCLE INSTRUCTIONS C FOR PRINTOUT OF SPECIAL TREE LIST KEYWORD CONTROLLED C LSITE LOGICAL VARIABLE WHICH INDICATES WHETHER SITECOD KEYWORD C HAS BEEN USED C LSTART LOGICAL FLAG WHICH IS TRUE DURING SUMMARIZATION OF C INPUT ALLOWS DUBBING OF MISSING VALUES AND LOADING C OF COEFFICIENT ARRAYS SET AND UPDATED IN **MAIN **C LSTKNT COUNT OF POINTS SAMPLED IN PREVIOUS STAND THIS C VARIABLE IS USED TO ALLOW NON UNIQUE POINT ID S C IN RECORDS FOR A GROUP OF STANDS WHICH ARE C COMBINED AND PROCESSED AS A SINGLE STAND C CALCULATED IN **INTREE **C LSUMRY IF ONE LINE SUMMARY OUTPUT IS C CAN BE SET FALSE BY KEYWORD C LTRIP IF LTRIP IS RECORDS WILL BE TRIPLED THIS C CYCLE SET TRUE IN **MAIN **IF NOTRIP IS C ICYC IS OR AND ITRN IS OR LESS C MORDAT SET TO TRUE ON FIRST CALL TO **INTREE **THIS C FLAG IS USED TO DETECT GROUPS OF STANDS WHICH C ARE TO BE PROCESSED AS A SINGLE STAND AND IS C ALSO USED TO ASSURE THAT TREE RECORDS ARE READ TRIPLING IS BYPASSED SET FALSE IN C **INITRE **CAN BE RESET TO TRUE BY KEYWORD C NSPGRP NUMBER OF SPECIES GROUPS THAT HAVE BEEN DEFINED C NSTKNT NUMBER OF NON STOCKABLE POINTS IN THE STAND CAN BE C INPUT BY KEYWORD
- IF NOT
- IF COUNTED WHEN TREE RECORDS C ARE READ C NUMSP NUMBER OF SPECIES ENCOUNTERED IN TREE LIST SET IN C **INTREE **C PBAWT WEIGHT GIVEN TO POINT BASAL AREA IN CALCULATION OF C REMOVAL PRIORITY FOR THINNING DEFALUTS TO IN **GRINIT **C CAN BE RESET BY TCONDMLT KEYWORD C PCCFWT WEIGHT GIVEN TO POINT CCF IN CALCULATION OF C REMOVAL PRIORITY FOR THINNING DEFALUTS TO IN **GRINIT **C CAN BE RESET BY TCONDMLT KEYWORD C PTPAWT WEIGHT GIVEN TO POINT TPA IN CALCULATION OF C REMOVAL PRIORITY FOR THINNING DEFALUTS TO IN **GRINIT **C CAN BE RESET BY TCONDMLT KEYWORD C SIZCAP ARRAY TO CARRY SIZE LIMITS FOR TREES
- USE FOR DIAMETER GROWTH ONLY
- C CAN BE RESET BY KEYWORD C TCFMIN LIKE CFMIN EXCEPT IN TOTAL CUBIC FEET PER ACRE C TCWT WEIGHT GIVEN TO TREE CONDITION CLASS IN CALCULATION C OF REMOVAL PRIORITY FOR THINNING DEFAULT TO IN C **GRINIT **CAN BE RESET BY TCONDMLT KEYWORD C TOPD CARRIES TOP DIAMETERS FOR MERCHANTABLE CUBIC VOLUME C EQUATIONS BY SPECIES DEFAULTS TO IN GRINIT CAN C BE RESET BY KEYWORD C TREFMT FORMAT FOR READING TREE RECORDS DEFAULTED IN C **BLOCK DATA CAN BE REPLACED BY KEYWORD C TRM TREE RECORD MULTIPLIER SCALES THE PROB OF A BASE C RECORD TO REMOVE IMPACT OF TRIPLING WHEN DISPLAYING C TREES INITIALIZED IN **INITRE UPDATED IN **TRIPLE **C YR PERIOD LENGTH FOR GROWTH MEASUREMENTS WHICH MODELS C WERE FIT TO INITIALIZED IN **BLOCK DATA **C AND IF SET TO TRUE USING C THE SDICALC THE ZIEDE SUMMATION METHOD WILL C BE USED TO CALCULATE MORTALITY IN VARIANTS USING C THE SDI BASED MORTALITY ALGORITHM C DR016 REINEKE DIAMETER CALCULATED USING ZEIDE METHOD
- C CAN BE RESET BY KEYWORD C TCFMIN LIKE CFMIN EXCEPT IN TOTAL CUBIC FEET PER ACRE C TCWT WEIGHT GIVEN TO TREE CONDITION CLASS IN CALCULATION C OF REMOVAL PRIORITY FOR THINNING DEFAULT TO IN C **GRINIT **CAN BE RESET BY TCONDMLT KEYWORD C TOPD CARRIES TOP DIAMETERS FOR MERCHANTABLE CUBIC VOLUME C EQUATIONS BY SPECIES DEFAULTS TO IN GRINIT CAN C BE RESET BY KEYWORD C TREFMT FORMAT FOR READING TREE RECORDS DEFAULTED IN C **BLOCK DATA CAN BE REPLACED BY KEYWORD C TRM TREE RECORD MULTIPLIER SCALES THE PROB OF A BASE C RECORD TO REMOVE IMPACT OF TRIPLING WHEN DISPLAYING C TREES INITIALIZED IN **INITRE UPDATED IN **TRIPLE **C YR PERIOD LENGTH FOR GROWTH MEASUREMENTS WHICH MODELS C WERE FIT TO INITIALIZED IN **BLOCK DATA **C AND IF SET TO TRUE USING C THE SDICALC THE ZIEDE SUMMATION METHOD WILL C BE USED TO CALCULATE MORTALITY IN VARIANTS USING C THE SDI BASED MORTALITY ALGORITHM C DR016 REINEKE DIAMETER CALCULATED USING ZEIDE C CALCULATED IN DENSE AND USED IN SDICHK C DBHSTAGE MINIUM DIAMETER USED IN ZEIDE SDI CALCULAIONS
- C CAN BE RESET BY KEYWORD C TCFMIN LIKE CFMIN EXCEPT IN TOTAL CUBIC FEET PER ACRE C TCWT WEIGHT GIVEN TO TREE CONDITION CLASS IN CALCULATION C OF REMOVAL PRIORITY FOR THINNING DEFAULT TO IN C **GRINIT **CAN BE RESET BY TCONDMLT KEYWORD C TOPD CARRIES TOP DIAMETERS FOR MERCHANTABLE CUBIC VOLUME C EQUATIONS BY SPECIES DEFAULTS TO IN GRINIT CAN C BE RESET BY KEYWORD C TREFMT FORMAT FOR READING TREE RECORDS DEFAULTED IN C **BLOCK DATA CAN BE REPLACED BY KEYWORD C TRM TREE RECORD MULTIPLIER SCALES THE PROB OF A BASE C RECORD TO REMOVE IMPACT OF TRIPLING WHEN DISPLAYING C TREES INITIALIZED IN **INITRE UPDATED IN **TRIPLE **C YR PERIOD LENGTH FOR GROWTH MEASUREMENTS WHICH MODELS C WERE FIT TO INITIALIZED IN **BLOCK DATA **C AND IF SET TO TRUE USING C THE SDICALC THE ZIEDE SUMMATION METHOD WILL C BE USED TO CALCULATE MORTALITY IN VARIANTS USING C THE SDI BASED MORTALITY ALGORITHM C DR016 REINEKE DIAMETER CALCULATED USING ZEIDE C CALCULATED IN DENSE AND USED IN SDICHK C DBHSTAGE MINIUM DIAMETER USED IN ZEIDE SDI SET C BY SDICALC DEFAULT
- file contrl_mod.f90
- file covolp.f
- file cratet.f90
Functions
- subroutine cratet()
- file crown.f
Functions
- subroutine crown()
- file cubrds.f
- file cutqfa.f
- file cuts.f
Functions
- subroutine cuts()
- file cutstk.f
Functions
- subroutine cutstk()
- file cvbcal.f
Functions
- subroutine cvbcal(HTINDX HTINDX)
- file cvbrow.f
Functions
- subroutine cvbrow(LTHIN LTHIN)
- file cvcbms.f
Functions
- subroutine cvcbms(LTHIN LTHIN)
- file cvclas.f
Functions
- subroutine cvclas(LTHIN LTHIN)
- file cvcnop.f
Functions
- subroutine cvcnop(LTHIN LTHIN)
- file CVCOM.F77
Functions
Variables
- CODE SEGMENT CVCOM C C **CVCOM COMMON DATE OF LAST LSAGE COMMON CVCOM VOLXHT C C DEFINITIONS OF VARIABLES IN CVCOM COMMON BLOCK
- CODE SEGMENT CVCOM C C **CVCOM COMMON DATE OF LAST LSAGE COMMON CVCOM VOLXHT C C DEFINITIONS OF VARIABLES IN CVCOM COMMON J
- file cvcw.f
Functions
- subroutine cvcw(LTHIN LTHIN)
- file cvget.f
Functions
- subroutine cvget(WK3 WK3, IPNT IPNT, ILIMIT ILIMIT)
- file cvgo.f
Functions
- subroutine cvgo(LCVATV LCVATV)
- file cvin.f
Functions
- subroutine cvin(PASKEY PASKEY, ARRAY ARRAY, LNOTBK LNOTBK, LKECHO LKECHO)
- file cvinit.f
Functions
- subroutine cvinit()
- file cvnohd.f
Functions
- subroutine cvnohd()
- file cvout.f
Functions
- subroutine cvout()
- file cvput.f
- file cvscon.f
Functions
- subroutine cvscon()
- file cvshap.f
Functions
- subroutine cvshap(LTHIN LTHIN)
- file cvsum.f
Functions
- subroutine cvsum(LTHIN LTHIN)
- file cwcalc.f
Functions
- subroutine cwcalc(ISPC ISPC, P P, D D, H H, CR CR, IICR IICR, CW CW, IWHO IWHO, JOSTND JOSTND)
- file CWDCOM.F77
Functions
Variables
- file cwidth.f
Functions
- subroutine cwidth()
- file damcds.f
Functions
- subroutine damcds(II II, ICODES ICODES)
- file dampro.f
Functions
- subroutine dampro()
- file dbadd.f
Functions
- subroutine dbadd(SUBIN SUBIN, NC NC, ICYC ICYC, IRC IRC)
- file dball.f
Functions
- subroutine dball(ICYC ICYC)
- file dbchk.f
Functions
- subroutine dbchk(LDEBG LDEBG, SUBIN SUBIN, NC NC, ICYC ICYC)
- file dbinit.f
Functions
- subroutine dbinit()
- file dbprse.f
- file dbsatrtls.f
Functions
- subroutine dbsatrtls(IWHO IWHO, KODE KODE, TEM TEM)
- file dbsblkd.f
- file dbscan.f
Functions
- subroutine dbscan(LDEBG LDEBG, SUBIN SUBIN, NC NC, ICYC ICYC)
- file dbscase.f
Functions
- subroutine dbscase(IFORSURE IFORSURE)
- file dbscknrows.f
Functions
- subroutine dbscknrows(IRCODE IRCODE, TABLENAME TABLENAME, NRESERV NRESERV, ISEXCEL ISEXCEL)
- file dbsclose.f
Functions
- subroutine dbsclose(LCOUT LCOUT, LCIN LCIN)
- file dbsclsum.f
- file dbscmpu.f
Functions
- subroutine dbscmpu()
- subroutine insertcmpu(KWINSRT KWINSRT, KWVALS KWVALS, THISYR THISYR, STANDID STANDID, NUMCMPU NUMCMPU)
- file DBSCOM.F77
Variables
- CODE SEGMENT DBSCOM C C $Id C INCLUDE DBSTYPEDEFS F77 INTEGER ITREEIN INTEGER IMORTF INTEGER ISTRCLAS
- CODE SEGMENT DBSCOM C C $Id C INCLUDE DBSTYPEDEFS F77 INTEGER ITREEIN INTEGER IMORTF INTEGER IBMMAIN
- CODE SEGMENT DBSCOM C C $Id C INCLUDE DBSTYPEDEFS F77 INTEGER ITREEIN INTEGER IMORTF INTEGER IBMTREE
- CODE SEGMENT DBSCOM C C $Id C INCLUDE DBSTYPEDEFS F77 INTEGER ITREEIN INTEGER IMORTF INTEGER IBMVOL INTEGER IDBSECON
- CODE SEGMENT DBSCOM C C $Id C INCLUDE DBSTYPEDEFS F77 INTEGER ITREEIN INTEGER IMORTF INTEGER IBMVOL INTEGER ISPOUT6
- CODE SEGMENT DBSCOM C C $Id C INCLUDE DBSTYPEDEFS F77 INTEGER ITREEIN INTEGER IMORTF INTEGER IBMVOL INTEGER ISPOUT17
- CODE SEGMENT DBSCOM C C $Id C INCLUDE DBSTYPEDEFS F77 INTEGER ITREEIN INTEGER IMORTF INTEGER IBMVOL INTEGER IDWDVOL
- CODE SEGMENT DBSCOM C C $Id C INCLUDE DBSTYPEDEFS F77 INTEGER ITREEIN INTEGER IMORTF INTEGER IBMVOL INTEGER IDWDCOV
- CODE SEGMENT DBSCOM C C $Id C INCLUDE DBSTYPEDEFS F77 INTEGER ITREEIN INTEGER IMORTF INTEGER IBMVOL INTEGER IATRTLIST INTEGER ISPOUT21
- CODE SEGMENT DBSCOM C C $Id C INCLUDE DBSTYPEDEFS F77 INTEGER ITREEIN INTEGER IMORTF INTEGER IBMVOL INTEGER IATRTLIST INTEGER ISPOUT23
- CODE SEGMENT DBSCOM C C $Id C INCLUDE DBSTYPEDEFS F77 INTEGER ITREEIN INTEGER IMORTF INTEGER IBMVOL INTEGER IATRTLIST INTEGER ISPOUT30
- CODE SEGMENT DBSCOM C C $Id C INCLUDE DBSTYPEDEFS F77 INTEGER ITREEIN INTEGER IMORTF INTEGER IBMVOL INTEGER IATRTLIST INTEGER ISPOUT31
- CODE SEGMENT DBSCOM C C $Id C INCLUDE DBSTYPEDEFS F77 INTEGER ITREEIN INTEGER IMORTF INTEGER IBMVOL INTEGER IATRTLIST INTEGER ICLIM INTEGER I_CMPU
- CODE SEGMENT DBSCOM C C $Id C INCLUDE DBSTYPEDEFS F77 INTEGER ITREEIN INTEGER IMORTF INTEGER IBMVOL INTEGER IATRTLIST INTEGER ICLIM INTEGER IADDCMPU
- file dbscuts.f
Functions
- subroutine dbscuts(IWHO IWHO, KODE KODE)
- file dbsdiags.f
Functions
- subroutine dbsdiags(HndlType HndlType, Hndl Hndl, CallFrom CallFrom)
- file dbsdriv.f
Functions
- subroutine dbsdriv(JOSTND JOSTND)
- file dbsecharv.f
Functions
- subroutine dbsecharv_open()
- subroutine dbsecharv_insert(beginAnalYear beginAnalYear, speciesId speciesId, minDia minDia, maxDia maxDia, minDbh minDbh, maxDbh maxDbh, tpaCut tpaCut, tpaValue tpaValue, tonsPerAcre tonsPerAcre, ft3Volume ft3Volume, ft3Value ft3Value, bfVolume bfVolume, bfValue bfValue, totalValue totalValue)
- subroutine dbsecharv_close()
- file dbsecsum.f
Functions
- subroutine dbsecsum(beginAnalYear beginAnalYear, endTime endTime, pretend pretend, costUndisc costUndisc, revUndisc revUndisc, costDisc costDisc, revDisc revDisc, npv npv, irr irr, irrCalculated irrCalculated, bcRatio bcRatio, bcRatioCalculated bcRatioCalculated, rrr rrr, rrrCalculated rrrCalculated, sev sev, sevCalculated sevCalculated, forestValue forestValue, forestValueCalculated forestValueCalculated, reprodValue reprodValue, reprodValueCalculated reprodValueCalculated, ft3Volume ft3Volume, bfVolume bfVolume, discountRate discountRate, sevInput sevInput, sevInputUsed sevInputUsed)
- file dbsevm.f
Functions
- subroutine dbsevm(ITODO ITODO, IACTK IACTK, IDT IDT, JOSTND JOSTND)
- file dbsexecsql.f
Functions
- subroutine dbsexecsql(SQLCMD SQLCMD, ConnHndl ConnHndl, LSCHED LSCHED, IRC IRC)
- file dbsfmburn.f
- file dbsfmcanpr.f
Functions
- subroutine dbsfmcanpr(IYEAR IYEAR, CRFILL CRFILL, NPLT NPLT)
- file dbsfmcrpt.f
Functions
- subroutine dbsfmcrpt(IYEAR IYEAR, NPLT NPLT, VAR VAR, VARDIM VARDIM, KODE KODE)
- file dbsfmdsnag.f
Functions
- subroutine dbsfmdsnag(IYEAR IYEAR, SDBH SDBH, SHTH SHTH, SHTS SHTS, SVLH SVLH, SVLS SVLS, SDH SDH, SDS SDS, YRLAST YRLAST, KODE KODE)
- file dbsfmdwcov.f
Functions
- subroutine dbsfmdwcov(IYEAR IYEAR, NPLT NPLT, VAR VAR, VARDIM VARDIM, KODE KODE)
- file dbsfmdwvol.f
Functions
- subroutine dbsfmdwvol(IYEAR IYEAR, NPLT NPLT, VAR VAR, VARDIM VARDIM, KODE KODE)
- file dbsfmfuel.f
Functions
- subroutine dbsfmfuel(IYEAR IYEAR, NPLT NPLT, MSE MSE, LITTER LITTER, DUFF DUFF, CLT3 CLT3, CGT3 CGT3, C3TO6 C3TO6, C6TO12 C6TO12, CGT12 CGT12, HERB HERB, CROWN CROWN, CTOTAL CTOTAL, PERCDUFF PERCDUFF, PERCGT3 PERCGT3, PERTRCR PERTRCR, SM25 SM25, SM10 SM10, KODE KODE)
- file dbsfmhrpt.f
Functions
- subroutine dbsfmhrpt(IYEAR IYEAR, NPLT NPLT, VAR VAR, VARDIM VARDIM, KODE KODE)
- file dbsfmlink.f
Functions
- subroutine dbsfmlink(I I)
- file dbsfmmort.f
Functions
- subroutine dbsfmmort(IYEAR IYEAR, KILLED KILLED, TOTAL TOTAL, BAKILL BAKILL, VOKILL VOKILL, KODE KODE)
- file dbsfmpf.f
Functions
- subroutine dbsfmpf(IYEAR IYEAR, NPLT NPLT, SFLMSU SFLMSU, MFLMSU MFLMSU, SFLMTO SFLMTO, MFLMTO MFLMTO, SFTYPE SFTYPE, MFTYPE MFTYPE, SPTRCH SPTRCH, MPTRCH MPTRCH, TORCHI TORCHI, CROWNI CROWNI, CNPYHT CNPYHT, CNPYDNST CNPYDNST, SMORTBA SMORTBA, MMORTBA MMORTBA, SMORTVOL SMORTVOL, MMORTVOL MMORTVOL, SPSMOKE SPSMOKE, MPSMOKE MPSMOKE, SFUELMOD SFUELMOD, SFUELWT SFUELWT, FUELMOD FUELMOD, FUELWT FUELWT, KODE KODE)
- file dbsfmssnag.f
Functions
- subroutine dbsfmssnag(IYEAR IYEAR, NPLT NPLT, HCL1 HCL1, HCL2 HCL2, HCL3 HCL3, HCL4 HCL4, HCL5 HCL5, HCL6 HCL6, HCL7 HCL7, SCL1 SCL1, SCL2 SCL2, SCL3 SCL3, SCL4 SCL4, SCL5 SCL5, SCL6 SCL6, SCL7 SCL7, HDSF HDSF, KODE KODE)
- file dbsfuels.f
Functions
- subroutine dbsfuels(IYEAR IYEAR, NPLT NPLT, LITTER LITTER, DUFF DUFF, SDEADLT3 SDEADLT3, SDEADGT3 SDEADGT3, SDEAD3TO6 SDEAD3TO6, SDEAD6TO12 SDEAD6TO12, SDEADGT12 SDEADGT12, HERB HERB, SHRUB SHRUB, SURFTOTAL SURFTOTAL, SNAGSLT3 SNAGSLT3, SNAGSGT3 SNAGSGT3, FOLIAGE FOLIAGE, STANDLT3 STANDLT3, STANDGT3 STANDGT3, STANDTOTAL STANDTOTAL, BIOMASS BIOMASS, CONSUMED CONSUMED, REMOVED REMOVED, KODE KODE)
- file dbshelpers.f
- file dbsin.f
- file dbsinit.f
Functions
- subroutine dbsinit()
- subroutine dbsactv(LACTV LACTV)
- file dbsmis.f
Functions
- subroutine dbsmis1(IYEAR IYEAR, NPLT NPLT, CSP CSP, SPDMR4 SPDMR4, SPDMI4 SPDMI4, SPINF4 SPINF4, SPMRT4 SPMRT4, SPPIN4 SPPIN4, SPPMR4 SPPMR4, SPPOC4 SPPOC4, KODE KODE)
- subroutine dbsmis2(IYEAR IYEAR, NPLT NPLT, NAGE NAGE, ISTTPAT ISTTPAT, IBA IBA, ISTVOL ISTVOL, ISTTPAI ISTTPAI, ISTBAI ISTBAI, ISTVOLI ISTVOLI, ISTTPAM ISTTPAM, ISTBAM ISTBAM, ISTVOLM ISTVOLM, ISTPIT ISTPIT, ISTPIV ISTPIV, ISTPMT ISTPMT, ISTPMV ISTPMV, STDMR STDMR, STDMI STDMI, KODE KODE)
- subroutine dbsmis3(IYEAR IYEAR, NPLT NPLT, NLABS NLABS, DCTPA DCTPA, DCINF DCINF, DCMRT DCMRT, DCDMR DCDMR, DCDMI DCDMI, KODE KODE)
- file dbsopen.f
Functions
- subroutine dbsopen(CONNECT CONNECT, EnvHndl EnvHndl, ConnHndl ConnHndl, DBMS DBMS, JOSTND JOSTND, LKECHO LKECHO, KODE KODE)
- file dbsppget.f
Functions
- subroutine dbsppget(WK3 WK3, IPNT IPNT, ILIMIT ILIMIT)
- subroutine dbschget(CBUFF CBUFF, IPNT IPNT, LNCBUF LNCBUF)
- file dbsppput.f
Functions
- subroutine dbsppput(WK3 WK3, IPNT IPNT, ILIMIT ILIMIT)
- subroutine dbschput(CBUFF CBUFF, IPNT IPNT, LNCBUF LNCBUF)
- file dbsprs.f
Functions
- subroutine dbsprs(TOKEN TOKEN, SOURCE SOURCE, DELIMSTR DELIMSTR)
- file dbsprssql.f
Functions
- subroutine dbsprssql(ORIGSTR ORIGSTR, LSCHED LSCHED, KODE KODE)
- file dbspusget.f
Functions
- subroutine dbspusget(CBUFF CBUFF, IPNT IPNT, LNCBUF LNCBUF)
- file dbspusput.f
Functions
- subroutine dbspusput(CBUFF CBUFF, IPNT IPNT, LNCBUF LNCBUF)
- file dbsstandin.f
Functions
- subroutine dbsstandin(SQLSTR SQLSTR, LKECHO LKECHO)
- file dbsstrclass.f
Functions
- subroutine dbsstrclass(IYEAR IYEAR, NPLT NPLT, RCODE RCODE, S1DBH S1DBH, S1NHT S1NHT, S1LHT S1LHT, S1SHT S1SHT, S1CB S1CB, S1CC S1CC, S1MS1 S1MS1, S1MS2 S1MS2, S1SC S1SC, S2DBH S2DBH, S2NHT S2NHT, S2LHT S2LHT, S2SHT S2SHT, S2CB S2CB, S2CC S2CC, S2MS1 S2MS1, S2MS2 S2MS2, S2SC S2SC, S3DBH S3DBH, S3NHT S3NHT, S3LHT S3LHT, S3SHT S3SHT, S3CB S3CB, S3CC S3CC, S3MS1 S3MS1, S3MS2 S3MS2, S3SC S3SC, NS NS, TOTCOV TOTCOV, SCLASS SCLASS, KODE KODE, NTREES NTREES)
- file dbssumry.f
Functions
- subroutine dbssumry(IYEAR IYEAR, IAGE IAGE, NPLT NPLT, ITPA ITPA, IBA IBA, ISDI ISDI, ICCF ICCF, ITOPHT ITOPHT, FQMD FQMD, ITCUFT ITCUFT, IMCUFT IMCUFT, IBDFT IBDFT, IRTPA IRTPA, IRTCUFT IRTCUFT, IRMCUFT IRMCUFT, IRBDFT IRBDFT, IATBA IATBA, IATSDI IATSDI, IATCCF IATCCF, IATTOPHT IATTOPHT, FATQMD FATQMD, IPRDLEN IPRDLEN, IACC IACC, IMORT IMORT, YMAI YMAI, IFORTP IFORTP, ISZCL ISZCL, ISTCL ISTCL)
- file DBSTK.F77
- file dbstreesin.f
Functions
- subroutine dbstreesin(IPLOT IPLOT, ITREE ITREE, RCOUNT RCOUNT, HISTORY HISTORY, SPECIES SPECIES, DBH DBH, DG DG, HT HT, HTTOPK HTTOPK, HTG HTG, CRWNR CRWNR, DMG1 DMG1, SVR1 SVR1, DMG2 DMG2, SVR2 SVR2, DMG3 DMG3, SVR3 SVR3, TREEVAL TREEVAL, PRESCRIPT PRESCRIPT, SLOPE SLOPE, ASPECT ASPECT, HABITAT HABITAT, TOPOCODE TOPOCODE, SITEPREP SITEPREP, KODE KODE, DEBUG DEBUG, JOSTND JOSTND, LKECHO LKECHO, ABIRTH ABIRTH)
- file dbstrls.f
Functions
- subroutine dbstrls(IWHO IWHO, KODE KODE, TEM TEM)
- file debug_mod.f
- file dense.f
Functions
- subroutine dense()
- file dgbnd.f
Functions
- subroutine dgbnd(ISPC ISPC, DBH DBH, DDG DDG)
- file dgdriv.f
Functions
- subroutine dgdriv()
- file dgf.f
Functions
- subroutine dgf(DIAM DIAM)
- file dgscor.f
Functions
- subroutine dgscor(SSIG SSIG, FRM FRM, RHO RHO, RHOCP RHOCP, IT IT)
- file disply.f
Functions
- subroutine disply()
- file dist.f
Functions
- subroutine dist(N N, ATTR ATTR, PCTWK PCTWK)
- file downwood_data.f90
- file dubscr.f
Functions
- subroutine dubscr(ISPC ISPC, D D, H H, CR CR, TPCT TPCT, TPCCF TPCCF)
- file dunn.f
Functions
- subroutine dunn(SS SS)
- file eccalc.f
Functions
- subroutine processeconstart()
- subroutine initializesavedvariables()
- subroutine resetsavedcyclevariables()
- subroutine resetlocalcyclevariables()
- subroutine valueharvest()
- subroutine calcecon()
- subroutine accumulate(accumulator accumulator, increment increment)
- pure character(len=5) function rtoc(n n)
- pure character(len=7) function itoc(n n)
- real function calcappreamt(amt amt, valueRate valueRate, valueDuration valueDuration, apprecTime apprecTime, done done)
- real function calcappresev(amt amt, priceOrCost priceOrCost, valueRate valueRate, valueDuration valueDuration, evntTime evntTime)
- real function sevhrvcosts()
- real function sevhrvrevenues()
- subroutine calcanncostrevsev()
- subroutine writetableheaders()
- file echarv.f
- file ecin.f
Functions
- subroutine ecin(IRECNT IRECNT, IREAD IREAD, JOSTND JOSTND, NSP NSP, ICYC ICYC, LKECHO LKECHO, ISPGRP ISPGRP)
- logical function iscorrectunit(keyword keyword, units units)
- logical function issupplemental(field field)
- subroutine ratesanddurations(supplemental supplemental, numRates numRates, rateCnt rateCnt, rates rates, durations durations)
- subroutine loadparms(activityCode activityCode, field field)
- subroutine addevent(activityCode activityCode, minDate minDate, NPRMS NPRMS, prmsIndex prmsIndex)
- subroutine errmsg(msg msg)
- subroutine assignrevvalues()
- file ecinit.f
Functions
- subroutine ecinit()
- file ECNCOM.F77
Functions
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77!Units of measure!ECON activity codes listed in OPLIST dimension(7)
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77!Units of measure!ECON activity codes listed in OPLIST varPctCnt dimension(MAX_KEYWORDS) the count equals number of!DIB DBH classes for which keywords were submitted!Array bounds(MAXSP, MAX_REV_UNITS)
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77!Units of measure!ECON activity codes listed in OPLIST varPctCnt dimension(MAX_KEYWORDS) the count equals number of!DIB DBH classes for which keywords were submitted!Array MAX_KEYWORDS!hrvRevDia Array containing minimum small end DIB DBH by species by quantity unit type to which the hrvRevPrice applies!Array bounds(MAXSP, MAX_REV_UNITS, MAX_KEYWORDS)
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77!Units of measure!ECON activity codes listed in OPLIST varPctCnt dimension(MAX_KEYWORDS) the count equals number of!DIB DBH classes for which keywords were submitted!Array MAX_KEYWORDS!hrvRevDia Array containing minimum small end DIB DBH by species by quantity unit type to which the hrvRevPrice applies!Array MAX_KEYWORDS!hrvRevRate Array containing rate in percent by which the hrvRevPrice appreciates for a DIB DBH and quantity unit type!Array bounds(MAXSP, MAX_REV_UNITS, MAX_KEYWORDS, MAX_RATES)
- array order same as PCT variable cost keywords!Array bounds(MAX_KEYWORDS)
Variables
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific variant
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can process
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77 integer
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77 MAX_LOGS
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77 & MAX_PLANT_COSTS
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77 MAX_RATES
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77 MAX_REV_UNITS
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77 & TPA
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77 BF_1000
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77 FT3_100
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77 BF_1000_LOG
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77!Units of measure & FT3_100_LOG
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77!Units of measure PER_ACRE
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77!Units of measure TPA_1000
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77!Units of measure & PRETEND_ACTIVITY
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77!Units of measure SEV_BEGIN_ACTIVITY
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77!Units of measure!ECON activity codes listed in OPLIST & SPEC_COST_ACTIVITY
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77!Units of measure!ECON activity codes listed in OPLIST SPEC_REV_ACTIVITY
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77!Units of measure!ECON activity codes listed in OPLIST & ECON_START_YEAR
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77!Units of measure!ECON activity codes listed in OPLIST annRevCnt
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77!Units of measure!ECON activity codes listed in OPLIST econStartYear
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77!Units of measure!ECON activity codes listed in OPLIST fixHrvCnt
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77!Units of measure!ECON activity codes listed in OPLIST & fixPctCnt
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77!Units of measure!ECON activity codes listed in OPLIST pctMinUnits
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77!Units of measure!ECON activity codes listed in OPLIST plntCostCnt
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77!Units of measure!ECON activity codes listed in OPLIST varHrvCnt
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77!Units of measure!ECON activity codes listed in OPLIST varPctCnt dimension(MAX_KEYWORDS) the count equals number of!DIB DBH classes for which keywords were submitted!Array MAX_KEYWORDS!hrvRevDia Array containing minimum small end DIB DBH by species by quantity unit type to which the hrvRevPrice applies!Array MAX_KEYWORDS!hrvRevRate Array containing rate in percent by which the hrvRevPrice appreciates for a DIB DBH class
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77!Units of measure!ECON activity codes listed in OPLIST varPctCnt dimension(MAX_KEYWORDS) the count equals number of!DIB DBH classes for which keywords were submitted!Array MAX_KEYWORDS!hrvRevDia Array containing minimum small end DIB DBH by species by quantity unit type to which the hrvRevPrice applies!Array MAX_KEYWORDS!hrvRevRate Array containing rate in percent by which the hrvRevPrice appreciates for a DIB DBH species
- C COMMON BLOCK FOR FVS ECON C C **ECON DATE OF LAST WA DNR C Variables from FVS C MAXSP maximum number of species codes used by a specific from PRGPRM F77 C MAXTRE maximum number of tree records that FVS can from PRGPRM F77!Units of measure!ECON activity codes listed in OPLIST varPctCnt dimension(MAX_KEYWORDS) the count equals number of!DIB DBH classes for which keywords were submitted!Array MAX_KEYWORDS!hrvRevDia Array containing minimum small end DIB DBH by species by quantity unit type to which the hrvRevPrice applies!Array MAX_KEYWORDS!hrvRevRate Array containing rate in percent by which the hrvRevPrice appreciates for a DIB DBH and quantity unit type!Array and quantity unit type!Array bounds(MAXSP, MAX_REV_UNITS, 1, MAX_RATES)!isEconToBe-Logical variable indicating if ECON will be potentially run sometime during simulation.!Cannot be checked for each cycle because VOLS occurs before event monitor.!isFirstEcon-Logical controling operations for first pass through ECCALC!lbsFt3Amt-Array of species-specific conversion const ants for converting one cubic foot volume to pounds biomass.!Array bounds(MAXSP)!logDibBf-Array of small-end diameters inside bark(DIB) for board-foot volume ofeach log of every tree in the simulation.!Will have values only if volume calculation method performs log-by-log merchandising.!Array bounds(treeId TRUE
- file ECNCOMSAVES.F77
Variables
- C COMMON BLOCK FOR FVS ECON REQUIRED SAVE VARIABLES C C **ECON DATE OF LAST WA DNR C Created to permit start and re start of FVS without use of save variable functionality integer
- C COMMON BLOCK FOR FVS ECON REQUIRED SAVE VARIABLES C C **ECON DATE OF LAST WA DNR C Created to permit start and re start of FVS without use of save variable functionality parameter::& MAX_YEARS
- C COMMON BLOCK FOR FVS ECON REQUIRED SAVE VARIABLES C C **ECON DATE OF LAST WA DNR C Created to permit start and re start of FVS without use of save variable functionality parameter::!Logic max cycles x yrs cycle
- C COMMON BLOCK FOR FVS ECON REQUIRED SAVE VARIABLES C C **ECON DATE OF LAST WA DNR C Created to permit start and re start of FVS without use of save variable functionality parameter::!Logic max cycles x yrs max cycles
- C COMMON BLOCK FOR FVS ECON REQUIRED SAVE VARIABLES C C **ECON DATE OF LAST WA DNR C Created to permit start and re start of FVS without use of save variable functionality parameter::!Logic max cycles x yrs max!Logic & MAX_COSTS
- C COMMON BLOCK FOR FVS ECON REQUIRED SAVE VARIABLES C C **ECON DATE OF LAST WA DNR C Created to permit start and re start of FVS without use of save variable functionality parameter::!Logic max cycles x yrs max!Logic max KEYWORDS from ECNCOM F77!Save state variables in eccalc f needed for control and accumulation values needed across cycles for ECON initiation re initiation integer burnCnt
- C COMMON BLOCK FOR FVS ECON REQUIRED SAVE VARIABLES C C **ECON DATE OF LAST WA DNR C Created to permit start and re start of FVS without use of save variable functionality parameter::!Logic max cycles x yrs max!Logic max KEYWORDS from ECNCOM F77!Save state variables in eccalc f needed for control and accumulation values needed across cycles for ECON initiation re initiation integer hrvCstCnt
- C COMMON BLOCK FOR FVS ECON REQUIRED SAVE VARIABLES C C **ECON DATE OF LAST WA DNR C Created to permit start and re start of FVS without use of save variable functionality parameter::!Logic max cycles x yrs max!Logic max KEYWORDS from ECNCOM F77!Save state variables in eccalc f needed for control and accumulation values needed across cycles for ECON initiation re initiation integer hrvRvnCnt
- C COMMON BLOCK FOR FVS ECON REQUIRED SAVE VARIABLES C C **ECON DATE OF LAST WA DNR C Created to permit start and re start of FVS without use of save variable functionality parameter::!Logic max cycles x yrs max!Logic max KEYWORDS from ECNCOM F77!Save state variables in eccalc f needed for control and accumulation values needed across cycles for ECON initiation re initiation integer logTableId
- C COMMON BLOCK FOR FVS ECON REQUIRED SAVE VARIABLES C C **ECON DATE OF LAST WA DNR C Created to permit start and re start of FVS without use of save variable functionality parameter::!Logic max cycles x yrs max!Logic max KEYWORDS from ECNCOM F77!Save state variables in eccalc f needed for control and accumulation values needed across cycles for ECON initiation re initiation integer mechCnt
- C COMMON BLOCK FOR FVS ECON REQUIRED SAVE VARIABLES C C **ECON DATE OF LAST WA DNR C Created to permit start and re start of FVS without use of save variable functionality parameter::!Logic max cycles x yrs max!Logic max KEYWORDS from ECNCOM F77!Save state variables in eccalc f needed for control and accumulation values needed across cycles for ECON initiation re initiation integer & startYear
- C COMMON BLOCK FOR FVS ECON REQUIRED SAVE VARIABLES C C **ECON DATE OF LAST WA DNR C Created to permit start and re start of FVS without use of save variable functionality parameter::!Logic max cycles x yrs max!Logic max KEYWORDS from ECNCOM F77!Save state variables in eccalc f needed for control and accumulation values needed across cycles for ECON initiation re initiation integer specCstCnt
- C COMMON BLOCK FOR FVS ECON REQUIRED SAVE VARIABLES C C **ECON DATE OF LAST WA DNR C Created to permit start and re start of FVS without use of save variable functionality parameter::!Logic max cycles x yrs max!Logic max KEYWORDS from ECNCOM F77!Save state variables in eccalc f needed for control and accumulation values needed across cycles for ECON initiation re initiation integer specRvnCnt
- C COMMON BLOCK FOR FVS ECON REQUIRED SAVE VARIABLES C C **ECON DATE OF LAST WA DNR C Created to permit start and re start of FVS without use of save variable functionality parameter::!Logic max cycles x yrs max!Logic max KEYWORDS from ECNCOM F77!Save state variables in eccalc f needed for control and accumulation values needed across cycles for ECON initiation re initiation integer sumTableId real costDisc
- C COMMON BLOCK FOR FVS ECON REQUIRED SAVE VARIABLES C C **ECON DATE OF LAST WA DNR C Created to permit start and re start of FVS without use of save variable functionality parameter::!Logic max cycles x yrs max!Logic max KEYWORDS from ECNCOM F77!Save state variables in eccalc f needed for control and accumulation values needed across cycles for ECON initiation re initiation integer sumTableId real costUndisc
- C COMMON BLOCK FOR FVS ECON REQUIRED SAVE VARIABLES C C **ECON DATE OF LAST WA DNR C Created to permit start and re start of FVS without use of save variable functionality parameter::!Logic max cycles x yrs max!Logic max KEYWORDS from ECNCOM F77!Save state variables in eccalc f needed for control and accumulation values needed across cycles for ECON initiation re initiation integer sumTableId real rate
- C COMMON BLOCK FOR FVS ECON REQUIRED SAVE VARIABLES C C **ECON DATE OF LAST WA DNR C Created to permit start and re start of FVS without use of save variable functionality parameter::!Logic max cycles x yrs max!Logic max KEYWORDS from ECNCOM F77!Save state variables in eccalc f needed for control and accumulation values needed across cycles for ECON initiation re initiation integer sumTableId real revDisc
- C COMMON BLOCK FOR FVS ECON REQUIRED SAVE VARIABLES C C **ECON DATE OF LAST WA DNR C Created to permit start and re start of FVS without use of save variable functionality parameter::!Logic max cycles x yrs max!Logic max KEYWORDS from ECNCOM F77!Save state variables in eccalc f needed for control and accumulation values needed across cycles for ECON initiation re initiation integer sumTableId real revUndisc
- C COMMON BLOCK FOR FVS ECON REQUIRED SAVE VARIABLES C C **ECON DATE OF LAST WA DNR C Created to permit start and re start of FVS without use of save variable functionality parameter::!Logic max cycles x yrs max!Logic max KEYWORDS from ECNCOM F77!Save state variables in eccalc f needed for control and accumulation values needed across cycles for ECON initiation re initiation integer sumTableId real & sevAnnCst
- C COMMON BLOCK FOR FVS ECON REQUIRED SAVE VARIABLES C C **ECON DATE OF LAST WA DNR C Created to permit start and re start of FVS without use of save variable functionality parameter::!Logic max cycles x yrs max!Logic max KEYWORDS from ECNCOM F77!Save state variables in eccalc f needed for control and accumulation values needed across cycles for ECON initiation re initiation integer sumTableId real sevAnnRvn real
- file ecnget.f
Functions
- subroutine ecnget(WK3 WK3, IPNT IPNT, ILIMIT ILIMIT)
- file ecnput.f
Functions
- subroutine ecnput(WK3 WK3, IPNT IPNT, ILIMIT ILIMIT)
- file ecocls.f
Functions
- subroutine ecocls(APASS APASS, ASPEC ASPEC, RSDI RSDI, RSI RSI, ISFLAG ISFLAG, NUM NUM, INDEX INDEX, ISEQ ISEQ)
- file ECON.F77
- file ecopls.f
Functions
- subroutine ecopls(KEYWRD KEYWRD, IDISP IDISP, PARMS PARMS, J1 J1, J2 J2)
- file ecsetp.f
Functions
- subroutine ecsetp(IY IY)
- file ecstatus.f
- file ecvol.f
- file ecvols.f
Functions
- subroutine ecvols()
- file eigen.f
Functions
- subroutine eigen(A A, R R, N N, MV MV)
- file errgro.f
Functions
- subroutine errgro(LRETRN LRETRN, IERRN IERRN)
- file esaddt.f
Functions
- subroutine esaddt(ICALL ICALL)
- file esblkd.f
- file ESCOM2.F77
Functions
Variables
- CODE SEGMENT ESCOM2 C C **ESCOM2 DATE OF LAST PXCS C C EXCLUDE THIS COMMON AREA FROM VARIANTS THAT ONLY USE THE NATURAL C AND PLANT OPTIONS C BE SURE TO INCLUDE ESPARM BEFORE ESCOM2 C USED IN ESADVH
- CODE SEGMENT ESCOM2 C C **ESCOM2 DATE OF LAST PXCS C C EXCLUDE THIS COMMON AREA FROM VARIANTS THAT ONLY USE THE NATURAL C AND PLANT OPTIONS C BE SURE TO INCLUDE ESPARM BEFORE ESCOM2 C USED IN ESBLKD
- CODE SEGMENT ESCOM2 C C **ESCOM2 DATE OF LAST PXCS C C EXCLUDE THIS COMMON AREA FROM VARIANTS THAT ONLY USE THE NATURAL C AND PLANT OPTIONS C BE SURE TO INCLUDE ESPARM BEFORE ESCOM2 C USED IN ESDLAY
- CODE SEGMENT ESCOM2 C C **ESCOM2 DATE OF LAST PXCS C C EXCLUDE THIS COMMON AREA FROM VARIANTS THAT ONLY USE THE NATURAL C AND PLANT OPTIONS C BE SURE TO INCLUDE ESPARM BEFORE ESCOM2 C USED IN ESGENT
- CODE SEGMENT ESCOM2 C C **ESCOM2 DATE OF LAST PXCS C C EXCLUDE THIS COMMON AREA FROM VARIANTS THAT ONLY USE THE NATURAL C AND PLANT OPTIONS C BE SURE TO INCLUDE ESPARM BEFORE ESCOM2 C USED IN ESNSPE
- CODE SEGMENT ESCOM2 C C **ESCOM2 DATE OF LAST PXCS C C EXCLUDE THIS COMMON AREA FROM VARIANTS THAT ONLY USE THE NATURAL C AND PLANT OPTIONS C BE SURE TO INCLUDE ESPARM BEFORE ESCOM2 C USED IN ESPADV
- CODE SEGMENT ESCOM2 C C **ESCOM2 DATE OF LAST PXCS C C EXCLUDE THIS COMMON AREA FROM VARIANTS THAT ONLY USE THE NATURAL C AND PLANT OPTIONS C BE SURE TO INCLUDE ESPARM BEFORE ESCOM2 C USED IN ESPREP
- CODE SEGMENT ESCOM2 C C **ESCOM2 DATE OF LAST PXCS C C EXCLUDE THIS COMMON AREA FROM VARIANTS THAT ONLY USE THE NATURAL C AND PLANT OPTIONS C BE SURE TO INCLUDE ESPARM BEFORE ESCOM2 C USED IN ESPSUB
- CODE SEGMENT ESCOM2 C C **ESCOM2 DATE OF LAST PXCS C C EXCLUDE THIS COMMON AREA FROM VARIANTS THAT ONLY USE THE NATURAL C AND PLANT OPTIONS C BE SURE TO INCLUDE ESPARM BEFORE ESCOM2 C USED IN C ESPXCS
- CODE SEGMENT ESCOM2 C C **ESCOM2 DATE OF LAST PXCS C C EXCLUDE THIS COMMON AREA FROM VARIANTS THAT ONLY USE THE NATURAL C AND PLANT OPTIONS C BE SURE TO INCLUDE ESPARM BEFORE ESCOM2 C USED IN C ESSUBH
- CODE SEGMENT ESCOM2 C C **ESCOM2 DATE OF LAST PXCS C C EXCLUDE THIS COMMON AREA FROM VARIANTS THAT ONLY USE THE NATURAL C AND PLANT OPTIONS C BE SURE TO INCLUDE ESPARM BEFORE ESCOM2 C USED IN C ESTAB
- CODE SEGMENT ESCOM2 C C **ESCOM2 DATE OF LAST PXCS C C EXCLUDE THIS COMMON AREA FROM VARIANTS THAT ONLY USE THE NATURAL C AND PLANT OPTIONS C BE SURE TO INCLUDE ESPARM BEFORE ESCOM2 C USED IN C ESTIME
- CODE SEGMENT ESCOM2 C C **ESCOM2 DATE OF LAST PXCS C C EXCLUDE THIS COMMON AREA FROM VARIANTS THAT ONLY USE THE NATURAL C AND PLANT OPTIONS C BE SURE TO INCLUDE ESPARM BEFORE ESCOM2 C USED IN C ESTOCK
- file ESCOMN.F77
Functions
Variables
- CODE SEGMENT ESCOMN C C **ESCOMN DATE OF LAST SUMPI C C COMMON AREA TO USE WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE ESPARM BEFORE ESCOMN C USED IN ESADVH
- CODE SEGMENT ESCOMN C C **ESCOMN DATE OF LAST SUMPI C C COMMON AREA TO USE WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE ESPARM BEFORE ESCOMN C USED IN ESBLKD
- CODE SEGMENT ESCOMN C C **ESCOMN DATE OF LAST SUMPI C C COMMON AREA TO USE WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE ESPARM BEFORE ESCOMN C USED IN ESDLAY
- CODE SEGMENT ESCOMN C C **ESCOMN DATE OF LAST SUMPI C C COMMON AREA TO USE WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE ESPARM BEFORE ESCOMN C USED IN ESGENT
- CODE SEGMENT ESCOMN C C **ESCOMN DATE OF LAST SUMPI C C COMMON AREA TO USE WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE ESPARM BEFORE ESCOMN C USED IN ESNSPE
- CODE SEGMENT ESCOMN C C **ESCOMN DATE OF LAST SUMPI C C COMMON AREA TO USE WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE ESPARM BEFORE ESCOMN C USED IN ESPADV
- CODE SEGMENT ESCOMN C C **ESCOMN DATE OF LAST SUMPI C C COMMON AREA TO USE WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE ESPARM BEFORE ESCOMN C USED IN ESPREP
- CODE SEGMENT ESCOMN C C **ESCOMN DATE OF LAST SUMPI C C COMMON AREA TO USE WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE ESPARM BEFORE ESCOMN C USED IN ESPSUB
- CODE SEGMENT ESCOMN C C **ESCOMN DATE OF LAST SUMPI C C COMMON AREA TO USE WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE ESPARM BEFORE ESCOMN C USED IN C ESPXCS
- CODE SEGMENT ESCOMN C C **ESCOMN DATE OF LAST SUMPI C C COMMON AREA TO USE WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE ESPARM BEFORE ESCOMN C USED IN C ESSUBH
- CODE SEGMENT ESCOMN C C **ESCOMN DATE OF LAST SUMPI C C COMMON AREA TO USE WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE ESPARM BEFORE ESCOMN C USED IN C ESTAB
- CODE SEGMENT ESCOMN C C **ESCOMN DATE OF LAST SUMPI C C COMMON AREA TO USE WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE ESPARM BEFORE ESCOMN C USED IN C ESTIME
- CODE SEGMENT ESCOMN C C **ESCOMN DATE OF LAST SUMPI C C COMMON AREA TO USE WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE ESPARM BEFORE ESCOMN C USED IN C ESTOCK
- file escprs.f90
Functions
- subroutine escprs(ITRGT ITRGT, DEBUG DEBUG)
- file esetpr.f
- file esfltr.f
Functions
- subroutine esfltr()
- file esgent.f
Functions
- subroutine esgent(ITRNIN ITRNIN)
- file ESHAP.F77
Functions
Variables
- CODE SEGMENT ESHAP C C **ESHAP DATE OF LAST LSPRUT INTEGER NTALLY REAL THRES2 COMMON ESHAP LSPRUT C C COMMON AREA TO BE USED WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP C USED IN ESCPRS
- CODE SEGMENT ESHAP C C **ESHAP DATE OF LAST LSPRUT INTEGER NTALLY REAL THRES2 COMMON ESHAP LSPRUT C C COMMON AREA TO BE USED WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP C USED IN ESFLTR
- CODE SEGMENT ESHAP C C **ESHAP DATE OF LAST LSPRUT INTEGER NTALLY REAL THRES2 COMMON ESHAP LSPRUT C C COMMON AREA TO BE USED WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP C USED IN ESIN
- CODE SEGMENT ESHAP C C **ESHAP DATE OF LAST LSPRUT INTEGER NTALLY REAL THRES2 COMMON ESHAP LSPRUT C C COMMON AREA TO BE USED WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP C USED IN ESINIT
- CODE SEGMENT ESHAP C C **ESHAP DATE OF LAST LSPRUT INTEGER NTALLY REAL THRES2 COMMON ESHAP LSPRUT C C COMMON AREA TO BE USED WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP C USED IN ESNUTR
- CODE SEGMENT ESHAP C C **ESHAP DATE OF LAST LSPRUT INTEGER NTALLY REAL THRES2 COMMON ESHAP LSPRUT C C COMMON AREA TO BE USED WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP C USED IN ESOUT
- CODE SEGMENT ESHAP C C **ESHAP DATE OF LAST LSPRUT INTEGER NTALLY REAL THRES2 COMMON ESHAP LSPRUT C C COMMON AREA TO BE USED WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP C USED IN ESBLKD
- CODE SEGMENT ESHAP C C **ESHAP DATE OF LAST LSPRUT INTEGER NTALLY REAL THRES2 COMMON ESHAP LSPRUT C C COMMON AREA TO BE USED WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP C USED IN C ESPLT1
- CODE SEGMENT ESHAP C C **ESHAP DATE OF LAST LSPRUT INTEGER NTALLY REAL THRES2 COMMON ESHAP LSPRUT C C COMMON AREA TO BE USED WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP C USED IN C ESPLT2
- CODE SEGMENT ESHAP C C **ESHAP DATE OF LAST LSPRUT INTEGER NTALLY REAL THRES2 COMMON ESHAP LSPRUT C C COMMON AREA TO BE USED WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP C USED IN C ESTAB
- CODE SEGMENT ESHAP C C **ESHAP DATE OF LAST LSPRUT INTEGER NTALLY REAL THRES2 COMMON ESHAP LSPRUT C C COMMON AREA TO BE USED WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP C USED IN C ESPADV
- CODE SEGMENT ESHAP C C **ESHAP DATE OF LAST LSPRUT INTEGER NTALLY REAL THRES2 COMMON ESHAP LSPRUT C C COMMON AREA TO BE USED WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP C USED IN C ESPSUB
- CODE SEGMENT ESHAP C C **ESHAP DATE OF LAST LSPRUT INTEGER NTALLY REAL THRES2 COMMON ESHAP LSPRUT C C COMMON AREA TO BE USED WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP C USED IN C ESPXCS
- CODE SEGMENT ESHAP C C **ESHAP DATE OF LAST LSPRUT INTEGER NTALLY REAL THRES2 COMMON ESHAP LSPRUT C C COMMON AREA TO BE USED WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP C USED IN C ESUCKR
- CODE SEGMENT ESHAP C C **ESHAP DATE OF LAST LSPRUT INTEGER NTALLY REAL THRES2 COMMON ESHAP LSPRUT C C COMMON AREA TO BE USED WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP C USED IN C &ESTUMP C C IHABT SUMMARY AND COUNT OF PLOT HABITAT TYPE C IPHAB PLOT HABITAT TYPE CODE C PASP PLOT ASPECT IN RADIANS DEFAULT IS STAND ASPECT C PSLO PLOT SLOPE RATIO DEFAULT IS STAND SLOPE C IPHYS PLOT PHYSIOGRAPHIC POSITION DEFAULT IS MID SLOPE C IPPREP PLOT SITE PREP TO USE VECTOR
- CODE SEGMENT ESHAP C C **ESHAP DATE OF LAST LSPRUT INTEGER NTALLY REAL THRES2 COMMON ESHAP LSPRUT C C COMMON AREA TO BE USED WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP C USED IN C &ESTUMP C C IHABT SUMMARY AND COUNT OF PLOT HABITAT TYPE C IPHAB PLOT HABITAT TYPE CODE C PASP PLOT ASPECT IN RADIANS DEFAULT IS STAND ASPECT C PSLO PLOT SLOPE RATIO DEFAULT IS STAND SLOPE C IPHYS PLOT PHYSIOGRAPHIC POSITION DEFAULT IS MID SLOPE C IPPREP PLOT SITE PREP TO USE LOAD MUST EQUAL C IPRINT CONTROLS PRINTING OF ESTABLISHMENT SUMMARIES
- CODE SEGMENT ESHAP C C **ESHAP DATE OF LAST LSPRUT INTEGER NTALLY REAL THRES2 COMMON ESHAP LSPRUT C C COMMON AREA TO BE USED WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP C USED IN C &ESTUMP C C IHABT SUMMARY AND COUNT OF PLOT HABITAT TYPE C IPHAB PLOT HABITAT TYPE CODE C PASP PLOT ASPECT IN RADIANS DEFAULT IS STAND ASPECT C PSLO PLOT SLOPE RATIO DEFAULT IS STAND SLOPE C IPHYS PLOT PHYSIOGRAPHIC POSITION DEFAULT IS MID SLOPE C IPPREP PLOT SITE PREP TO USE LOAD MUST EQUAL C IPRINT CONTROLS PRINTING OF ESTABLISHMENT THE MODEL WILL ADD C THE EXPECTED ADVANCE COMPONENT C LOAD A VARIABLE TO INDICATE WHETHER TO USE SITE PREP C FROM AN INVENTORY AS INPUT BY BY SPECIES C CONFID CURRENTLY USED TO SET THE NUMBER OF EXCESS TREES PER C SPECIES PASSED TO THE PROGNOSIS MODEL C STOADJ MULTIPLIER FOR THE PROBABILITY OF STOCKING C ITRNRM NUMBER OF TREE RECORDS TO SPROUT IN ESUCKR C LINGRW TRUE IF AUTO INGROWTH IS BEING SIMULATED
- CODE SEGMENT ESHAP C C **ESHAP DATE OF LAST LSPRUT INTEGER NTALLY REAL THRES2 COMMON ESHAP LSPRUT C C COMMON AREA TO BE USED WITH ALL REGENERATION MODEL VARIANTS C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP C USED IN C &ESTUMP C C IHABT SUMMARY AND COUNT OF PLOT HABITAT TYPE C IPHAB PLOT HABITAT TYPE CODE C PASP PLOT ASPECT IN RADIANS DEFAULT IS STAND ASPECT C PSLO PLOT SLOPE RATIO DEFAULT IS STAND SLOPE C IPHYS PLOT PHYSIOGRAPHIC POSITION DEFAULT IS MID SLOPE C IPPREP PLOT SITE PREP TO USE LOAD MUST EQUAL C IPRINT CONTROLS PRINTING OF ESTABLISHMENT THE MODEL WILL ADD C THE EXPECTED ADVANCE COMPONENT C LOAD A VARIABLE TO INDICATE WHETHER TO USE SITE PREP C FROM AN INVENTORY AS INPUT BY BY SPECIES C CONFID CURRENTLY USED TO SET THE NUMBER OF EXCESS TREES PER C SPECIES PASSED TO THE PROGNOSIS MODEL C STOADJ MULTIPLIER FOR THE PROBABILITY OF STOCKING C ITRNRM NUMBER OF TREE RECORDS TO SPROUT IN ESUCKR C LINGRW TRUE IF AUTO INGROWTH IS BEING FALSE IF NOT C LAUTAL TRUE IF AUTO TALLIES ARE BEING INCLUDED C IYRLRM THE YEAR OF LAST REMOVAL SET IN ESNUTR C NTALLY THE CURRENT TALLY NUMBER C XTES RATIO OF REMOVALS AS CALCULATED IN ESNUTR C THRES1 LOWER THRESHOLD OF REMOVALS THAT TRIGGERS ONE TALLY C THRES2 UPPER THRESHOLD OF REMOVALS THAT TRIGGERS A TALLY C SEQUENCE BOTH THRES1 &THRES2 ARE RATIOS C LSPRUT TRUE IF SPROUTING LOGIC IS ON
- file ESHAP2.F77
Functions
Variables
- CODE SEGMENT ESHAP2 C C **ESHAP2 DATE OF LAST PLPROB C C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP2 C USED IN ESCPRS
- CODE SEGMENT ESHAP2 C C **ESHAP2 DATE OF LAST PLPROB C C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP2 C USED IN ESFLTR
- CODE SEGMENT ESHAP2 C C **ESHAP2 DATE OF LAST PLPROB C C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP2 C USED IN ESIN
- CODE SEGMENT ESHAP2 C C **ESHAP2 DATE OF LAST PLPROB C C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP2 C USED IN ESINIT
- CODE SEGMENT ESHAP2 C C **ESHAP2 DATE OF LAST PLPROB C C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP2 C USED IN ESNUTR
- CODE SEGMENT ESHAP2 C C **ESHAP2 DATE OF LAST PLPROB C C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP2 C USED IN ESOUT
- CODE SEGMENT ESHAP2 C C **ESHAP2 DATE OF LAST PLPROB C C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP2 C USED IN ESBLKD
- CODE SEGMENT ESHAP2 C C **ESHAP2 DATE OF LAST PLPROB C C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP2 C USED IN C ESPLT1
- CODE SEGMENT ESHAP2 C C **ESHAP2 DATE OF LAST PLPROB C C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP2 C USED IN C ESPLT2
- CODE SEGMENT ESHAP2 C C **ESHAP2 DATE OF LAST PLPROB C C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP2 C USED IN C ESTAB
- CODE SEGMENT ESHAP2 C C **ESHAP2 DATE OF LAST PLPROB C C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP2 C USED IN C ESPADV
- CODE SEGMENT ESHAP2 C C **ESHAP2 DATE OF LAST PLPROB C C BE SURE TO INCLUDE PRGPRM F77 BEFORE ESHAP2 C USED IN C ESPSUB
- file eshap_mod.f90
- file ESHOOT.F77
Functions
Variables
- CODE SEGMENT ESHOOT C C **ESHOOT COMMON DATE OF LAST ASBAR INTEGER DSTUMP C C BE SURE TO INCLUDE ESPARM BEFORE ESHOOT C ESHOOT IS FOUND IN ESTUMP AND ESUCKR C C ISHOOT A CONCATINATED DIGIT NUMBER HOLDING INFORMATION ON C STUMPS THAT WILL SPROUT THE FIRST DIGITS IDENTIFY C THE DIAMETER CLASS THE NEXT DIGITS IDENTIFY THE C SPECIES THE LAST DIGITS IDENTIFY THE PLOT NUMBER C PRBREM HOLDS THE AMOUNT OF PROB REMOVED IN CUTTING THE TREE C RECORD C JSHAGE HOLDS THE AGE OF SPROUTS AT THE END OF THE CYCLE C IN WHICH THEY WERE CREATED
- CODE SEGMENT ESHOOT C C **ESHOOT COMMON DATE OF LAST ASBAR INTEGER DSTUMP C C BE SURE TO INCLUDE ESPARM BEFORE ESHOOT C ESHOOT IS FOUND IN ESTUMP AND ESUCKR C C ISHOOT A CONCATINATED DIGIT NUMBER HOLDING INFORMATION ON C STUMPS THAT WILL SPROUT THE FIRST DIGITS IDENTIFY C THE DIAMETER CLASS THE NEXT DIGITS IDENTIFY THE C SPECIES THE LAST DIGITS IDENTIFY THE PLOT NUMBER C PRBREM HOLDS THE AMOUNT OF PROB REMOVED IN CUTTING THE TREE C RECORD C JSHAGE HOLDS THE AGE OF SPROUTS AT THE END OF THE CYCLE C IN WHICH THEY WERE CALCULATED AS ISHAG IN C CUTS AND FMKILL
- file esin.f
Functions
- subroutine esin(PASKEY PASKEY, ARRAY ARRAY, LNOTBK LNOTBK, KARD KARD, LKECHO LKECHO)
- file esinit.f
Functions
- subroutine esinit()
- file esmsgs.f
Functions
- subroutine esmsgs(JOREGT JOREGT)
- file esnutr.f
Functions
- subroutine esnutr()
- file esout.f
Functions
- subroutine esout(LFG LFG)
- file ESPARM.F77
- file esplt1.f
Functions
- subroutine esplt1(ITREI ITREI, IMC1 IMC1, NPNVRS NPNVRS, IPVARS IPVARS)
- file esplt2.f
Functions
- subroutine esplt2(IPTKNT IPTKNT)
- file esprep.f
- file esprin.f
- file esrann.f
Functions
- subroutine esrann(SEL SEL)
- file ESRNCM.F77
- file essprt.f
Functions
- subroutine essprt(VAR VAR, ISPC ISPC, NSPT NSPT, PREM PREM, DSTMP DSTMP)
- file essubh.f
Functions
- subroutine essubh(I I, HHT HHT, EMSQR EMSQR, DILATE DILATE, DELAY DELAY, ELEVDUM ELEVDUM, IHTSER IHTSER, GENTIM GENTIM, TRAGE TRAGE)
- file estab.f
Functions
- subroutine estab(KDT KDT)
- file ESTCOR.F77
- file estime.f
Functions
- subroutine estime(IEVTYR IEVTYR, KDT KDT)
- file ESTREE.F77
- file estree_mod.f90
- file estump.f
Functions
- subroutine estump(JSSP JSSP, DBH DBH, PREM PREM, JPLOT JPLOT, ISHAG ISHAG)
- file esuckr.f
Functions
- subroutine esuckr()
- file ESWSBW.F77
- file evage.f
Functions
- subroutine evage(IDTE IDTE)
- file evalnk.f
Functions
- subroutine evalnk(JOSTND JOSTND, IEN IEN, IALNK IALNK)
- file evcomp.f
- file evif.f
- file evkey.f
Functions
- subroutine evkey(CTOK CTOK, NUM NUM, IRC IRC)
- file evldx.f
Functions
- subroutine evldx(XLDREG XLDREG, NXLDX NXLDX, INSTR INSTR, IRC IRC)
- file evmkv.f
Functions
- subroutine evmkv(CTOK CTOK)
- file evmon.f
Functions
- subroutine evmon(IPH IPH, IPPCL IPPCL)
- file evpost.f
Functions
- subroutine evpost(JOSTND JOSTND, IEN IEN, IDTE IDTE, NGRPS NGRPS, IALNK IALNK)
- file evpred.f
Functions
- subroutine evpred()
- file evtact.f
Functions
- subroutine evtact()
- file evtstv.f
Functions
- subroutine evtstv(IUSERV IUSERV)
- file evusrv.f
- file exbgc.f
Functions
- subroutine exbgc()
- file exbm.f
Functions
- subroutine exbm()
- file exbrus.f
Functions
- subroutine exbrus()
- file exbudl.f
Functions
- subroutine exbudl()
- file excfim.f
Functions
- subroutine excfim()
- file exdfb.f
Functions
- subroutine exdfb()
- file exdftm.f
Functions
- subroutine exdftm()
- file exmpb.f
Functions
- subroutine exmpb()
- file exppe.f
Functions
- subroutine exppe()
- file exppnb.f
Functions
- subroutine exppnb()
- file exrd.f
Functions
- subroutine exrd()
- file extree.f
Functions
- subroutine extree()
- file f_alaska.f
- file f_ingy.f
Functions
- real *4 function brk_upb2(jsp jsp, dbh dbh, totalh totalh, dbt_bh dbt_bh, h h, dob dob)
- file f_other.f
Functions
- subroutine brk_ot(JSP JSP, geosub geosub, DBHOB DBHOB, DOB DOB, HT2 HT2, DBTBH DBTBH, DIB DIB, dbt dbt)
- subroutine shp_ot(JSP JSP, DBHOB DBHOB, HTTOT HTTOT, RFLW RFLW, RHFW RHFW)
- subroutine var_ot(JSP JSP, DBHOB DBHOB, HTTOT HTTOT, H H, SE_LNX SE_LNX)
- subroutine shp_bh(DBHOB DBHOB, HTTOT HTTOT, RFLW RFLW, RHFW RHFW)
- subroutine var_bh(DBHOB DBHOB, HTTOT HTTOT, HUP HUP, SE SE)
- file f_west.f
Functions
- subroutine shp_w3(DBHOB DBHOB, HTTOT HTTOT, GeoSUB GeoSUB, RFLW RFLW, RHFW RHFW)
- subroutine shp_w4(DBHOB DBHOB, HTTOT HTTOT, GeoSUB GeoSUB, RFLW RFLW, RHFW RHFW)
- subroutine shp_w5(DBHOB DBHOB, HTTOT HTTOT, GeoSUB GeoSUB, RFLW RFLW, RHFW RHFW)
- subroutine var_c1(JSP JSP, DBHOB DBHOB, HTTOT HTTOT, H H, DIBmod DIBmod, DIBact DIBact, Z Z)
- subroutine sf_zfd3(DBHOB DBHOB, HTTOT HTTOT, h h, DIBMOD DIBMOD, DIBACT DIBACT, Z Z)
- subroutine sf_zfd4(DBHOB DBHOB, HTTOT HTTOT, h h, DIBMOD DIBMOD, DIBACT DIBACT, Z Z)
- subroutine sf_zfd5(DBHOB DBHOB, HTTOT HTTOT, h h, DIBMOD DIBMOD, DIBACT DIBACT, Z Z)
- file ffert.f
Functions
- subroutine ffert()
- file ffin.f
- file filopn.f
Functions
- subroutine filopn()
- subroutine openifclosed(ifileref ifileref, sufx sufx, lok lok)
- file findage_mod.f90
- file fm_fofem.c
- #include <windows.h>#include <stdlib.h>#include <stdio.h>#include <math.h>#include <string.h>#include “fm_fofem.h”#include “fof_co.h”#include “fof_co2.h”#include “fof_ci.h”#include “fof_cm.h”#include “fof_sh.h”
Defines
- eC_fhT
- eeC_EML
Functions
- void TestParm(float fr_In[], float fr_Out[], char cr[])
- int Put_Soil(d_SO * a_SO)
- void Test_In(float fr_In[])
- __declspec(dllexport)
Variables
- FILE * fhT
- char gcr_EM[3000]
- file fm_fofem.h
Defines
- eX_Deg
- eX_SL60
- eX_SL275
- eX_EM
- eX_1Hr
- eX_10Hr
- eX_100Hr
- eX_Snd_DW3
- eX_Snd_DW6
- eX_Snd_DW9
- eX_Snd_DW20
- eX_Rot_DW3
- eX_Rot_DW6
- eX_Rot_DW9
- eX_Rot_DW20
- eX_Duff
- eX_DufDep
- eX_Litter
- eX_Herb
- eX_Shrub
- eX_CroFol
- eX_CroBra
- eX_Pc_CroBrn
- eX_MoistDW10
- eX_MoistDW1k
- eX_MoistDuff
- eX_MoistSoil
- eX_MoistCond
- e_xVeryDry
- e_xDry
- e_xModerate
- e_xWet
- eX_SoilType
- e_xLoaSke
- e_xFinSil
- e_xFin
- e_xCoaSil
- e_xCoaLoa
- eX_MM
- e_xEntire
- e_xLower
- e_xNFDR
- e_xAdj_NFDR
- eX_Season
- e_xSpring
- e_xSummer
- e_xFall
- e_xWinter
- eX_Region
- e_xIntWest
- e_xPacific
- e_xSE
- e_xNE
- eX_FuelCat
- e_xNatural
- e_xPiles
- e_xSlash
- eX_MM_CovGrp
- e_xGrassGroup
- e_xSageBrush
- e_xShrubGroup
- e_xPocosin
- e_xPonderosa
- e_xWhiPinHem
- e_xRedJacPin
- e_xBalBRWSpr
- eX_OutFile
Functions
- int fm_fofem(float fr_In[], float fr_Out[], char cr_ErrMes[])
- file fmbrkt.f
- file fmburn.f
Functions
- subroutine fmburn(IYR IYR, FMD FMD, LNMOUT LNMOUT)
- file fmcadd.f
Functions
- subroutine fmcadd()
- file fmcba.f
Functions
- subroutine fmcba(IYR IYR, ISWTCH ISWTCH)
- file fmcbio.f
Functions
- subroutine fmcbio(D D, KSP KSP, ABIO ABIO, MBIO MBIO, RBIO RBIO)
- file fmcblk.f
- file fmcfir.f
Functions
- subroutine fmcfir(IYR IYR, FMOIS FMOIS, WMULT WMULT, SWIND SWIND, CFTMP CFTMP, OINIT1 OINIT1, OACT1 OACT1, HPA HPA)
- file fmcfmd.f
Functions
- subroutine fmcfmd(IYR IYR, FMD FMD)
- file fmcfmd2.f
Functions
- subroutine fmcfmd2(IYR IYR, FMD FMD)
- subroutine fmcfmd3(IYR IYR, FMD FMD)
- file fmchkfwt.f
Functions
- logical function fmchkfwt(I2 I2)
- file fmchrvout.f90
Functions
- subroutine fmchrvout(IYR IYR)
- file fmcmpr.f
Functions
- subroutine fmcmpr(NCLAS NCLAS)
- file FMCOM.F77
Typedefs
- typedef Unpiled, 2=Piled, 3=summation *(-, 1:11,-,-) MXFLCL categories defined in FMPARM.F77 *(-,-, 1:2,-) 1=SOFT, 2=HARD *(-,-,-, 1:4) 1=V.Slow,..., 4=Fast decay rate *CWD2B:debris-in-waiting:dead crown material which is scheduled to *become down debris at appropriate points in the future.*Dimensioned by debris-decay-rate class, debris-size class,*and time into the future(category 1 is the material that *will come down the next time FMCADD is called).Kept as POUNDS *per acre.Updated at the beginning of each FVS cycle.*Includes all crown material on snags and the fire-killed but *not-consumed crown material on live trees.*(1:4,-,-) 1=V.Slow,..., 4=Fast decay rate *(-, 0:5,-) crown weight categoriess as defined in FMPARM.F77 *(-,-, TFMAX) TFMAX as defined in FMPARM.F77 *If the TFMAX dimension is increased, then loop-limits that *involve that variable should be re-examined(see FMSCRO)*CWD2B2:dimensioned like CWD2B, this is crown material from trees *killed during the current FVS cycle.It won't start falling *until after it is added to CWD2B(at the end of the year).***Indexed the same way as CWD2B ***CWDVOL:array for down woody debris, it holds down wood volume *in cuft/acre.Dimensioned like CWD, but without the litter and *duff categories.The tenth position is the total volume of the woody *classes instead.*CWDCOV:array for down woody debris, it holds down wood cover *in percent.Dimensioned like CWD, but without the litter and *duff categories.The tenth position is the total cover of the woody *classes instead.*CWDCUT:the proportion of CWD2B that has been 'CUT'by salvage *operations in the current year(based on the proportion *of total snag volume removed in the salvage operation).*CWDNEW:The 'new'debris pool inputs, by source(crown/boles) and *size class.*DBHS:DBH of Snags in each record *DBHSSALV:DBH of Snags in each record passed from FMSALV to FMEVMON for *post-cut EM calculations *DECAYX:rate-of-DECAY correction factors for each snag species class *DENIH:DENsity(stems per acre) of Initially-Hard snags in each record *DENIS:DENsity(stems per acre) of Initially-Soft snags in each record *DEND:DENsity(stems per acre) of snags in each record at *time of Death *DKR:Mineralization rates for logs of each species *DKRCLS:1-4 Decay rate class(MAXSP):1=v.slow ways
Functions
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION CROWNW(MAXTRE, 0:5)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION CWD2B(4, 0:5, TFMAX)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL CWDVOL(3, 10, 2, 5)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL CWDCOV(3, 10, 2, 5)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL CWDNEW(2, MXFLCL)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL DENIS(MXSNAG)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER DKRCLS(MAXSP)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FALLX(MAXSP)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER FMICR(MAXTRE)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER GROW(MAXTRE)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTX(MAXSP, 4)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER JFROUT(3)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER JLOUT(3)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LFROUT(3)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL MAXHT(MAXSP, 19)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDICTWT(2)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRL(MAXTRE)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDHT(MAXTRE)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION OLDCRW(MAXTRE, 0:5)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBFRIS(MXSNAG)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL PRDUFF(MXFLCL, 4)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL SETDECAY(MXFLCL, 4)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL TCWD2(6)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL V2T(MAXSP)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL DBHSSALV(MXSNAG)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL HTIHSALV(MXSNAG)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL HTDEADSALV(MXSNAG)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL PREMCR(MAXTRE)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL HTC(MAXTRE)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL CROWNWC(MAXTRE, 0:5)
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM CROWNWC ************************************************************************COMMON BLOCK **FMCLCOM ***VARIABLES RELATED TO THE EFFECT OF CLIMATE ON FFE PARAMETERS *THROUGH CWD DECAY RATE IMPLEMENTED IN BC VARIANT(2013)*Dimensions of Q10CWD AND REFMATCWD arrays must equal *to MXFLCL+1 from FMPARMS.F77 **Q10CWD THE IS FOR ROOT *DECAY WHICH ARE NOT INCLUDED WITH CWD CATEGORIES Q10CWD(MXFLCL+ 1)
Variables
- BY TREE RECORD * FLIVE
- if requested but *no report reference number is assigned
- if requested but *no report reference number is is the *report reference number for each species * LFMON
- if requested but *no report reference number is is the *report reference number for each species the fraction of all non foliage crown *material that falls off live trees each year * LREMT
- otherwise FALSE *FMVINIT ** NSNAG
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW * OLDHT
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class * SNGNEW
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW * TODUFF
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM * PREMCR
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM * ISPCC
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM * DBHC
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM * HTC
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM * CROWNWC
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM * ICYCRM
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION MXFLCL
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTR2
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICANSP
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR1
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISALVC
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISALVS
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDCOVTYP
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBSOFT
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBSIZE
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBSMAL
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMC
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMS
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM & ALLDWN
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM BURNYR
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM CANMHT
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM CBHCUT
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM & COVTYP
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM CRBURN
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM CROWNW
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM CURKIL
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM CWD
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM CWD2B
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM & CWD2B2
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM CWDCUT
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM CWDNEW
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM CWDVOL
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM CWDCOV
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM & DBHS
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM DECAYX
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM DENIH
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM DENIS
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM DEND
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM DKR
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM DKRCLS
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM & DKRDEF
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM DSPDBH
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM & FALLX
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM FIRKIL
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM FOLMC
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM FMPROB
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM & FMICR
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM FMKOD
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM FMSLOP
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM FTREAT
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM & FUAREA
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM HARD
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM HARTYP
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM HARVYR
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM HTDEAD
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM HTIH
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM & HTIS
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM HTR1
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM HTX
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM HTXSFT
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM ICBHMT
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM IFMYR2
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM IFTYR
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM ISNGSM
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM & ITRNL
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM JFROUT
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM & JLOUT
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM LANHED
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM LEAFLF
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM LFMON2
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM LFROUT
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM & LDYNFM
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM LIMBRK
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM LDHEAD
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM LSHEAD
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM LVWEST
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM MAXHT
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM MINHT
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM NYRS
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM NZERO
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM OLDCRL
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM OLDCRW
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM OLDICT2
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM OLDICTWT
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM & PBFRIH
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM PBFRIS
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM PBSCOR
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM PBTIME
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM PBURNYR
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM PERCOV
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM & PRDUFF
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM PRSNAG
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM PSOFT
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM PRPILE
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM SALVSPA
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM & SCCF
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM SETDECAY
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM SNPRCL
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM SPS
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM TCWD
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM TCWD2
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM TFALL
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM TONRMH
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM & TOTACR
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM V2T
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM YRDEAD
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM NSNAGSALV
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM HTDEADSALV
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM & SPSSALV
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM DBHSSALV
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM HTIHSALV
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM HTISSALV
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM HARDSALV
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM & PREMST
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM CROWNWC ************************************************************************COMMON BLOCK **FMCLCOM ***VARIABLES RELATED TO THE EFFECT OF CLIMATE ON FFE PARAMETERS *THROUGH CWD DECAY RATE IMPLEMENTED IN BC VARIANT(2013)*Dimensions of Q10CWD AND REFMATCWD arrays must equal *to MXFLCL+1 from FMPARMS.F77 **Q10CWD THE IS FOR ROOT *DECAY RATES
- otherwise FALSE *FMVINIT variable holds the weight of each size of old material *that is to fall in each year of the cycle *Dimensioned like CROWNW a value greater than is *the actual rate set for that class *dimensioned by tree species and crown material size class Dimensioned like CROWNW used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM used in FMEVTBM CBHCUT INTEGER COVTYP REAL CRBURN REAL CROWNW DIMENSION REAL CWD2B DIMENSION TFMAX REAL INTEGER REAL FOLMC INTEGER INTEGER HTXSFT INTEGER ICBHMT INTEGER IFMYR2 INTEGER IFTYR INTEGER ISNGSM INTEGER LFMON2 LOGICAL LREMT REAL INTEGER NSNAG INTEGER NYRS INTEGER OLDICT2 REAL OLDCRW DIMENSION PBSCOR REAL PBTIME INTEGER PBURNYR REAL PERCOV REAL REAL SCCF REAL REAL TONRMH REAL TOTACR REAL NSNAGSALV REAL ITRNL COMMON FMCOM CROWNWC ************************************************************************COMMON BLOCK **FMCLCOM ***VARIABLES RELATED TO THE EFFECT OF CLIMATE ON FFE PARAMETERS *THROUGH CWD DECAY RATE IMPLEMENTED IN BC VARIANT(2013)*Dimensions of Q10CWD AND REFMATCWD arrays must equal *to MXFLCL+1 from FMPARMS.F77 **Q10CWD THE IS FOR ROOT *DECAY WHICH ARE NOT INCLUDED WITH CWD CATEGORIES * REFMATCWD
- file fmcom_mod.f90
- file fmcons.f
Functions
- subroutine fmcons(FMOIS FMOIS, BTYPE BTYPE, PLAREA PLAREA, IYR IYR, ICALL ICALL, PSMOKE PSMOKE, PSBURN PSBURN)
- file fmcrbout.f90
Functions
- subroutine fmcrbout(IYR IYR)
- file fmcrow.f
Functions
- subroutine fmcrow()
- file fmcrowe.f
Functions
- subroutine fmcrowe(SPILS SPILS, SPIYV SPIYV, D D, H H, IC IC, SG SG, XV XV)
- file fmcroww.f
Functions
- subroutine fmcroww(SPI SPI, D D, H H, ITRNC ITRNC, IC IC, HP HP, SG SG, XV XV)
- file fmcwd.f
Functions
- subroutine fmcwd(IYR IYR)
- file fmdout.f90
Functions
- subroutine fmdout(IYR IYR)
- file fmdyn.f
Functions
- subroutine fmdyn(SM SM, LG LG, ITYP ITYP, XPTS XPTS, EQWT EQWT, IPTR IPTR, ICLSS ICLSS, LDYN LDYN, FMD FMD)
- file fmeff.f
Functions
- subroutine fmeff(IYR IYR, FM FM, FLAME FLAME, ICALL ICALL, POMORT POMORT, PVOLKL PVOLKL, MKODE MKODE, PSBURN PSBURN)
- file fmevmon.f
Functions
- subroutine fmevmon()
- file FMFCOM.F77
- file fmfcom_mod.f90
- file fmfint.f
Functions
- subroutine fmfint(IYR IYR, BYRAM BYRAM, FLAME FLAME, FTYP FTYP, HPA HPA, ICALL ICALL)
- file fmfout.f
Functions
- subroutine fmfout(IYR IYR, FLAME FLAME, FMD FMD, IFIRE IFIRE, CFTMP CFTMP)
- file fmgfmv.f
Functions
- subroutine fmgfmv(IYR IYR, IFMD IFMD)
- file fmhide.f
Functions
- subroutine fmhide(ISTD ISTD, IYR IYR)
- file fmin.f
- file fminit.f
Functions
- subroutine fminit()
- file fmkill.f
Functions
- subroutine fmkill(ICALL ICALL)
- file fmmain.f
Functions
- subroutine fmmain()
- file fmmois.f
Functions
- subroutine fmmois(FMOIS FMOIS, MOIS MOIS)
- file fmoldc.f
Functions
- subroutine fmoldc()
- file FMPARM.F77
Variables
- file fmparm_mod.f90
- file fmphotocode.f
Functions
- subroutine fmphotocode(FotoRef FotoRef, CFotoCode CFotoCode, Fotocode Fotocode, Icall Icall)
- file fmphotoval.f
Functions
- subroutine fmphotoval(FotoRef FotoRef, Fotocode Fotocode, FotoVal FotoVal, FotoValS FotoValS)
- file fmpocr.f
Functions
- subroutine fmpocr(IYR IYR, ICALL ICALL)
- file fmpofl.f
Functions
- subroutine fmpofl(IYR IYR, FMD FMD, LNMOUT LNMOUT)
- subroutine fmpofl_fmptrh(IYR IYR, MXI MXI, PRB PRB, FLM1 FLM1, FLM2 FLM2, PTR1 PTR1, PTR2 PTR2)
- subroutine fmpofl_nprob(Z Z, P P, Q Q, PDF PDF)
- file fmppget.f
Functions
- subroutine fmppget(WK3 WK3, IPNT IPNT, ILIMIT ILIMIT)
- file fmppput.f
Functions
- subroutine fmppput(WK3 WK3, IPNT IPNT, ILIMIT ILIMIT)
- file FMPROP.F77
- file fmprop_mod.f90
- file fmprun.f
Functions
- subroutine fmprun(CTCRWN CTCRWN)
- file fmr6fall.f
Functions
- subroutine fmr6fall(KSP KSP, SML SML, JADJ JADJ, X X)
- file fmr6htls.f
Functions
- subroutine fmr6htls(KSP KSP, X X)
- file fmr6sdcy.f
Functions
- subroutine fmr6sdcy(KSP KSP, DBH DBH, X X, Y Y, SML SML)
- file fmsadd.f
Functions
- subroutine fmsadd(YEAR YEAR, ITYP ITYP)
- file fmsalv.f
Functions
- subroutine fmsalv(IYR IYR, SALVTPA SALVTPA)
- file fmscro.f
Functions
- subroutine fmscro(I I, SP SP, DEADYR DEADYR, DSNAGS DSNAGS, ICALL ICALL)
- file fmscut.f
Functions
- subroutine fmscut(MXVOL MXVOL, NR NR, NC NC, SSNG SSNG, DSNG DSNG, CTCRWN CTCRWN, TKCRWN TKCRWN)
- file fmsdit.f
Functions
- subroutine fmsdit()
- file fmsfall.f
Functions
- subroutine fmsfall(IYR IYR, KSP KSP, D D, ORIGDEN ORIGDEN, DENTTL DENTTL, ISWTCH ISWTCH, RSOFT RSOFT, RSMAL RSMAL, DFALLN DFALLN)
- file fmsnag.f
Functions
- subroutine fmsnag(IYR IYR, YR1 YR1)
- file fmsngdk.f
Functions
- subroutine fmsngdk(VVER VVER, KSP KSP, D D, DKTIME DKTIME)
- file fmsnght.f
Functions
- subroutine fmsnght(VVER VVER, KSP KSP, HTD HTD, HTCURR HTCURR, IHRD IHRD, HTSNEW HTSNEW)
- file fmsoilheat.f
Functions
- subroutine fmsoilheat(IYR IYR, LNMOUT LNMOUT)
- file fmsout.f
Functions
- subroutine fmsout(IYR IYR)
- file fmssee.f
Functions
- subroutine fmssee(IT IT, JSP JSP, D D, H H, SNUM SNUM, ITYP ITYP, DEBUG DEBUG, IOUT IOUT)
- file fmssum.f
Functions
- subroutine fmssum(IYR IYR)
- file FMSVCM.F77
Functions
- CODE SEGMENT FMSVCM C C $Id C C **FMSVCM FIRE C C C THIS COMMON AREA IS USED ONLY BY FMSVOUT RELATED INCLUDING C AND FMSVTREE C C THE POINTS ARE EQUALLY SPACED ACROSS C THE AND EACH VALUE REPRESENTS A Y VALUE AVERAGE HALF WAY C TO THE NEXT POINT C INTEGER NFLPTS REAL FMY1(NFLPTS)
- CODE SEGMENT FMSVCM C C $Id C C **FMSVCM FIRE C C C THIS COMMON AREA IS USED ONLY BY FMSVOUT RELATED INCLUDING C AND FMSVTREE C C THE POINTS ARE EQUALLY SPACED ACROSS C THE AND EACH VALUE REPRESENTS A Y VALUE AVERAGE HALF WAY C TO THE NEXT POINT C INTEGER NFLPTS REAL FMY2(NFLPTS)
- CODE SEGMENT FMSVCM C C $Id C C **FMSVCM FIRE C C C THIS COMMON AREA IS USED ONLY BY FMSVOUT RELATED INCLUDING C AND FMSVTREE C C THE POINTS ARE EQUALLY SPACED ACROSS C THE AND EACH VALUE REPRESENTS A Y VALUE AVERAGE HALF WAY C TO THE NEXT POINT C INTEGER NFLPTS REAL OFFSET(NFLPTS)
- CODE SEGMENT FMSVCM C C $Id C C **FMSVCM FIRE C C C THIS COMMON AREA IS USED ONLY BY FMSVOUT RELATED INCLUDING C AND FMSVTREE C C THE POINTS ARE EQUALLY SPACED ACROSS C THE AND EACH VALUE REPRESENTS A Y VALUE AVERAGE HALF WAY C TO THE NEXT POINT C INTEGER NFLPTS REAL CATCHUP(NFLPTS)
- CODE SEGMENT FMSVCM C C $Id C C **FMSVCM FIRE C C C THIS COMMON AREA IS USED ONLY BY FMSVOUT RELATED INCLUDING C AND FMSVTREE C C THE POINTS ARE EQUALLY SPACED ACROSS C THE AND EACH VALUE REPRESENTS A Y VALUE AVERAGE HALF WAY C TO THE NEXT POINT C INTEGER NFLPTS REAL FLAMEHT INTEGER IOBJTPTMP(MXSVOB)
Variables
- CODE SEGMENT FMSVCM C C $Id C C **FMSVCM FIRE C C C THIS COMMON AREA IS USED ONLY BY FMSVOUT RELATED ROUTINES
- CODE SEGMENT FMSVCM C C $Id C C **FMSVCM FIRE C C C THIS COMMON AREA IS USED ONLY BY FMSVOUT RELATED INCLUDING C FMSVTOBJ
- CODE SEGMENT FMSVCM C C $Id C C **FMSVCM FIRE C C C THIS COMMON AREA IS USED ONLY BY FMSVOUT RELATED INCLUDING C FMSVOUT
- CODE SEGMENT FMSVCM C C $Id C C **FMSVCM FIRE C C C THIS COMMON AREA IS USED ONLY BY FMSVOUT RELATED INCLUDING C FMSVFL
- CODE SEGMENT FMSVCM C C $Id C C **FMSVCM FIRE C C C THIS COMMON AREA IS USED ONLY BY FMSVOUT RELATED INCLUDING C AND FMSVTREE C C NOTE
- CODE SEGMENT FMSVCM C C $Id C C **FMSVCM FIRE C C C THIS COMMON AREA IS USED ONLY BY FMSVOUT RELATED INCLUDING C AND FMSVTREE C C THE POINTS ARE EQUALLY SPACED ACROSS C THE PLOT
- CODE SEGMENT FMSVCM C C $Id C C **FMSVCM FIRE C C C THIS COMMON AREA IS USED ONLY BY FMSVOUT RELATED INCLUDING C AND FMSVTREE C C THE POINTS ARE EQUALLY SPACED ACROSS C THE AND EACH VALUE REPRESENTS A Y VALUE AVERAGE HALF WAY C TO THE NEXT POINT C INTEGER NFLPTS REAL FLPART
- CODE SEGMENT FMSVCM C C $Id C C **FMSVCM FIRE C C C THIS COMMON AREA IS USED ONLY BY FMSVOUT RELATED INCLUDING C AND FMSVTREE C C THE POINTS ARE EQUALLY SPACED ACROSS C THE AND EACH VALUE REPRESENTS A Y VALUE AVERAGE HALF WAY C TO THE NEXT POINT C INTEGER NFLPTS REAL FLAMEHT INTEGER IFMTYP
- CODE SEGMENT FMSVCM C C $Id C C **FMSVCM FIRE C C C THIS COMMON AREA IS USED ONLY BY FMSVOUT RELATED INCLUDING C AND FMSVTREE C C THE POINTS ARE EQUALLY SPACED ACROSS C THE AND EACH VALUE REPRESENTS A Y VALUE AVERAGE HALF WAY C TO THE NEXT POINT C INTEGER NFLPTS REAL FLAMEHT INTEGER FMY2
- CODE SEGMENT FMSVCM C C $Id C C **FMSVCM FIRE C C C THIS COMMON AREA IS USED ONLY BY FMSVOUT RELATED INCLUDING C AND FMSVTREE C C THE POINTS ARE EQUALLY SPACED ACROSS C THE AND EACH VALUE REPRESENTS A Y VALUE AVERAGE HALF WAY C TO THE NEXT POINT C INTEGER NFLPTS REAL FLAMEHT INTEGER OFFSET
- CODE SEGMENT FMSVCM C C $Id C C **FMSVCM FIRE C C C THIS COMMON AREA IS USED ONLY BY FMSVOUT RELATED INCLUDING C AND FMSVTREE C C THE POINTS ARE EQUALLY SPACED ACROSS C THE AND EACH VALUE REPRESENTS A Y VALUE AVERAGE HALF WAY C TO THE NEXT POINT C INTEGER NFLPTS REAL FLAMEHT INTEGER CATCHUP
- file fmsvfl.f
Functions
- subroutine fmsvfl(NOUT NOUT)
- subroutine fmgetfl(ASIZE ASIZE, FLINE FLINE)
- file fmsvol.f
Functions
- subroutine fmsvol(II II, XHT XHT, VOL2HT VOL2HT, DEBUG DEBUG, IOUT IOUT)
- file fmsvout.f
Functions
- subroutine fmsvout(IYEAR IYEAR, FLMHTIN FLMHTIN, IFTYP IFTYP)
- file fmsvsync.f
Functions
- subroutine fmsvsync()
- file fmsvtobj.f
Functions
- subroutine fmsvtobj(IFTYP IFTYP)
- file fmsvtree.f
Functions
- subroutine fmsvtree(NOUT NOUT, ISVOBJ ISVOBJ)
- file fmtdel.f
Functions
- subroutine fmtdel(IVAC IVAC, IREC IREC)
- file fmtret.f
Functions
- subroutine fmtret(IYR IYR)
- subroutine fmfmov(IYR IYR)
- file fmtrip.f
Functions
- subroutine fmtrip(ITFN ITFN, I I, WEIGHT WEIGHT)
- file fmusrfm.f
Functions
- subroutine fmusrfm(IYR IYR, FMD FMD)
- file fmvinit.f
Functions
- subroutine fmvinit()
- file fndkey.f
Functions
- subroutine fndkey(NUMBER NUMBER, KEYWRD KEYWRD, TABLE TABLE, ISIZE ISIZE, KODE KODE, DEBUG DEBUG, IOUT IOUT)
- file fof_ansi.h
Functions
- int xstrcmpi(char a[], char b[])
- void xstrupr(char cr[])
- file fof_bcm.c
- #include <windows.h>#include <stdlib.h>#include <stdio.h>#include <math.h>#include <string.h>#include “fof_ansi.h”#include “bur_brn.h”#include “bur_bov.h”#include “fof_co.h”#include “fof_ci.h”#include “fof_bcm.h”#include “fof_lem.h”#include “fof_util.h”#include “fof_sgv.h”
Defines
- printf
Functions
- void xprintf(const char *, ...)
- void Fue_CalcPP(float f_Pre, float f_Con, float * af_Pos, float * af_Per, char cr_ErrMes[])
- float _PerCon(float f_Pre, float f_Con)
- void _SetNoIgn(d_CO * a_CO)
- void BCM_SetInputs(d_CI * a_CI)
- float BCM_DW10M_Adj(char cr_DWHr[], float f_Moist)
- float BCM_DW1k_MoiRot(float f_Moist)
- float BCM_Get3(char cr_BOV_Cat[], int i_3InId, float f_Load)
- int BCM_Get(char cr_BOV_Cat[], float f_Load, float * af_Con)
- int BCM_Check(d_CI * a_CI, char cr_ErrMes[])
- int _Limit(float f_Load, char cr_ErrMes[], char cr[])
- int _ChkDuff(d_CI * a_CI, char cr_ErrMes[])
- int _Pc_DufCon(float f_Pc, char cr_ErrMes[])
- file fof_bcm.h
Defines
- e_DW1hr_Adj
- e_DW100hr_Adj
- e_DWChk
- e_DW1000hr_AdjRot
Functions
- void BCM_SetInputs(d_CI * a_CI)
- int BCM_Get(char cr_BOV_Cat[], float f_Load, float * af_Con)
- float BCM_Get3(char cr_BOV_Cat[], int i_3InId, float f_Load)
- float BCM_DW10M_Adj(char cr_DWHr[], float f_Moist)
- float BCM_DW1k_MoiRot(float f_Moist)
- int BCM_Check(d_CI * a_CI, char cr_ErrMes[])
- int _Limit(float f_Load, char cr_ErrMes[], char cr[])
- int _Pc_DufCon(float f_Pc, char cr_ErrMes[])
- int _ChkDuff(d_CI * a_CI, char cr_ErrMes[])
- file fof_cct.h
-
Variables
- d_CCT sr_CCT[]
- file fof_ci.c
- #include <windows.h>#include <stdlib.h>#include <stdio.h>#include <math.h>#include <string.h>#include “bur_brn.h”#include “fof_ci.h”#include “fof_util.h”#include “fof_lem.h”#include “fof_ansi.h”
Functions
- void WINAPI CI_Init(d_CI * a_CI)
- int CI_isSpring(d_CI * a_CI)
- int CI_isFall(d_CI * a_CI)
- int CI_isSummer(d_CI * a_CI)
- int CI_isWinter(d_CI * a_CI)
- int CI_isSeason(d_CI * a_CI)
- int CI_isGrassGroup(d_CI * a_CI)
- int CI_isShrubGroup(d_CI * a_CI)
- int CI_isSageBrush(d_CI * a_CI)
- int CI_isPocosin(d_CI * a_CI)
- int CI_isPonderosa(d_CI * a_CI)
- int CI_isWhiPinHem(d_CI * a_CI)
- int CI_isRedJacPin(d_CI * a_CI)
- int CI_isBalBRWSpr(d_CI * a_CI)
- int CI_isCoverGroup(d_CI * a_CI)
- int CI_isSouthEast(d_CI * a_CI)
- int CI_isInteriorWest(d_CI * a_CI)
- int CI_isPacificWest(d_CI * a_CI)
- int CI_isNorthEast(d_CI * a_CI)
- int CI_isNatural(d_CI * a_CI)
- int CI_isPiles(d_CI * a_CI)
- int CI_isSlash(d_CI * a_CI)
- int CI_isDufEntire(d_CI * a_CI)
- int CI_isDufLower(d_CI * a_CI)
- int CI_isDufNFDR(d_CI * a_CI)
- int CI_isDufAdjNFDR(d_CI * a_CI)
- int CI_isDufMethod(d_CI * a_CI)
- int CI_isDuffWet(d_CI * a_CI)
- float CI_MaxLoad(d_CI * a_CI)
- int CI_OnlyDuff(d_CI * a_CI)
- file fof_ci.h
Defines
- e_CI_LoadLimLow
- e_CI_LoadLimUp
- e_DufMin
- e_DufMax
- e_DufDepMin
- e_DufDepMax
- e_MoiDW10Min
- e_MoiDW10Max
- eC_WD
- e_GrassGroup
- e_SageBrush
- e_ShrubGroup
- e_Pocosin
- e_Ponderosa
- e_WhiPinHem
- e_RedJacPin
- e_BalBRWSpr
- GRASSGROUP
- SAGEBRUSH
- SHRUBGROUP
- POCOSIN
- PONDEROSA
- WHIPINHEM
- REDJACPIN
- BALBRWSPR
- eC_CoverGroup
- e_CI_SAF
- e_CI_NVCS
- e_CI_FCC
- e_CI_DefaultCoverClass
- e_Winter
- e_Spring
- e_Summer
- e_Fall
- WINTER
- SPRING
- SUMMER
- FALL
- e_SeasonDefault
- eC_Season
- e_CI_SouthEast
- e_CI_InteriorWest
- e_CI_PacificWest
- e_CI_NorthEast
- SOUTHEAST
- INTERIORWEST
- PACIFICWEST
- NORTHEAST
- eC_Region
- e_Natural
- e_Piles
- e_Slash
- NATURAL
- PILES
- SLASH
- e_FuelCategoryDefault
- eC_FuelCategory
- e_Entire
- e_Lower
- e_NFDR
- e_Adj_NFDR
- ENTIRE
- LOWER
- NFDR
- ADJ_NFDR
- e_DufMoiMetDefault
- eC_DufMoiMet
Functions
- void WINAPI CI_Init(d_CI * a_CI)
- int CI_isSpring(d_CI * a_CI)
- int CI_isFall(d_CI * a_CI)
- int CI_isWinter(d_CI * a_CI)
- int CI_isSummer(d_CI * a_CI)
- int CI_isSeason(d_CI * a_CI)
- int CI_isShrubGroup(d_CI * a_CI)
- int CI_isGrassGroup(d_CI * a_CI)
- int CI_isSageBrush(d_CI * a_CI)
- int CI_isPocosin(d_CI * a_CI)
- int CI_isPonderosa(d_CI * a_CI)
- int CI_isWhiPinHem(d_CI * a_CI)
- int CI_isRedJacPin(d_CI * a_CI)
- int CI_isBalBRWSpr(d_CI * a_CI)
- int CI_isCoverGroup(d_CI * a_CI)
- int CI_isSouthEast(d_CI * a_CI)
- int CI_isInteriorWest(d_CI * a_CI)
- int CI_isPacificWest(d_CI * a_CI)
- int CI_isNorthEast(d_CI * a_CI)
- int CI_isNatural(d_CI * a_CI)
- int CI_isPiles(d_CI * a_CI)
- int CI_isSlash(d_CI * a_CI)
- int CI_isDufEntire(d_CI * a_CI)
- int CI_isDufLower(d_CI * a_CI)
- int CI_isDufNFDR(d_CI * a_CI)
- int CI_isDufAdjNFDR(d_CI * a_CI)
- int CI_isDufMethod(d_CI * a_CI)
- int CI_isDuffWet(d_CI * a_CI)
- void CI_Display(d_CI * a_CI)
- float CI_MaxLoad(d_CI * a_CI)
- int CI_OnlyDuff(d_CI * a_CI)
- file fof_cm.c
- #include <windows.h>#include <stdlib.h>#include <stdio.h>#include <math.h>#include <string.h>#include “fof_co.h”#include “fof_co2.h”#include “fof_ci.h”#include “fof_bcm.h”#include “fof_hsf.h”#include “fof_cm.h”
- file fof_cm.h
- file fof_co.c
- #include <windows.h>#include <stdlib.h>#include <stdio.h>#include <math.h>#include <string.h>#include “fof_co.h”
Functions
- void WINAPI CO_Init(d_CO * a_CO)
- file fof_co.h
- file fof_co2.h
Functions
- void WINAPI CO_Init(d_CO * a_CO)
- file fof_disp.h
- file fof_duf.c
- #include <windows.h>#include <stdlib.h>#include <stdio.h>#include <math.h>#include <string.h>#include “fof_ci.h”#include “fof_duf.h”
Defines
- e_Adj
- file fof_duf.h
- file fof_gen.h
Defines
- eC_PthFil
- e_CrashSave_FN
- e_FofLog_FN
- e_FN_SAF
- e_FN_NVCS
- e_FN_FCC
- e_SPP_FN
- e_Hlp_FN
- e_DSI_FNin
- e_EID_FNin
- e_SPt_FN
- e_SoiPtFN
- e_SoiPtExt
- e_SoilDufExt
- e_SoilExpExt
- e_Sample_Duff
- e_Sample_Exp
- e_BurTmpIn_FN
- e_BrnAmtExt
- e_BrnHeaExt
- e_BrnExt
- e_BrnTmpAmt
- e_BrnTmpHea
- e_BrnEmi
- e_BrnEmiExt
- e_TmpMor
- e_PrjExt
- e_RptExt
- e_GraSoilFN
- e_GraMortFN
- e_GraFuelFN
- e_GraSmokFN
- e_EMFExt
- e_TestFN
- e_SIB_Soil
- e_SIB_ConE
- e_SIB_Mort
Functions
- int copyfile(char cr_From[], char cr_To[])
- void t_DeleteFile(char cr_FN[])
- int Error_Window(char cr_Mess[], char cr_Function[])
- int Warning_Window(char cr_Mess[], char cr_Function[])
- int Info_Window(char cr_Mess[], char cr_Function[])
- void MM_Clear(void)
- int MM_isMess(void)
- void GetDate(char cr_Date[])
- void xstrupr(char cr[])
- int Win_CrashSave(void)
- file fof_hsf.c
- #include <windows.h>#include <stdlib.h>#include <stdio.h>#include <math.h>#include <string.h>#include <float.h>#include “fof_co.h”#include “fof_ci.h”#include “fof_hsf.h”#include “fof_lem.h”#include “fof_duf.h”#include “bur_brn.h”
Functions
- int _ChkLim(float f_Load, char cr_Name[], char cr_ErrMes[])
- int _Pc_CroBrn(float f_Pcn, char cr_ErrMes[])
- int _DuffChk(d_CI * a_CI, char cr_ErrMes[])
- int Calc_Shrub(d_CI * a_CI, float * af_Con, float * af_Post, float * af_Percent)
- float Shrub_Equ(d_CI * a_CI, int i_Equ)
- float Equ_234_Per(d_CI * a_CI)
- float Equation_16(d_CI * a_CI)
- int Calc_Herb(d_CI * a_CI, float * af_Con, float * af_Post, float * af_Percent)
- int Calc_CrownBranch(d_CI * a_CI, float * af_Con, float * af_Post, float * af_Percent)
- int Calc_CrownFoliage(d_CI * a_CI, float * af_Con, float * af_Post, float * af_Percent)
- int HSF_Check(d_CI * a_CI, char cr_ErrMes[])
- file fof_hsf.h
Functions
- int HSF_Check(d_CI * a_CI, char cr_ErrMes[])
- int Calc_CrownFoliage(d_CI * a_CI, float * af_Con, float * af_Post, float * af_Percent)
- int Calc_CrownBranch(d_CI * a_CI, float * af_Con, float * af_Post, float * af_Percent)
- int Calc_Herb(d_CI * a_CI, float * af_Con, float * af_Post, float * af_Percent)
- int Calc_Shrub(d_CI * a_CI, float * af_Con, float * af_Post, float * af_Percent)
- float Shrub_Equ(d_CI * a_CI, int i_Equ)
- float Equ_234_Per(d_CI * a_CI)
- float Equation_16(d_CI * a_CI)
- file fof_iss.h
Defines
- eC_ISS_SPe
- file fof_lem.c
- #include <windows.h>#include <windowsx.h>#include <winuser.h>#include <winbase.h>#include <stdio.h>#include <string.h>#include “fof_lem.h”
Functions
- void LEM_Put(char cr_Title[], char cr_Mes[])
- file fof_lem.h
Functions
- void LEM_Put(char cr_Title[], char cr_Mes[])
- file fof_mrt.c
- #include <windows.h>#include <stdlib.h>#include <stdio.h>#include <math.h>#include <string.h>#include “fof_ansi.h”#include “fof_iss.h”#include “fof_mrt.h”#include “fof_smt.h”#include “fof_spp.h”#include “fof_cct.h”#include “fof_util.h”
Defines
- eC_smt
- ec_line
- e_SqFtAcre
Functions
- void WINAPI MO_Init(d_MO * a_MO)
- int WINAPI MRT_LoadSpe(char cr_Pth[], char cr_ErrMes[])
- void SMT_InitTable()
- int SMT_NotImp(int iX)
- int SMT_Get(int iX, d_SMT * a_SMT)
- int SMT_ChkReg(d_SMT * a_SMT, int i_Reg)
- int SMT_ChkRegion(char cr_Spe[], int i_Reg)
- float SMT_CalcBarkThick(char cr_Spe[], float f_DBH, char cr_ErrMes[])
- int SMT_MortEqu(char cr_Spe[])
- int SMT_GetIdx(char cr_Spe[])
- void SMT_DispTbl()
- float SMT_CalcCrnCov(char cr_Spe[], float f_Dia, float f_Hgt)
- int CCT_Get(int i_No, d_CCT * a_CCT)
- void CCT_Display(d_CCT * a_CTT)
- void MRT_InitST()
- float MRT_Overlap(float f_SqFtCov)
Variables
- d_SMT sr_SMT[eC_smt]
- float gf_TotMort
- float gfN_TotMort
- float gf_4TotMort
- float gfN_4TotMort
- float gf_TotKilDBH
- float gf_CovTotPreLiv
- float gf_CovTotPosLiv
- file fof_mrt.h
Defines
- e_Flame
- e_Scorch
- e_FlaLow
- e_FlaHig
- e_ScoLow
- e_ScoHig
- file fof_sd.c
- #include <windows.h>#include <stdlib.h>#include <string.h>#include <math.h>#include <stdio.h>#include “fof_sh.h”#include “fof_sh2.h”#include “fof_sd.h”#include “fof_sd2.h”#include “fof_ansi.h”#include “fof_sha.h”#include “fof_soi.h”
Functions
- int SD_Mngr(d_SD * a_SD, char cr_TmpFN[], char cr_ErrMes[])
- float SD_Heatpercent()
- int SD_ChkSoiDuf(float f_DufDepPre, float f_DufDepPos, char cr_ErrMes[])
Variables
- float gf_Heatpc
- file fof_sd.h
Defines
- e_DufDepLim
- e_MinDufCon
- file fof_sd2.h
Variables
- d_SD sr_SD[]
- file fof_se.c
- #include <windows.h>#include <stdlib.h>#include <string.h>#include <math.h>#include <stdio.h>#include “fof_sh.h”#include “fof_sh2.h”#include “fof_se.h”#include “fof_se2.h”#include “fof_ansi.h”#include “fof_sha.h”#include “fof_soi.h”
- file fof_se.h
- file fof_se2.h
Variables
- d_SE sr_SE[]
- file fof_sgv.c
- #include <stdlib.h>#include <string.h>#include <stdio.h>#include “fof_sgv.h”#include “fof_util.h”#include “fof_lem.h”
Defines
- eC_SGV
Functions
- float SGV_Prepare(char cr_Name[], float * af_MaxTim, float * af_MaxAmt)
- float GramSqMt_To_Pounds(float f_Gram)
- int SGV_GetTimPPA(int iX, float * af_Time, float * af_Amt)
- int SGV_Init()
- int SGV_Set(d_SGV * a_SGV)
- file fof_sgv.h
Defines
- e_SGV_PM2_5
- e_SGV_PM10
- e_SGV_CH4
- e_SGV_CO2
- e_SGV_CO
- e_SGV_NOX
- e_SGV_SOX
- e_SGV_Inten
Functions
- float GramSqMt_To_Pounds(float f_Gram)
- int SGV_Init(void)
- int SGV_GetTimPPA(int iX, float * af_Time, float * af_Amt)
- int SGV_Set(d_SGV * a_SGV)
- float SGV_Prepare(char cr_Name[], float * af_MaxTim, float * af_MaxAmt)
- file fof_sh.c
- #include <windows.h>#include <stdlib.h>#include <string.h>#include <math.h>#include <stdio.h>#include “fof_ansi.h”#include “fof_sh.h”#include “fof_sh2.h”#include “fof_sd.h”#include “fof_se.h”#include “fof_soi.h”#include “fof_sha.h”
- file fof_sh.h
Defines
- REAL
- e_SoiSimFail
- e_Max1
- e_Max2
- e_mplus1
- e_Layers
- e_LoaSke
- e_FinSil
- e_Fin
- e_CoaSil
- e_CoaLoa
- LOAMY_SKELETAL
- FINE_SILT
- FINE
- COARSE_SILT
- COARSE_LOAMY
- eC_SoilType
- e_VeryDry
- e_Dry
- e_Moderate
- e_Wet
- VERY_DRY
- DRY
- MODERATE
- WET
- eC_MoistCond
- e_LayNone
- e_SM_Duff
- e_SM_ZDuff
- file fof_sh2.h
Defines
- e_SMV_Max
- e_SMV_Min
- e_StaSoiTem
- file fof_sha.c
- #include <windows.h>#include <stdlib.h>#include <stdio.h>#include <math.h>#include <string.h>#include “fof_sh.h”#include “fof_sha.h”
- file fof_sha.h
Defines
- e_SHA_Init
- eC_Lay
- eC_Tim
- file fof_smt.h
Functions
- void SMT_InitTable(void)
- void SMT_DispTbl(void)
- int SMT_Get(int iX, d_SMT * a_SMT)
- int SMT_ChkRegion(char cr_Spe[], int i_Reg)
- float SMT_CrownRation(char cr_Spe[])
- float SMT_CalcBarkThick(char cr_Spe[], float f_DBH, char cr_ErrMes[])
- int SMT_MortEqu(char cr_Spe[])
- float SMT_CalcHeight(char cr_Spe[], float f_DBH)
- int SMT_GetIdx(char cr_Spe[])
- int SMT_ChkReg(d_SMT * a_SMT, int i_Reg)
- int SMT_NotImp(int iX)
- float SMT_CalcCrnCov(char cr_Spe[], float f_Dia, float f_Hgt)
- int SMT_Load(char cr_Pth[], char cr_ErrMes[])
- file fof_soi.c
- #include <windows.h>#include <stdlib.h>#include <stdio.h>#include <math.h>#include <string.h>#include “fof_sh.h”#include “fof_sd.h”#include “fof_soi.h”
Defines
- e_zmax
- e_Patm
- e_Dvo
- e_Tstd
- e_Po
- e_R
- e_Mw
- e_hc
- e_epse
- e_epsw
- e_dw
- e_tor
- e_maxits
- e_airvp
- e_Tair
- e_lnpo
Functions
- REAL tcond(REAL r_t, REAL r_xw, REAL r_xs, REAL r_ls, REAL r_ga, REAL r_xwo, REAL r_cop, REAL r_p, REAL r_s, REAL * ar_enh)
- void soiltemp_initconsts(REAL r_bdi, REAL r_pdi, REAL r_lsi, REAL r_gai, REAL r_xwoi, REAL r_copi, REAL r_xoi, REAL rr_zi[])
- void soiltemp_getwater(REAL rr_wi[])
- void soiltemp_gettemps(REAL rr_ti[])
- void soiltemp_getdepths(REAL rr_zi[])
Variables
- char gcr_SoiErr[]
- FILE * fh_In
- REAL r_seh
- REAL r_sev
- REAL r_wav
- REAL r_tav
- REAL r_dJv
- REAL r_dJvdt
- REAL r_dJvdp
- REAL r_bd
- REAL r_pd
- REAL r_ls
- REAL r_ga
- REAL r_xwo
- REAL r_cop
- REAL r_xo
- REAL r_dC
- REAL r_dv
- REAL r_dCdp
- REAL r_dvdp
- REAL r_dvdt
- REAL r_dCdt
- REAL r_m
- REAL r_tk
- REAL r_tk3
- REAL r_dtn
- REAL r_gvol
- REAL r_ch
- REAL r_xs
- REAL r_xws
- REAL rr_wn[e_mplus1+1]
- REAL rr_w[e_mplus1+1]
- REAL rr_z[e_mplus1+1]
- REAL rr_p[e_mplus1+1]
- REAL rr_dwdp[e_mplus1+1]
- REAL rr_v[e_mplus1+1]
- REAL rr_h[e_mplus1+1]
- REAL rr_tn[e_mplus1+1]
- REAL rr_dhdp[e_mplus1+1]
- REAL rr_psat[e_mplus1+1]
- REAL rr_kev[e_mplus1+1]
- REAL rr_u[e_mplus1+1]
- REAL rr_Hvap[e_mplus1+1]
- REAL rr_s[e_mplus1+1]
- REAL rr_ke[e_mplus1+1]
- REAL rr_kh[e_mplus1+1]
- REAL rr_kv[e_mplus1+1]
- REAL rr_cp[e_mplus1+1]
- REAL rr_conv[e_mplus1+1]
- REAL rr_vcon[e_mplus1+1]
- REAL rr_enh[e_mplus1+1]
- REAL rr_t[e_mplus1+1]
- REAL rr_AirPor[e_mplus1+1]
- file fof_soi.h
Functions
- void soiltemp_initconsts(REAL r_bdi, REAL r_pdi, REAL r_lsi, REAL r_gai, REAL r_xwoi, REAL r_copi, REAL r_xoi, REAL rr_Lay[])
- REAL tcond(REAL r_t, REAL r_xw, REAL r_xs, REAL r_ls, REAL r_ga, REAL r_xwo, REAL r_cop, REAL r_p, REAL r_s, REAL * ar_enh)
- void soiltemp_getwater(REAL rr_wi[])
- void soiltemp_gettemps(REAL rr_ti[])
- void soiltemp_getdepths(REAL rr_zi[])
- void Display_Array(REAL rr[])
- void App_Ext(char cr_FN[], char cr_Ext[])
- file fof_spp.h
Variables
- d_SMT sr_MSMT[]
- file fof_unix.c
- #include <stdio.h>#include <string.h>#include “fof_ansi.h”
Functions
- int xstrcmpi(char a[], char b[])
- void xstrupr(char cr[])
Variables
- char strA[3000]
- char strB[3000]
- file fof_util.c
- #include <stdlib.h>#include <stdio.h>#include <math.h>#include <string.h>#include “fof_gen.h”#include “fof_util.h”
Functions
- void SetLen7(char cr[])
- float Basal_Area(float f_DBH, float f_Cnt)
- float Calc_Scorch(float f_flame)
- float Calc_Flame(float f_XFI)
- void Blk_End_Line(char cr_Line[], int i_Len)
- void ToInt(int * ai, char * cr_RB, int iA_Col, int iB_Col)
- void ToStr(char * cr_Out, char * cr_In, int iA_Col, int iB_Col)
- void ToFlo(float * af, char * cr_RB, int iA_Col, int iB_Col)
- int isBlank(char cr[])
- int isBlank_Tab(char cr[])
- int isBlankCR(char cr[])
- void Trim_LT(char cr[])
- void Left_Just(char cr[])
- void StrRepChr(char cr[], char c_This, char c_That)
- void Rem_Path(char cr_Arg[], char cr_New[])
- void Remove_FN(char cr[])
- void App_Ext(char cr_FN[], char cr_Ext[])
- char Get_NumTyp(char cr_Data[])
- void Rem_LT_Blanks(char cr[])
- void EndNull(char cr[])
- int isFile(char cr_PathFN[])
- float InchMeter(float f_Inch)
- float TPA_To_KiSq(float f_TPA)
- float KgSq_To_TPA(float f_KgSq)
- void HrMinSec(int i_Seconds, char cr_Out[])
- int _GetLine(char cr_Bur[], char cr_Line[], int i_Row)
- file fof_util.h
Functions
- void HrMinSec(int i_Seconds, char cr_Out[])
- void Remove_FN(char cr[])
- void Rem_Path(char cr_Arg[], char cr_New[])
- float Basal_Area(float f_DBH, float f_Cnt)
- float Calc_Scorch(float f_flame)
- float Calc_Flame(float f_Scorch)
- void Blk_End_Line(char cr_Line[], int i_Len)
- void ToInt(int * ai, char * cr_RB, int iA_Col, int iB_Col)
- void ToStr(char * cr_Out, char * cr_In, int iA_Col, int iB_Col)
- void ToFlo(float * af, char * cr_RB, int iA_Col, int iB_Col)
- int isBlankCR(char cr[])
- int isBlank(char cr[])
- int isBlank_Tab(char cr[])
- void Rem_LT_Blanks(char cr[])
- char Get_NumTyp(char cr_Data[])
- void EndNull(char cr[])
- void Trim_LT(char cr[])
- void Left_Just(char cr[])
- void StrRepChr(char cr[], char c_This, char c_That)
- void Remove_Path(char cr_Arg[], char cr_New[])
- void App_Ext(char cr_FN[], char cr_Ext[])
- int isFile(char cr_PathFN[])
- float InchMeter(float f_Inch)
- float TPA_To_KiSq(float f_TPA)
- float KgSq_To_TPA(float f_KgSq)
- void SetLen7(char cr[])
- int _GetLine(char cr_Bur[], char cr_Line[], int i_Row)
- file forkod.f
Functions
- subroutine forkod()
- file formcl.f
Functions
- subroutine formcl(ISPC ISPC, IFOR IFOR, D D, FC FC)
- file formclas.f
Functions
- subroutine formcl_bm(SPEC SPEC, IFOR IFOR, D D, FC FC)
- subroutine formcl_ca(SPEC SPEC, IFOR IFOR, D D, FC FC)
- subroutine formcl_ec(SPEC SPEC, IFOR IFOR, D D, FC FC)
- subroutine formcl_ni(SPEC SPEC, IFOR IFOR, D D, FC FC)
- subroutine formcl_pn(SPEC SPEC, IFOR IFOR, D D, FC FC)
- subroutine formcl_so(SPEC SPEC, IFOR IFOR, D D, FC FC)
- subroutine formcl_wc(SPEC SPEC, IFOR IFOR, D D, FC FC)
- file fortyp.f
Functions
- subroutine fortyp(IXF IXF, SDIFIA SDIFIA)
- file fvs.f
Functions
- subroutine fvs(IRTNCD IRTNCD)
- file fvs_step.f90
- file fvsSQL.c
- #include <stdio.h>#include <sql.h>#include <sqlext.h>
Functions
- int FVSSQLALLOCHANDLE(SQLSMALLINT * HandleType, SQLHANDLE * InputHandle, SQLHANDLE * OutputHandlePtr)
- int FVSSQLBINDCOL(SQLHSTMT * StatementHandle, SQLUSMALLINT * ColumnNumber, SQLSMALLINT * TargetType, SQLPOINTER * TargetValuePtr, SQLLEN * BufferLength, SQLLEN * StrLen_or_Ind)
- int FVSSQLBINDPARAMETER(SQLHSTMT * StatementHandle, SQLUSMALLINT * ParameterNumber, SQLSMALLINT * InputOutputType, SQLSMALLINT * ValueType, SQLSMALLINT * ParameterType, SQLULEN * ColumnSize, SQLSMALLINT * DecimalDigits, SQLPOINTER * ParameterValuePtr, SQLLEN * BufferLength, SQLLEN * StrLen_or_IndPtr)
- int FVSSQLCLOSECURSOR(SQLHSTMT * StatementHandle)
- int FVSSQLCOLATTRIBUTE(SQLHSTMT * StatementHandle, SQLUSMALLINT * ColumnNumber, SQLUSMALLINT * FieldIdentifier, SQLPOINTER * CharacterAttributePtr, SQLSMALLINT * BufferLength, SQLSMALLINT * StringLengthPtr, SQLLEN * NumericAttributePtr)
- int FVSSQLDESCRIBECOL(SQLHSTMT * StatementHandle, SQLUSMALLINT * ColumnNumber, SQLCHAR * ColumnName, SQLSMALLINT * BufferLength, SQLSMALLINT * NameLengthPtr, SQLSMALLINT * DataTypePtr, SQLULEN * ColumnSizePtr, SQLSMALLINT * DecimalDigitsPtr, SQLSMALLINT * NullablePtr)
- int FVSSQLDISCONNECT(SQLHDBC * ConnectionHandle)
- int FVSSQLDRIVERCONNECT(SQLHDBC * ConnectionHandle, SQLHWND * WindowHandle, SQLCHAR * InConnectionString, SQLSMALLINT * StringLength1, SQLCHAR * OutConnectionString, SQLSMALLINT * BufferLength, SQLSMALLINT * StringLength2Ptr, SQLUSMALLINT * DriverCompletion)
- int FVSSQLDRIVERS(SQLHENV * EnvironmentHandle, SQLUSMALLINT * Direction, SQLCHAR * DriverDescription, SQLSMALLINT * BufferLength1, SQLSMALLINT * DescriptionLengthPtr, SQLCHAR * DriverAttributes, SQLSMALLINT * BufferLength2, SQLSMALLINT * AttributesLengthPtr)
- int FVSSQLENDTRAN(SQLSMALLINT * HandleType, SQLHANDLE * Handle, SQLSMALLINT * CompletionType)
- int FVSSQLEXECDIRECT(SQLHSTMT * StatementHandle, SQLCHAR * StatementText, SQLINTEGER * TextLength)
- int FVSSQLEXECUTE(SQLHSTMT * StatementHandle)
- int FVSSQLFETCH(SQLHSTMT * StatementHandle)
- int FVSSQLFETCHSCROLL(SQLHSTMT * StatementHandle, SQLSMALLINT * FetchOrientation, SQLLEN * FetchOffset)
- int FVSSQLFREEHANDLE(SQLSMALLINT * HandleType, SQLHANDLE * Handle)
- int FVSSQLFREESTMT(SQLHSTMT * StatementHandle, SQLUSMALLINT * Option)
- int FVSSQLGETDATA(SQLHSTMT * StatementHandle, SQLUSMALLINT * Col_or_Param_Num, SQLSMALLINT * TargetType, SQLPOINTER * TargetValuePtr, SQLLEN * BufferLength, SQLLEN * StrLen_or_IndPtr)
- int FVSSQLGETDIAGREC(SQLSMALLINT * HandleType, SQLHANDLE * Handle, SQLSMALLINT * RecNumber, SQLCHAR * SQLState, SQLINTEGER * NativeErrorPtr, SQLCHAR * MessageText, SQLSMALLINT * BufferLength, SQLSMALLINT * TextLengthPtr)
- int FVSSQLGETINFO(SQLHDBC * ConnectionHandle, SQLUSMALLINT * InfoType, SQLPOINTER * InfoValuePtr, SQLSMALLINT * BufferLength, SQLSMALLINT * StringLengthPtr)
- int FVSSQLNUMRESULTCOLS(SQLHSTMT * StatementHandle, SQLSMALLINT * ColumnCountPtr)
- int FVSSQLPREPARE(SQLHSTMT * StatementHandle, SQLCHAR * StatementText, SQLINTEGER * TextLength)
- int FVSSQLSETCONNECTATTR(SQLHDBC * ConnectionHandle, SQLINTEGER * Attribute, SQLPOINTER * ValuePtr, SQLINTEGER * StringLength)
- int FVSSQLSETENVATTR(SQLHENV * EnvironmentHandle, SQLINTEGER * Attribute, SQLINTEGER * ValuePtr)
- file fvsstd.f
Functions
- subroutine fvsstd(IWHO IWHO)
- file FVSSTDCM.F77
- file fwinit.f
Functions
- subroutine fwinit(VOLEQ VOLEQ, DBHOB DBHOB, HTTOT HTTOT, MHT MHT, MTOPP MTOPP, UPSHT1 UPSHT1, UPSHT2 UPSHT2, UPSD1 UPSD1, UPSD2 UPSD2, AVGZ1 AVGZ1, AVGZ2 AVGZ2, HTREF HTREF, DBTBH DBTBH, JSP JSP, RHFW RHFW, RFLW RFLW, TAPCOE TAPCOE, F F, SETOPT SETOPT, NEXTRA NEXTRA, HEX HEX, DEX DEX, ZEX ZEX, PINV_Z PINV_Z, FMOD FMOD, btr btr, FCLASS FCLASS, ERRFLAG ERRFLAG)
- file genrpt.f
Functions
- subroutine genrpt()
- file getsed.f
Functions
- subroutine getsed(SED SED)
- file getstd.f
Functions
- subroutine getstd()
- file GGCOM.F77
Functions
Variables
- file gheads.f
- file GLBLCNTL.F77
Variables
- file gradd.f
Functions
- subroutine gradd(DEBUG DEBUG, IPMODI IPMODI, LTMGO LTMGO, LMPBGO LMPBGO, LDFBGO LDFBGO, LBWEGO LBWEGO, LCVATV LCVATV, LBGCGO LBGCGO)
- file grdtim.f
Functions
- subroutine grdtim(DAT DAT, TIM TIM)
- file grincr.f
Functions
- subroutine grincr(DEBUG DEBUG, IPMODI IPMODI, LTMGO LTMGO, LMPBGO LMPBGO, LDFBGO LDFBGO, LBWEGO LBWEGO, LCVATV LCVATV, LBGCGO LBGCGO)
- file grinit.f
Functions
- subroutine grinit()
- file grohed.f
Functions
- subroutine grohed(IUNIT IUNIT)
- file habtyp.f
Functions
- subroutine habtyp(KARD2 KARD2, ARRAY2 ARRAY2)
- file hbdecd.f
Functions
- subroutine hbdecd(IHB IHB, CNHB CNHB, MAXHB MAXHB, ARRAY2 ARRAY2, KARD2 KARD2)
- file HTCAL.F77
Functions
Variables
- file htcal_mod.f90
- file htcalc.f
Functions
- subroutine htcalc(SINDX SINDX, ISPC ISPC, AG AG, HGUESS HGUESS, JOSTND JOSTND, DEBUG DEBUG)
Calculate site height.
Calculate potential height given a species site index and age. It is used to calculate potential height and site. White oak is not base directly on SI and Age
- Parameters
- sindx -
Site Index
- ispc -
FVS Species index
- ag -
Tree age
- hguess -
Estimated potential height
- jostnd -
File unit number for debug messages
- debug -
Debgging flag
- sindx -
- file htdbh.f
- file htgf.f90
Functions
- subroutine htgf()
- file htgstp.f
Functions
- subroutine htgstp()
- file iapsrt.f
Functions
- subroutine iapsrt(N N, A A, INDEX INDEX, LSEQ LSEQ)
- file INCLUDESVN.F77
- file initre.f
Functions
- subroutine initre()
- file intree.f
Functions
- subroutine intree(RECORD RECORD, IRDPLV IRDPLV, ISDSP ISDSP, SDLO SDLO, SDHI SDHI, LKECHO LKECHO)
- file iqrsrt.f
Functions
- subroutine iqrsrt(LIST LIST, N N)
- file isstag.f
Functions
- subroutine isstag()
- file istfnb.f
Functions
- integer function istfnb(STRING STRING)
- file istlnb.f
Functions
- integer function istlnb(STRING STRING)
- file KEYCOM.F77
- file keydmp.f
Functions
- subroutine keydmp(IOUT IOUT, IRECNT IRECNT, KEYWRD KEYWRD, ARRAY ARRAY, KARD KARD)
- file keyopn.f
- file keyrdr.f
- file keywds.f
- file ksstag.f
Functions
- subroutine ksstag(IPRINT IPRINT, KEYWRD KEYWRD, LNOTBK LNOTBK, ARRAY ARRAY, LKECHO LKECHO)
- file lb1mem.f
Functions
- subroutine lb1mem(IP1 IP1, IP2 IP2, SETIN SETIN, LENONE LENONE, ONEMEM ONEMEM)
- file lbaglr.f
- file lbdset.f
Functions
- subroutine lbdset(JOSTND JOSTND, LKECHO LKECHO)
- file lbget1.f
- file lbintr.f
Functions
- subroutine lbintr(LEN1 LEN1, SET1 SET1, LEN2 LEN2, SET2 SET2, LNINTR LNINTR, INTRST INTRST, KODE KODE)
- file lbmemr.f
Functions
- logical function lbmemr(LENMEM LENMEM, MEM MEM, LENSET LENSET, SET SET)
- file lbsplr.f
- file lbsplw.f
Functions
- subroutine lbsplw(JOSTND JOSTND)
- file lbstrd.f
- file lbtrim.f
Functions
- subroutine lbtrim(MAE MAE, MAELNK MAELNK)
- file lbunin.f
Functions
- subroutine lbunin(LEN1 LEN1, SET1 SET1, LEN2 LEN2, SET2 SET2, LNUNIN LNUNIN, UNION UNION, KODE KODE)
- file lnkchn.f
Functions
- subroutine lnkchn(ITREE ITREE)
- file lnkint.f
Functions
- subroutine lnkint()
- file logs.f
- file maical.f
Functions
- subroutine maical()
- file main.f90
Functions
- program main()
- file mbacal.f
Functions
- subroutine mbacal()
- file meansd.f
Functions
- subroutine meansd(A A, N N, ABAR ABAR, VAR VAR, STD STD)
- file METRIC.F77
Variables
- CODE SEGMENT METRIC C C **METRIC DATE OF LAST MtoFT REAL FTtoM REAL HAtoACR REAL ACRtoHA REAL M3toFT3 REAL FT3toM3 REAL KGtoLB
- CODE SEGMENT METRIC C C **METRIC DATE OF LAST MtoFT REAL FTtoM REAL HAtoACR REAL ACRtoHA REAL M3toFT3 REAL FT3toM3 REAL TMtoTI REAL LBtoKG
- CODE SEGMENT METRIC C C **METRIC DATE OF LAST MtoFT REAL FTtoM REAL HAtoACR REAL ACRtoHA REAL M3toFT3 REAL FT3toM3 REAL TMtoTI REAL TItoTM REAL M2pHAtoFT2pACR
- CODE SEGMENT METRIC C C **METRIC DATE OF LAST MtoFT REAL FTtoM REAL HAtoACR REAL ACRtoHA REAL M3toFT3 REAL FT3toM3 REAL TMtoTI REAL TItoTM REAL M3pHAtoFT3pACR REAL FT2pACRtoM2pHA
- CODE SEGMENT METRIC C C **METRIC DATE OF LAST MtoFT REAL FTtoM REAL HAtoACR REAL ACRtoHA REAL M3toFT3 REAL FT3toM3 REAL TMtoTI REAL TItoTM REAL M3pHAtoFT3pACR REAL FT3pACRtoM3pHA REAL MItoKM
- CODE SEGMENT METRIC C C **METRIC DATE OF LAST MtoFT REAL FTtoM REAL HAtoACR REAL ACRtoHA REAL M3toFT3 REAL FT3toM3 REAL TMtoTI REAL TItoTM REAL M3pHAtoFT3pACR REAL FT3pACRtoM3pHA REAL KMtoMI REAL FtoC1
- CODE SEGMENT METRIC C C **METRIC DATE OF LAST MtoFT REAL FTtoM REAL HAtoACR REAL ACRtoHA REAL M3toFT3 REAL FT3toM3 REAL TMtoTI REAL TItoTM REAL M3pHAtoFT3pACR REAL FT3pACRtoM3pHA REAL KMtoMI REAL FtoC2
- file metric_mod.f90
- file misact.f
Functions
- subroutine misact(LACTV LACTV)
- file miscnt.f
Functions
- subroutine miscnt(MSPCNT MSPCNT)
- file MISCOM.F77
Functions
- Lance R David(FHTET)*Added variables that were local to misprt subroutine for output *control that need to be maintained for each stand in PPE *processing mode.*Variables Added are Lance R David(FMSC)
- Lance R x used by MISDGF function * and(2, x)
- Lance R x used by MISDGF function IDMSOUT(4)
- Lance R x used by MISDGF function & ISVSP4(4)
Variables
- C Code segment MISCOM C ***************************************************************************MISCOM CM Date of last revision
- set in MISINT * DGPDMR
- set in MISINT
- set *from MISTGMOD keyword in MISDGF
- saved for subsequent *cycles * DMFLAG
- set from *keyword in MISMRT
- set from *keyword in saved for subsequent cycles * DMMTPA
- set in MISMRT *for most variants
- set from keyword in MISIN * DMTALL
- set from keyword in MISIN by plot
- contains that tree s height
- set first time through subroutine MISPRT * FSTTBL
- *set first time printed in subroutine MISPRT * HGPDMR
- set *from MISTHMOD keyword in MISHGF Set values remain in *effect until changed by a later scheduled MISTHMOD * IMIST
- variant specific
- set in MISINT * MISFLG
- set from *keyword in MISIN
- set from *keyword in valid throughout a run * PMCSP
- set in MISINT * PRFMST
- set from keyword in MISCPF * PRTTBL
- set *from keyword in MISIN * SPPDMI
- set in MISIN0 or MISINT * YNGMLT
- set *from keyword in MISTOE
- set *from keyword in saved for subsequent cycles * YPLMLT
- set *from keyword in saved for subsequent cycles **Revision History
- Lance R x used by MISDGF function JRAN
- Lance R x used by MISDGF function IMOUT2
- Lance R x used by MISDGF function IMOUT3
- file miscpf.f
Functions
- subroutine miscpf(PRFCUT PRFCUT)
- file misdam.f
Functions
- subroutine misdam(ITREE ITREE, ICODES ICODES)
- file misdgf.f
Functions
- real function misdgf(ITREE ITREE, ISPC ISPC)
- file misget.f
Functions
- subroutine misget(ITREE ITREE, IDMR IDMR)
- file mishgf.f
Functions
- real function mishgf(ITREE ITREE, ISPC ISPC)
- file misin.f
Functions
- subroutine misin(PASKEY PASKEY, ARRAY ARRAY, LNOTBK LNOTBK, LKECHO LKECHO)
- file misin0.f
Functions
- subroutine misin0()
- file misinf.f
Functions
- subroutine misinf()
- file misintpn.f
Functions
- subroutine misint()
- file mismrt.f
Functions
- subroutine mismrt(MFLAG MFLAG)
- file misprt.f
Functions
- subroutine misprt()
- file misputz.f
Functions
- subroutine misputz(ITREE ITREE, IDMR IDMR)
- file misran.f
Functions
- subroutine misran(IARRAY IARRAY, ISIZE ISIZE)
- file mistoe.f
Functions
- subroutine mistoe()
- file mkdbsTypeDefs.c
- #include <stdio.h>#include <sql.h>#include <sqlext.h>
Functions
- int main(void)
- file morts.f
Functions
- subroutine morts()
- file mrules.f
Functions
- subroutine mrules(REGN REGN, FORST FORST, VOLEQ VOLEQ, DBHOB DBHOB, COR COR, EVOD EVOD, OPT OPT, MAXLEN MAXLEN, MINLEN MINLEN, MERCHL MERCHL, MINLENT MINLENT, MTOPP MTOPP, MTOPS MTOPS, STUMP STUMP, TRIM TRIM, BTR BTR, DBTBH DBTBH, MINBFD MINBFD, PROD PROD)
- file msppgt.f
Functions
- subroutine msppgt(WK3 WK3, IPNT IPNT, ILIMIT ILIMIT)
- file mspppt.f
Functions
- subroutine mspppt(WK3 WK3, IPNT IPNT, ILIMIT ILIMIT)
- file MULTCM.F77
Functions
Variables
- file multcm_mod.f90
- file mults.f
Functions
- subroutine mults(KIND KIND, IDT IDT, XMULT XMULT)
- file myopen.f
Functions
- subroutine myopen(IUNIT IUNIT, CNAME CNAME, ISTAT ISTAT, IRECL IRECL, IZNUL IZNUL, IFORM IFORM, IACC IACC, ICNTRL ICNTRL, KODE KODE)
- file natcrz.f
Functions
- subroutine natcrz(IWHO IWHO)
- file notre.f
Functions
- subroutine notre()
- file numlog.f
Functions
- subroutine numlog(OPT OPT, EVOD EVOD, LMERCH LMERCH, MAXLEN MAXLEN, MINLEN MINLEN, TRIM TRIM, NUMSEG NUMSEG)
- file opadd.f
Functions
- subroutine opadd(IDT IDT, IACTK IACTK, ISTUS ISTUS, NPRMS NPRMS, PRMS PRMS, KODE KODE)
- file opbisr.f
Functions
- subroutine opbisr(N N, IA IA, IF IF, IP IP)
- file opcact.f
Functions
- subroutine opcact(KODE KODE, CSTR CSTR)
- file OPCOM.F77
Functions
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 PARAMETER(MAXACT = 2000, MAXEVA = 160, MAXPRM = 5999, MAXCOD = 6000, MAXEVT = 150, MXTST4 = 50, MXTST5 = 199, MXPTDO = 500, MXXREG = 400, MXLREG = 400, MXEXPR = 2000, MXCACT = 10000)
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL LTSTV4(MXTST4)
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL LTSTV5(MXTST5)
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL LREG(MXLREG)
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ISEQ(MAXACT)
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL IACT(MAXACT, 5)
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL IOPSRT(MAXACT)
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL IDATE(MAXACT)
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL IEVCOD(MAXCOD)
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL IOPCYC(MAXACT)
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL IMGPTS(MAXCYC, 2)
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL IEVNTS(MAXEVT, 3)
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL IEVACT(MAXEVA, 6)
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL IPTODO(MXPTDO)
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL LENAGL(MAXEVA)
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL PARMS(MAXPRM)
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL TSTV1(50)
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL TSTV2(32)
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL TSTV3(20)
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL TSTV4(MXTST4)
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL TSTV5(MXTST5)
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL XREG(MXXREG)
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL BCCFSP(MAXSP)
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL ACCFSP(MAXSP)
Variables
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL IMG1
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL ISEQ
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL PARMS
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL IACT
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL IOPSRT
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL IDATE
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL IEVCOD
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL IOPCYC
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL IMGPTS
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL IEVNTS
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL IEVACT
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL TSTV1
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL TSTV2
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL TSTV3
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL TSTV4
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL LTSTV4
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL TSTV5
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL LTSTV5
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL IPTODO
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL LENAGL
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL XREG
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL LREG
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL BCCFSP
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL ACCFSP
- CODE SEGMENT OPCOM C C **OPCOM COMMON DATE OF LAST MXTST4 WKSTR3 CHARACTER CACT LOGICAL ICACT REAL ICACT
- CAN NOT BE OVER C DIMENSION OF C NUMBER OF ROWS IN C NUMBER OF ROWS IN SET TO ZERO IN GRINIT AND WHEN ENDIF IS C ENTERED C EACH ROW HOLDS ONE C ACTIVITY
- CAN NOT BE OVER C DIMENSION OF C NUMBER OF ROWS IN C NUMBER OF ROWS IN SET TO ZERO IN GRINIT AND WHEN ENDIF IS C ENTERED C EACH ROW HOLDS ONE C THE COLUMNS ARE AS FOLLOWS
- CAN NOT BE OVER C DIMENSION OF C NUMBER OF ROWS IN C NUMBER OF ROWS IN SET TO ZERO IN GRINIT AND WHEN ENDIF IS C ENTERED C EACH ROW HOLDS ONE C THE COLUMNS ARE AS THIS WORD POINTS TO THE FIRST ASSOCIATED C PARAMETER IN PARMS IF NEGATIVE
- CAN NOT BE OVER C DIMENSION OF C NUMBER OF ROWS IN C NUMBER OF ROWS IN SET TO ZERO IN GRINIT AND WHEN ENDIF IS C ENTERED C EACH ROW HOLDS ONE C THE COLUMNS ARE AS THIS WORD POINTS TO THE FIRST ASSOCIATED C PARAMETER IN PARMS IF THE ABS OF THIS C WORD POINTS TO THE FIRST OPCODE IN IEVCOD NEEDED TO C EVALUATE THE PARAMETER EXPRESSION ASSOCIATED WITH C THE ACTIVITY C POINTS TO THE LAST ASSOCIATED PARAMETER C CONTAINS THE ACTIVITY STATUS CODE
- CAN NOT BE OVER C DIMENSION OF C NUMBER OF ROWS IN C NUMBER OF ROWS IN SET TO ZERO IN GRINIT AND WHEN ENDIF IS C ENTERED C EACH ROW HOLDS ONE C THE COLUMNS ARE AS THIS WORD POINTS TO THE FIRST ASSOCIATED C PARAMETER IN PARMS IF THE ABS OF THIS C WORD POINTS TO THE FIRST OPCODE IN IEVCOD NEEDED TO C EVALUATE THE PARAMETER EXPRESSION ASSOCIATED WITH C THE ACTIVITY C POINTS TO THE LAST ASSOCIATED PARAMETER C CONTAINS THE ACTIVITY STATUS WHERE
- file opcset.f
Functions
- subroutine opcset(ICYC ICYC)
- file opcycl.f
- file opdon2.f
Functions
- subroutine opdon2(IACTK IACTK, IDT IDT, IYR1 IYR1, IYR2 IYR2, ISQNUM ISQNUM, KODE KODE)
- file opeval.f
Functions
- subroutine opeval(IREFN IREFN, IRC IRC)
- file opexpn.f
- file opfind.f
Functions
- subroutine opfind(NMYA NMYA, MYACTS MYACTS, NTODO NTODO)
- file opget2.f
Functions
- subroutine opget2(IACTK IACTK, IDT IDT, IYR1 IYR1, IYR2 IYR2, ISQNUM ISQNUM, MXPM MXPM, NPRMS NPRMS, PRMS PRMS, KODE KODE)
- file opget3.f
Functions
- subroutine opget3(IACTK IACTK, IDT IDT, IYR1 IYR1, IYR2 IYR2, ISQNUM ISQNUM, MXPM MXPM, NPRMS NPRMS, PRMS PRMS, KODE KODE)
- file opinit.f
Functions
- subroutine opinit()
- file oplist.f
- file opmerg.f
Functions
- subroutine opmerg(NMYA NMYA, MYACTS MYACTS, NTODO NTODO)
- file opnew.f
Functions
- subroutine opnew(KODE KODE, IDT IDT, IACTK IACTK, NPRMS NPRMS, PRMS PRMS)
- file opnewc.f
- file oprdat.f
Functions
- subroutine oprdat(JEXOPT JEXOPT, KODE KODE)
- file opsame.f
Functions
- subroutine opsame(MAE MAE, MAELNK MAELNK, IOUT IOUT, LDEB LDEB)
- file opsort.f
Functions
- subroutine opsort(N N, A A, A2 A2, INDEX INDEX, LSEQ LSEQ)
- file opstus.f
Functions
- subroutine opstus(IACTK IACTK, IYR1 IYR1, IYR2 IYR2, ISQNUM ISQNUM, NTIMES NTIMES, IDT IDT, NPRMS NPRMS, ISTAT ISTAT, KODE KODE)
- file OUTCOM.F77
Functions
Variables
- file outcom_mod.f90
- file pctile.f
Functions
- subroutine pctile(N N, INDEX INDEX, CHAR CHAR, PERCNT PERCNT, TOT TOT)
- file PDEN.F77
Functions
- file pden_mod.f90
- file PLOT.F77
Functions
- READ IN CONVERTED TO RADIANS C IASPEC INPUT STAND ASPECT IN DEGREES C AVH CURRENT AVERAGE STAND HEIGHT CALCULATED IN **DENSE **C BA CURRENT STAND BASAL AREA CALCULATED IN **DENSE **C BAF BASAL AREA FACTOR USED IN INVENTORY DEFAULTED C TO IN **BLOCK DATA BUT CAN BE ALTERED BY C KEYWORD C BRK MINIMUM DIAMETER OF TREES MEASURED ON VARIABLE PLOT C SET TO IN **INITRE BUT CAN BE RESET BY C KEYWORD C D0 C D0MULT PARAMETERS FOR THE SWITCHING FUNCTION IN MORTS C SET IN CAN BE RESET BY KEYWORD C DBCN DATABASE CONTROL USED BY THE DATABASE EXTENSION C FOR DATA SOURCE IDENTIFICATION AT THE STAND LEVEL C ATAVD QUADRATIC MEAN STAND DBH AFTER THINNING SAVED IN C GRINCR AFTER CALLING DENSE C ATAVH AVERAGE HEIGHT OF DOMINATES AFTER THINNING C SAVED IN GRINCR AFTER CALL TO DENSE C ATBA BASAL AREA AFTER THINNING C SAVED IN GRINCR AFTER CALL TO DENSE C ATTPA TREES PER ACRE AFTER THINNING C SAVED IN GRINCR AFTER CALL TO DENSE C COVMLT SUM OF SERIAL CORRELATIONS BETWEEN BETWEEN TWO PERIODS C OF LENGTH I AND J C COVYR COVMLT(YR, YR)
- POSSIBLY RESET IN GRINCR C BARANK SPECIES RANKING BY AMOUNT OF BASAL AREA C PMSDIL PERCENT VALUE OF MAX SDI WHERE DENSITY RELATED MORTALITY C IS INVOKED C PMSDIU PERCENT VALUE OF MAX SDI AT WHICH STAND REACHES MAXIMUM C DENSITY C SAMWT STAND SAMPLING WEIGHT USED ONLY TO PASS THE SAMPLING C WEIGHT FOR THE STAND TO THE NEXT STEPS IN ANY ANALYSIS C VIA THE SUMMARY OUTPUT SEE GROPTS &DISPLY FOR DETAILS C TFPA SUM OF THE AREA OF A SET OF FIXED AREA PLOTS C WHICH ARE TO BE COMBINED AND RUN AS A SINGLE C STAND NORMALLY SET TO ZERO C TPROB TOTAL NUMBER OF TREES PER ACRE C IAGE ORIGINAL STAND AGE SHOULD NEVER BE UPDATED C ICAGE ORIGINAL STAND AGE COMPUTED FROM SIZE CLASS &TREE HT C ICNTY FIA COUNTY CODE C IFINT FIXED POINT REPRESENTATION OF CURRENT CYCLE LENGTH C LOADED IN **MAIN **C IFOR SUBSCRIPT TO REGION ONE FOREST IDENTIFICATION CODE C IGL GEOGRAPHIC LOCATION USED IN REGENT C IPVEC SUB PLOT IDENTIFICATION VECTOR C ISMALL NUMBER OF TREE RECORDS LESS THAN INCHES DBH C COMPUTED IN **HTGF **SUBSCRIPTS TO THESE RECORDS C ARE STORED IN IND2 C ISTATE FIA STATE CODE C ITYPE INPUT STAND HABITAT TYPE CODE CONVERTED TO C SUBSCRIPT IN **INITRE **C JSP VALID SPECIES CODES LOADED IN **BLOCK DATA **C CHANGABLE BY KEYWORD C JSPIN SET IN **INTREE **SPCTRN **ESTAB CARRIES INPUT C SPECIES CODE **SPCTRN **C JTYPE VALID HABITAT TYPE CODES LOADED IN **BLOCK DATA **C MGMID THE RUN MANAGEMENT ID SET BY KEYWORD C NPLT STAND IDENTIFICATION CODE INPUT BY KEYWORD CARD C NSP VALID SPECIES TREE CLASS CODES LOADED IN C **BLOCK DATA **C OLDTPA THE TREES PER ACRE AT THE END OF THE LAST CYCLE C OLDBA THE BASAL AREA PER ACRE AT THE END OF THE LAST CYCLE C OLDAVH AVERAGE DOM HEIGHT AT END OF LAST CYCLE C ORMSQD QUADRATIC MEAN DBH AT END OF LAST CYCLE C VMLT SUM OF SERIAL CORRELATIONS WITHIN A PERIOD OF LENGHT I C VMLTYR VMLT(YR)
Variables
- CODE SEGMENT PLOT C C COMMON $ID C CHARACTER CPVREF REAL SDIAC2 INTEGER JSPINDEF COMMON PLOT & JSPIN
- CODE SEGMENT PLOT C C COMMON $ID C CHARACTER CPVREF REAL SDIAC2 INTEGER JSPINDEF COMMON PLOT JSPINDEF C C DEFINITIONS OF VARIABLES IN PLOT COMMON BLOCK
- READ IN DEGREES
- READ IN CONVERTED TO RADIANS C IASPEC INPUT STAND ASPECT IN DEGREES C AVH CURRENT AVERAGE STAND HEIGHT CALCULATED IN **DENSE **C BA CURRENT STAND BASAL AREA CALCULATED IN **DENSE **C BAF BASAL AREA FACTOR USED IN INVENTORY DEFAULTED C TO IN **BLOCK DATA BUT CAN BE ALTERED BY C KEYWORD C BRK MINIMUM DIAMETER OF TREES MEASURED ON VARIABLE PLOT C SET TO IN **INITRE BUT CAN BE RESET BY C KEYWORD C D0 C D0MULT PARAMETERS FOR THE SWITCHING FUNCTION IN MORTS C SET IN GRINIT
- READ IN CONVERTED TO RADIANS C IASPEC INPUT STAND ASPECT IN DEGREES C AVH CURRENT AVERAGE STAND HEIGHT CALCULATED IN **DENSE **C BA CURRENT STAND BASAL AREA CALCULATED IN **DENSE **C BAF BASAL AREA FACTOR USED IN INVENTORY DEFAULTED C TO IN **BLOCK DATA BUT CAN BE ALTERED BY C KEYWORD C BRK MINIMUM DIAMETER OF TREES MEASURED ON VARIABLE PLOT C SET TO IN **INITRE BUT CAN BE RESET BY C KEYWORD C D0 C D0MULT PARAMETERS FOR THE SWITCHING FUNCTION IN MORTS C SET IN CAN BE RESET BY KEYWORD C DBCN DATABASE CONTROL NUMBER
- READ IN CONVERTED TO RADIANS C IASPEC INPUT STAND ASPECT IN DEGREES C AVH CURRENT AVERAGE STAND HEIGHT CALCULATED IN **DENSE **C BA CURRENT STAND BASAL AREA CALCULATED IN **DENSE **C BAF BASAL AREA FACTOR USED IN INVENTORY DEFAULTED C TO IN **BLOCK DATA BUT CAN BE ALTERED BY C KEYWORD C BRK MINIMUM DIAMETER OF TREES MEASURED ON VARIABLE PLOT C SET TO IN **INITRE BUT CAN BE RESET BY C KEYWORD C D0 C D0MULT PARAMETERS FOR THE SWITCHING FUNCTION IN MORTS C SET IN CAN BE RESET BY KEYWORD C DBCN DATABASE CONTROL USED BY THE DATABASE EXTENSION C FOR DATA SOURCE IDENTIFICATION AT THE STAND LEVEL C ATAVD QUADRATIC MEAN STAND DBH AFTER THINNING SAVED IN C GRINCR AFTER CALLING DENSE C ATAVH AVERAGE HEIGHT OF DOMINATES AFTER THINNING C SAVED IN GRINCR AFTER CALL TO DENSE C ATBA BASAL AREA AFTER THINNING C SAVED IN GRINCR AFTER CALL TO DENSE C ATTPA TREES PER ACRE AFTER THINNING C SAVED IN GRINCR AFTER CALL TO DENSE C COVMLT SUM OF SERIAL CORRELATIONS BETWEEN BETWEEN TWO PERIODS C OF LENGTH I AND J C COVYR UPDATED IN **DISPLY **C FPA INVERSE OF THE AREA OF THE FIXED PLOT IN ACRES C SET TO IN **INITRE BUT CAN BE RESET BY C KEYWORD C GROSPC MULTIPLIER WHICH INFLATES CROWN COMPETITION FACTOR C TO COMPENSATE FOR NON STOCKABLE POINTS COMPUTED C IN **INITRE **C PI NUMBER OF POINTS INVENTORIED SET IN **INITRE **C IPTINV SAME AS PI(EXCEPT IT IS AN INTEGER) C NONSTK--NUMBER OF NON-STOCKABLE POINTS INVENTORIED.SET C AND USED IN **INITRE **.C RELDEN--CURRENT CROWN COMPETITION FACTOR FOR THE STAND.C COMPUTED IN **DENSE **.C RELDM1--CROWN COMPETITION FACTOR FOR STAND IN PREVIOUS CYCLE.C COMPUTED IN **DENSE **.C RELDSP--CONTRIBUTION TO CROWN COMPETITION FACTOR OF EACH C SPECIES.COMPUTED IN **DENSE **.C RMSQD--STAND QUADRATIC MEAN DIAMETER.CALCULATED IN C **DENSE **C SLOPE--STAND SLOPE PERCENT SCALED TO THE RANGE 0-1.C ISLOP--INPUT STAND SLOPE NOT DECODED.C TLAT--INPUT STAND LATITUDE.C TLONG--INPUT STAND LONGITUDE.C RMAI--ADJUSTED MEAN ANNUAL INCREMENT FOR THE STAND C SITEAR--SITE INDEX VALUES BY SPECIES FOR LARGE AND SMALL TREES.C ISISP--SITE SPECIES IE SPECIES OF MAXIMUM BASAL AREA.SPECIFIED C BY KEYWORD OR CALCULATED IN MBACAL.C SITETR--TREE INFORMATION FOR CALCULATING SITE INDEX C INITIALLY SET IN INITRE
- POSSIBLY RESET IN GRINCR C BARANK SPECIES RANKING BY AMOUNT OF BASAL AREA C PMSDIL PERCENT VALUE OF MAX SDI WHERE DENSITY RELATED MORTALITY C IS INVOKED C PMSDIU PERCENT VALUE OF MAX SDI AT WHICH STAND REACHES MAXIMUM C DENSITY C SAMWT STAND SAMPLING WEIGHT USED ONLY TO PASS THE SAMPLING C WEIGHT FOR THE STAND TO THE NEXT STEPS IN ANY ANALYSIS C VIA THE SUMMARY OUTPUT SEE GROPTS &DISPLY FOR DETAILS C TFPA SUM OF THE AREA OF A SET OF FIXED AREA PLOTS C WHICH ARE TO BE COMBINED AND RUN AS A SINGLE C STAND NORMALLY SET TO ZERO C TPROB TOTAL NUMBER OF TREES PER ACRE C IAGE ORIGINAL STAND AGE SHOULD NEVER BE UPDATED C ICAGE ORIGINAL STAND AGE COMPUTED FROM SIZE CLASS &TREE HT C ICNTY FIA COUNTY CODE C IFINT FIXED POINT REPRESENTATION OF CURRENT CYCLE LENGTH C LOADED IN **MAIN **C IFOR SUBSCRIPT TO REGION ONE FOREST IDENTIFICATION CODE C IGL GEOGRAPHIC LOCATION CODE
- POSSIBLY RESET IN GRINCR C BARANK SPECIES RANKING BY AMOUNT OF BASAL AREA C PMSDIL PERCENT VALUE OF MAX SDI WHERE DENSITY RELATED MORTALITY C IS INVOKED C PMSDIU PERCENT VALUE OF MAX SDI AT WHICH STAND REACHES MAXIMUM C DENSITY C SAMWT STAND SAMPLING WEIGHT USED ONLY TO PASS THE SAMPLING C WEIGHT FOR THE STAND TO THE NEXT STEPS IN ANY ANALYSIS C VIA THE SUMMARY OUTPUT SEE GROPTS &DISPLY FOR DETAILS C TFPA SUM OF THE AREA OF A SET OF FIXED AREA PLOTS C WHICH ARE TO BE COMBINED AND RUN AS A SINGLE C STAND NORMALLY SET TO ZERO C TPROB TOTAL NUMBER OF TREES PER ACRE C IAGE ORIGINAL STAND AGE SHOULD NEVER BE UPDATED C ICAGE ORIGINAL STAND AGE COMPUTED FROM SIZE CLASS &TREE HT C ICNTY FIA COUNTY CODE C IFINT FIXED POINT REPRESENTATION OF CURRENT CYCLE LENGTH C LOADED IN **MAIN **C IFOR SUBSCRIPT TO REGION ONE FOREST IDENTIFICATION CODE C IGL GEOGRAPHIC LOCATION C
- POSSIBLY RESET IN GRINCR C BARANK SPECIES RANKING BY AMOUNT OF BASAL AREA C PMSDIL PERCENT VALUE OF MAX SDI WHERE DENSITY RELATED MORTALITY C IS INVOKED C PMSDIU PERCENT VALUE OF MAX SDI AT WHICH STAND REACHES MAXIMUM C DENSITY C SAMWT STAND SAMPLING WEIGHT USED ONLY TO PASS THE SAMPLING C WEIGHT FOR THE STAND TO THE NEXT STEPS IN ANY ANALYSIS C VIA THE SUMMARY OUTPUT SEE GROPTS &DISPLY FOR DETAILS C TFPA SUM OF THE AREA OF A SET OF FIXED AREA PLOTS C WHICH ARE TO BE COMBINED AND RUN AS A SINGLE C STAND NORMALLY SET TO ZERO C TPROB TOTAL NUMBER OF TREES PER ACRE C IAGE ORIGINAL STAND AGE SHOULD NEVER BE UPDATED C ICAGE ORIGINAL STAND AGE COMPUTED FROM SIZE CLASS &TREE HT C ICNTY FIA COUNTY CODE C IFINT FIXED POINT REPRESENTATION OF CURRENT CYCLE LENGTH C LOADED IN **MAIN **C IFOR SUBSCRIPT TO REGION ONE FOREST IDENTIFICATION CODE C IGL GEOGRAPHIC LOCATION USED IN REGENT C IPVEC SUB PLOT IDENTIFICATION VECTOR C ISMALL NUMBER OF TREE RECORDS LESS THAN INCHES DBH C COMPUTED IN **HTGF **SUBSCRIPTS TO THESE RECORDS C ARE STORED IN IND2 C ISTATE FIA STATE CODE C ITYPE INPUT STAND HABITAT TYPE CODE CONVERTED TO C SUBSCRIPT IN **INITRE **C JSP VALID SPECIES CODES LOADED IN **BLOCK DATA **C CHANGABLE BY KEYWORD C JSPIN SET IN **INTREE **SPCTRN **ESTAB CARRIES INPUT C SPECIES CODE FORMAT
- file plot_mod.f90
- file PPDNCM.F77
- file PRGPRM.F77
Variables
- file prgprm_mod.f90
- file profile.f
Functions
- subroutine profile(REGN REGN, FORST FORST, VOLEQ VOLEQ, MTOPP MTOPP, MTOPS MTOPS, STUMP STUMP, DBHOB DBHOB, HTTYPE HTTYPE, HTTOT HTTOT, HTLOG HTLOG, HT1PRD HT1PRD, HT2PRD HT2PRD, UPSHT1 UPSHT1, UPSHT2 UPSHT2, UPSD1 UPSD1, UPSD2 UPSD2, AVGZ1 AVGZ1, AVGZ2 AVGZ2, HTREF HTREF, DBTBH DBTBH, BTR BTR, LOGDIA LOGDIA, BOLHT BOLHT, LOGLEN LOGLEN, LOGVOL LOGVOL, VOL VOL, LOGST LOGST, NOLOGP NOLOGP, NOLOGS NOLOGS, CUTFLG CUTFLG, BFPFLG BFPFLG, CUPFLG CUPFLG, CDPFLG CDPFLG, SPFLG SPFLG, DRCOB DRCOB, CTYPE CTYPE, FCLASS FCLASS, PROD PROD, ERRFLAG ERRFLAG)
- subroutine tcubic(VOLEQ VOLEQ, FORST FORST, JSP JSP, NEXTRA NEXTRA, SETOPT SETOPT, DBHOB DBHOB, HTTOT HTTOT, DBTBH DBTBH, MTOPP MTOPP, HEX HEX, DEX DEX, ZEX ZEX, RHFW RHFW, RFLW RFLW, TAPCOE TAPCOE, F F, FMOD FMOD, PINV_Z PINV_Z, TOP6 TOP6, TCVOL TCVOL, slope slope, errflag errflag)
- subroutine merlen(VOLEQ VOLEQ, FORST FORST, JSP JSP, NEXTRA NEXTRA, SETOPT SETOPT, DBHOB DBHOB, HTTOT HTTOT, DBTBH DBTBH, HEX HEX, DEX DEX, ZEX ZEX, RHFW RHFW, RFLW RFLW, TAPCOE TAPCOE, F F, FMOD FMOD, PINV_Z PINV_Z, TOP6 TOP6, STUMP STUMP, TOP TOP, LMERCH LMERCH, errflag errflag)
- subroutine getdib(VOLEQ VOLEQ, FORST FORST, JSP JSP, NEXTRA NEXTRA, SETOPT SETOPT, DBHOB DBHOB, HTTOT HTTOT, MTOPP MTOPP, STUMP STUMP, TRIM TRIM, DBTBH DBTBH, LOGST LOGST, HEX HEX, DEX DEX, ZEX ZEX, RHFW RHFW, RFLW RFLW, TAPCOE TAPCOE, F F, FMOD FMOD, PINV_Z PINV_Z, TOP6 TOP6, NUMSEG NUMSEG, LOGLEN LOGLEN, LOGDIA LOGDIA, BOLHT BOLHT, errflag errflag)
- subroutine top6len(VOLEQ VOLEQ, HTTOT HTTOT, DBHOB DBHOB, DEX DEX, HEX HEX, STUMP STUMP, TOP TOP, TOP6 TOP6, DBTBH DBTBH, errflag errflag)
- subroutine volratio(VOLEQ VOLEQ, FORST FORST, DBHOB DBHOB, HTTOT HTTOT, TOPD TOPD, LOGDIB LOGDIB, LOGLEN LOGLEN, NUMSEG NUMSEG, CUBV CUBV, VMER VMER)
- subroutine tapermodel(VOLEQ VOLEQ, FORST FORST, JSP JSP, NEXTRA NEXTRA, SETOPT SETOPT, DBHOB DBHOB, HTTOT HTTOT, DBTBH DBTBH, HEX HEX, DEX DEX, ZEX ZEX, RHFW RHFW, RFLW RFLW, TAPCOE TAPCOE, F F, FMOD FMOD, PINV_Z PINV_Z, TOP6 TOP6, HT2 HT2, MTOPP MTOPP, MFLG MFLG, CUVOL CUVOL, DIB DIB, DOB DOB, errflag errflag)
- subroutine fwsmall(JSP JSP, NEXTRA NEXTRA, SETOPT SETOPT, slope slope, DBHOB DBHOB, HTTOT HTTOT, DBTBH DBTBH, HEX HEX, ZEX ZEX, RHFW RHFW, RFLW RFLW, TAPCOE TAPCOE, F F, FMOD FMOD, PINV_Z PINV_Z, DIB1 DIB1, errflag errflag)
- subroutine volintrp(REGN REGN, VOLEQ VOLEQ, DBH DBH, LHT LHT, MHT MHT, MTOPP MTOPP, HTTYPE HTTYPE, DBTBH DBTBH, LOGVOL LOGVOL, LOGDIA LOGDIA, HTLOG HTLOG, LOGLEN LOGLEN, LOGST LOGST, NOLOGP NOLOGP, VOL VOL, CTYPE CTYPE, PROD PROD, ERRFLAG ERRFLAG)
- subroutine r10hts(EQNUM EQNUM, HTTOT HTTOT, HT1PRD HT1PRD, DBHOB DBHOB, HTTYPE HTTYPE, STUMP STUMP, TOP TOP, LMERCH LMERCH)
- subroutine firewood(VOLEQ VOLEQ, FORST FORST, JSP JSP, NEXTRA NEXTRA, SETOPT SETOPT, DBHOB DBHOB, HTTOT HTTOT, LMERCH LMERCH, DBTBH DBTBH, MTOPP MTOPP, STUMP STUMP, HEX HEX, DEX DEX, ZEX ZEX, RHFW RHFW, RFLW RFLW, TAPCOE TAPCOE, F F, FMOD FMOD, PINV_Z PINV_Z, TOP6 TOP6, TCVOL TCVOL, slope slope, errflag errflag)
- file prtexm.f
- file prtrls.f90
Functions
- subroutine prtrls(IWHO IWHO)
- file ptbal.f
Functions
- subroutine ptbal()
- file ptgdecd.f
Functions
- subroutine ptgdecd(POINTNO POINTNO, KARD KARD, IFLAG IFLAG)
- file putgetsubs.f
Functions
- subroutine bfread(BUFFER BUFFER, IPNT IPNT, ILIMIT ILIMIT, VARBLE VARBLE, ILEN ILEN, IBEGIN IBEGIN)
- subroutine bfwrit(BUFFER BUFFER, IPNT IPNT, ILIMIT ILIMIT, VARBLE VARBLE, ILEN ILEN, IBEGIN IBEGIN)
- subroutine chread(CBUFF CBUFF, IPNT IPNT, LNCBUF LNCBUF, CVARBL CVARBL, IBEGIN IBEGIN)
- subroutine chwrit(CBUFF CBUFF, IPNT IPNT, LNCBUF LNCBUF, CVARBL CVARBL, IBEGIN IBEGIN)
- subroutine lfread(BUFFER BUFFER, IPNT IPNT, ILIMIT ILIMIT, LVAR LVAR, ILEN ILEN, IBEGIN IBEGIN)
- subroutine lfwrit(BUFFER BUFFER, IPNT IPNT, ILIMIT ILIMIT, LVAR LVAR, ILEN ILEN, IBEGIN IBEGIN)
- subroutine ifread(BUFFER BUFFER, IPNT IPNT, ILIMIT ILIMIT, IVAR IVAR, ILEN ILEN, IBEGIN IBEGIN)
- subroutine ifwrit(BUFFER BUFFER, IPNT IPNT, ILIMIT ILIMIT, IVAR IVAR, ILEN ILEN, IBEGIN IBEGIN)
- file putstd.f
Functions
- subroutine putstd()
- file pvref6.f
Functions
- subroutine pvref6(KARD2 KARD2, ARRAY2 ARRAY2, LPVCOD LPVCOD, LPVREF LPVREF)
- file r10tap.f
Functions
- subroutine r10tap(TAPEQU TAPEQU, DBHOB DBHOB, HTTOT HTTOT, HTUP HTUP, D2 D2)
- file r1tap.f
Functions
- subroutine r1tap(VOLEQ VOLEQ, FORST FORST, DBHOB DBHOB, HTTOT HTTOT, TOPD TOPD, HTM HTM, MFLAG MFLAG, CVOL CVOL, D2 D2)
- file r2tap.f
- file r5crwd.f
Functions
- subroutine r5crwd(ISPC ISPC, D D, H H, CRWDTH CRWDTH)
- file r5tap.f
Functions
- subroutine r5tap(VOLEQ VOLEQ, DBHOB DBHOB, HTTOT HTTOT, HT2 HT2, D2 D2, errflg errflg)
- file r6crwd.f
Functions
- subroutine r6crwd(ISPC ISPC, D D, H H, CRWDTH CRWDTH)
- file r6dibs.f
Functions
- subroutine r6dibs(IAPZ IAPZ, DBHOB DBHOB, IBTR IBTR, FCLASS FCLASS, MTOPP MTOPP, TLH TLH, TH TH, XLOGS XLOGS, LOGDIA LOGDIA, SL SL, XL XL, A A)
- file r6fix.f
Functions
- subroutine r6fix(DBHOB DBHOB, FCLASS FCLASS, tlh tlh, tth tth, httype httype, logvol logvol)
- file r6vol.f
Functions
- subroutine r6vol(VOLEQ VOLEQ, FORST FORST, DBHOB DBHOB, BTR BTR, FCLASS FCLASS, MTOPP MTOPP, HT1 HT1, HTTYPE HTTYPE, VOL VOL, LOGVOL LOGVOL, NOLOGP NOLOGP, LOGDIA LOGDIA, SCALEN SCALEN, DBTBH DBTBH, HT1PRD HT1PRD, CTYPE CTYPE, ERRFLAG ERRFLAG)
- subroutine getfclass(VOLEQ VOLEQ, FORST FORST, DBHOB DBHOB, FCLASS FCLASS)
- file r6vol1.f
- file r6vol3.f
Functions
- subroutine r6vol3(DBHOB DBHOB, DBTBH DBTBH, FCLASS FCLASS, HTTOT HTTOT, ZONE ZONE, VOL VOL)
- file RANCOM.F77
- file rann.f
Functions
- subroutine rann(SEL SEL)
- file rcdset.f
Functions
- subroutine rcdset(IC IC, LRETRN LRETRN)
- file rcon.f
Functions
- subroutine rcon()
- file rdpsrt.f
Functions
- subroutine rdpsrt(N N, A A, INDEX INDEX, LSEQ LSEQ)
- file reass.f
Functions
- subroutine reass()
- file regent.f
Functions
- subroutine regent(LESTB LESTB, ITRNIN ITRNIN)
- file resage.f
Functions
- subroutine resage()
- file revise.f
Functions
- subroutine revise(VAR VAR, REV REV)
- file rxdibs.f
- file scalef.f
Functions
- subroutine scalef(SMD SMD, XLOG XLOG, FACTOR FACTOR, JOSTND JOSTND)
- file SCREEN.F77
- file scrib.f
Functions
- subroutine scrib(DIA DIA, LEN LEN, COR COR, VOL VOL)
- subroutine intl14(DIB DIB, LENGTH LENGTH, BFINT BFINT)
- file sdefet.f
Functions
- subroutine sdefet(LNOTBK LNOTBK, ARRAY ARRAY, KEYWRD KEYWRD, LOPEVN LOPEVN, IACTK IACTK, KARD KARD, IPRMPT IPRMPT)
- file sdefln.f
Functions
- subroutine sdefln(LNOTBK LNOTBK, ARRAY ARRAY, KEYWRD KEYWRD, B0 B0, B1 B1, KARD KARD, IS IS)
- file sdical.f
Functions
- subroutine sdical(XMAX XMAX)
- file sdichk.f
Functions
- subroutine sdichk()
- file segmnt.f
Functions
- subroutine segmnt(OPT OPT, EVOD EVOD, LMERCH LMERCH, MAXLEN MAXLEN, MINLEN MINLEN, TRIM TRIM, NUMSEG NUMSEG, LOGLEN LOGLEN)
- file setup.f
Functions
- subroutine setup()
- file sf_2pt.f
- file sf_2pth.f
- file sf_3pt.f
- file sf_3z.f
- file sf_corr.f
- file sf_dfz.f
- file sf_ds.f
- file sf_hs.f
- file sf_shp.f
Functions
- subroutine sf_shp(JSP JSP, GEOSUB GEOSUB, SETOPT SETOPT, DBHOB DBHOB, TOTALH TOTALH, RFLW RFLW, RHFW RHFW, DBTBH DBTBH, DBT_USER DBT_USER, DBHIB DBHIB)
- file sf_taper.f
Functions
- subroutine sf_taper(RHFW RHFW, RFLW RFLW, TAPCOE TAPCOE)
- file sf_yhat.f
- file sf_yhat3.f
- file sf_zero.f
Functions
- subroutine sf_zero(X1 X1, F1 F1, X2 X2, F2 F2, MODE MODE, TOL TOL)
- Parameters
- mode -
> 1996 SZERO JWF Removed calls AMACH , MESS, SMESS and UMESS
- mode -
- subroutine amach(MODE MODE, I I, I1 I1, R1 R1, D1 D1)
- Parameters
- mode -
> 1992-04-07 AMACH Oken Removed ^Z at EOF (error found by VAX compile)
- i -
> 1992-04-07 AMACH Oken Removed ^Z at EOF (error found by VAX compile)
- i1 -
> 1992-04-07 AMACH Oken Removed ^Z at EOF (error found by VAX compile)
- mode -
- double precision function d1mach(I I)
- subroutine amtest(TEST TEST, D6 D6)
- double precision function amsub1(TEST1 TEST1)
- file sgdecd.f
Functions
- subroutine sgdecd(ISPC ISPC, KARD KARD, IFLAG IFLAG)
- file sichg.f
Functions
- subroutine sichg(ISISP ISISP, SSITE SSITE, SIAGE SIAGE)
- file siteht_mod.f90
- file sitset.f90
Functions
- subroutine sitset()
- file smhgdg.f
- file snag_data.f90
- file SNCOM.F77
Functions
Variables
- CODE SEGMENT SECOM C C **SNCOM SN DATE OF LAST INCLUDING ITH TREE COMPUTED C IN BADIST C SUM OF DBH *PROB COMPUTED C IN BADIST C KODIST
- CODE SEGMENT SECOM C C **SNCOM SN DATE OF LAST INCLUDING ITH TREE COMPUTED C IN BADIST C SUM OF DBH *PROB COMPUTED C IN BADIST C IFT
- CODE SEGMENT SECOM C C **SNCOM SN DATE OF LAST INCLUDING ITH TREE COMPUTED C IN BADIST C SUM OF DBH *PROB COMPUTED C IN BADIST C IREG
- CODE SEGMENT SECOM C C **SNCOM SN DATE OF LAST INCLUDING ITH TREE COMPUTED C IN BADIST C SUM OF DBH *PROB COMPUTED C IN BADIST C ISEFOR
- file spctrn.f
Functions
- subroutine spctrn(SPCIN SPCIN, ISPC1 ISPC1)
- file spdecd.f
- file spesrt.f
Functions
- subroutine spesrt()
- file sstage.f
Functions
- subroutine sstage(INBA INBA, INICYCLE INICYCLE, LSUPRT LSUPRT)
- subroutine sstghp(I1 I1, I2 I2, INDEX INDEX, WK6 WK6, WK4 WK4, DBH DBH, HT HT, TMPICR TMPICR, ISP ISP, TMPPRB TMPPRB, MAXTRE MAXTRE, MAXSP MAXSP, DBHNOM DBHNOM, IHT IHT, IHTS IHTS, IHTL IHTL, ICRB ICRB, MSP1 MSP1, MSP2 MSP2)
- subroutine sstghtpa(I1 I1, I2 I2, INDEX INDEX, TMPPRB TMPPRB, MAXTRE MAXTRE, STRTPA STRTPA)
- file SSTGMC.F77
-
Variables
- file stash.f
Functions
- subroutine stash(BUFFER BUFFER, ILIMIT ILIMIT)
- subroutine chstsh(CBUFF CBUFF, LNCBUF LNCBUF)
- subroutine dstash(BUFFER BUFFER, IPNT IPNT)
- subroutine chdsth(CBUFF CBUFF, IPNT IPNT)
- file stats.f
Functions
- subroutine stats()
- file STDSTK.F77
Functions
- file step_tregro.f90
Functions
- subroutine step_tregro()
- file stkval.f
Functions
- subroutine stkval(S S)
- file sumhed.f
Functions
- subroutine sumhed()
- file sumout.f
- file SUMTAB.F77
Functions
Variables
- file svblkd.f
- file svcdbh.f
Functions
- subroutine svcdbh(REMOV REMOV, IST IST)
- file svcmp1.f
Functions
- subroutine svcmp1()
- file svcmp2.f
Functions
- subroutine svcmp2(ITARG ITARG, ISOUR ISOUR)
- file svcmp3.f
Functions
- subroutine svcmp3()
- file svcrol.f
Functions
- subroutine svcrol(X1 X1, Y1 Y1, R1 R1, X2 X2, Y2 Y2, R2 R2, KODE KODE)
- file svcuts.f
Functions
- subroutine svcuts(IVAC IVAC, SSNG SSNG, DSNG DSNG, CTCRWN CTCRWN)
- file svcwd.f
Functions
- subroutine svcwd(IYEAR IYEAR)
- file SVDATA.F77
Functions
Variables
- CODE SEGMENT SVDATA C C **SVDATA DATE OF LAST IMETRIC REAL IMETRIC C C COMMON AREA FOR STAND OTHERWISE IT IS THE FILE NUMBER C USED TO WRITE THE svs FILES C SVS TREE CLASS WILL AS BEING NEGATIVE C IS USED TO STORE INFORMATION FOR A SHORT TIME C SEE SVGRND FOR DEFINITIONS C IS2F POINTS TO TREE RECORD C IF IS2F POINTS TO A SNAG RECORD C IF IS2F POINTS TO A CWD RECORD C IF ZERO
- CODE SEGMENT SVDATA C C **SVDATA DATE OF LAST IMETRIC REAL IMETRIC C C COMMON AREA FOR STAND OTHERWISE IT IS THE FILE NUMBER C USED TO WRITE THE svs FILES C SVS TREE CLASS WILL AS BEING NEGATIVE C IS USED TO STORE INFORMATION FOR A SHORT TIME C SEE SVGRND FOR DEFINITIONS C IS2F POINTS TO TREE RECORD C IF IS2F POINTS TO A SNAG RECORD C IF IS2F POINTS TO A CWD RECORD C IF THEN THE OBJECT IS ONE OF THE OBJ TYPES
- CODE SEGMENT SVDATA C C **SVDATA DATE OF LAST IMETRIC REAL IMETRIC C C COMMON AREA FOR STAND OTHERWISE IT IS THE FILE NUMBER C USED TO WRITE THE svs FILES C SVS TREE CLASS WILL AS BEING NEGATIVE C IS USED TO STORE INFORMATION FOR A SHORT TIME C SEE SVGRND FOR DEFINITIONS C IS2F POINTS TO TREE RECORD C IF IS2F POINTS TO A SNAG RECORD C IF IS2F POINTS TO A CWD RECORD C IF THEN THE OBJECT IS ONE OF THE OBJ C BUT IT IS NOT REGISTERED WITH A ATTRIBUTE LIST C MIN COORDINATES FOR RECTANGULAR C PLOTS AND MAX
- CODE SEGMENT SVDATA C C **SVDATA DATE OF LAST IMETRIC REAL IMETRIC C C COMMON AREA FOR STAND OTHERWISE IT IS THE FILE NUMBER C USED TO WRITE THE svs FILES C SVS TREE CLASS WILL AS BEING NEGATIVE C IS USED TO STORE INFORMATION FOR A SHORT TIME C SEE SVGRND FOR DEFINITIONS C IS2F POINTS TO TREE RECORD C IF IS2F POINTS TO A SNAG RECORD C IF IS2F POINTS TO A CWD RECORD C IF THEN THE OBJECT IS ONE OF THE OBJ C BUT IT IS NOT REGISTERED WITH A ATTRIBUTE LIST C MIN COORDINATES FOR RECTANGULAR C PLOTS AND MIN RADII AND ANGLES FOR CIRCULAR PLOTS C WHERE C
- file SVDEAD.F77
Functions
- CODE SEGMENT SVDEAD C C **SVDEAD DATE OF LAST CWDWT C C COMMON AREA FOR SNAGS C C INDICATES THAT SNAG IS TO BE C AND IS REMOVED IN THE NEXT CALL TO SVOUT HARD SNAG HARD SNAG HARD SNAG SOFT SNAG RECENTLY STILL HAS CROWN OLDER NO CROWN ONE OR LESS YEARS OLD(RED)
Variables
- CODE SEGMENT SVDEAD C C **SVDEAD DATE OF LAST CWDWT C C COMMON AREA FOR SNAGS C C INDICATES THAT SNAG IS TO BE SALVAGED
- CODE SEGMENT SVDEAD C C **SVDEAD DATE OF LAST CWDWT C C COMMON AREA FOR SNAGS C C INDICATES THAT SNAG IS TO BE C AND IS REMOVED IN THE NEXT CALL TO SVOUT C
- CODE SEGMENT SVDEAD C C **SVDEAD DATE OF LAST CWDWT C C COMMON AREA FOR SNAGS C C INDICATES THAT SNAG IS TO BE C AND IS REMOVED IN THE NEXT CALL TO SVOUT HARD SNAG HARD SNAG HARD SNAG SOFT SNAG RECENTLY BURNED
- CODE SEGMENT SVDEAD C C **SVDEAD DATE OF LAST CWDWT C C COMMON AREA FOR SNAGS C C INDICATES THAT SNAG IS TO BE C AND IS REMOVED IN THE NEXT CALL TO SVOUT HARD SNAG HARD SNAG HARD SNAG SOFT SNAG RECENTLY STILL HAS CROWN OLDER NO CROWN ONE OR LESS YEARS TWO YEARS YEARS FOR SVS C FOR SOFT SNAGS C FOR HARD SNAGS C for original source tree rec and C year of death
- file svdfln.f
Functions
- subroutine svdfln(X1 X1, Y1 Y1, X2 X2, Y2 Y2, A A, B B, KODE KODE)
- file svestb.f
Functions
- subroutine svestb(I1 I1)
- file svgrnd.f
Functions
- subroutine svgrnd(NOUT NOUT, KYLAST KYLAST, KYFRST KYFRST, IFIREFLG IFIREFLG)
- file svgtpl.f
Functions
- subroutine svgtpl()
- file svgtpt.f
Functions
- subroutine svgtpt(IPGLEM IPGLEM, X1R1 X1R1, X2R2 X2R2, Y1A1 Y1A1, Y2A2 Y2A2, X X, Y Y, IMETRIC IMETRIC)
- file svhabt.f
Functions
- subroutine svhabt(XMOD XMOD)
- file svinit.f
Functions
- subroutine svinit()
- file svkey.f
Functions
- subroutine svkey(KEYWRD KEYWRD, LNOTBK LNOTBK, ARRAY ARRAY)
- file svlcol.f
Functions
- subroutine svlcol(X X, Y Y, R R, X1 X1, Y1 Y1, X2 X2, Y2 Y2, KODE KODE)
- file svlnol.f
Functions
- subroutine svlnol(XJ1 XJ1, YJ1 YJ1, XJ2 XJ2, YJ2 YJ2, XK1 XK1, YK1 YK1, XK2 XK2, YK2 YK2, XS XS, YS YS, KODE KODE)
- file svlsol.f
Functions
- subroutine svlsol(XJ1 XJ1, XJ2 XJ2, XK1 XK1, XK2 XK2, XS XS, KODE KODE)
- file svmort.f
Functions
- subroutine svmort(ICALLER ICALLER, CUMMORT CUMMORT, ICURYEAR ICURYEAR)
- file svntr.f
Functions
- subroutine svntr(XP XP, NP NP)
- file svobol.f
- file svonln.f
Functions
- subroutine svonln(X X, Y Y, X1 X1, Y1 Y1, X2 X2, Y2 Y2, KODE KODE)
- file svout.f
Functions
- subroutine svout(IYEAR IYEAR, IFMCLFG IFMCLFG, AMSG AMSG)
- file svrann.f
Functions
- subroutine svrann(SEL SEL)
- file SVRCOM.F77
- file svrmov.f
Functions
- subroutine svrmov(REMOVE REMOVE, ISWTCH ISWTCH, SSNG SSNG, DSNG DSNG, CTCRWN CTCRWN, ICURYEAR ICURYEAR)
- file svsalv.f
Functions
- subroutine svsalv(IYR IYR, MINDBH MINDBH, MAXDBH MAXDBH, MAXAGE MAXAGE, OKSOFT OKSOFT, PROP PROP, PROPLV PROPLV)
- file svsnad.f
Functions
- subroutine svsnad(IYEAR IYEAR, ISNADD ISNADD, NSNGS NSNGS, ISWTCH ISWTCH)
- file svsnage.f
Functions
- subroutine svsnage(IYEAR IYEAR, IDEAD IDEAD, SNCRDI SNCRDI, SNCRTO SNCRTO, SNHT SNHT, SNDI SNDI)
- file svstart.f
Functions
- subroutine svstart()
- file svtdel.f
Functions
- subroutine svtdel(INDEX INDEX, IVACT IVACT)
- file svtrip.f
Functions
- subroutine svtrip(IBASE IBASE, IT1 IT1)
- file tredel.f
Functions
- subroutine tredel(IVACT IVACT, INDEX INDEX)
- file tree_data.f90
- file tregro.f
Functions
- subroutine tregro()
- file tremov.f
- file tresor.f
Functions
- subroutine tresor()
- file triple.f
Functions
- subroutine triple()
- file trnasp.f
Functions
- subroutine trnasp()
- file trnslo.f
Functions
- subroutine trnslo()
- file tvalue.f
Functions
- subroutine tvalue(N N, P P, T T, IERR IERR)
- file unblnk.f
Functions
- subroutine unblnk(RECORD RECORD, IRLEN IRLEN)
- file upcase.f
Functions
- subroutine upcase(C C)
- file update.f
Functions
- subroutine update()
- file upkey.f
Functions
- subroutine upkey(KEYWRD KEYWRD)
- file uuidgen.f
- file VARCOM.F77
Functions
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IABFLG(MAXSP)
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER ISTAGF(MAXSP)
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER MAXSDI(MAXSP)
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL AA(MAXSP)
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL BB(MAXSP)
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL B0ACCF(MAXSP)
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL B1ACCF(MAXSP)
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL & B0BCCF(MAXSP)
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL B1BCCF(MAXSP)
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL B0ASTD(MAXSP)
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL & B1BSTD(MAXSP)
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL HTT1(MAXSP, 9)
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL HTT2(MAXSP, 9)
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL & BB0(MAXSP)
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL BB1(MAXSP)
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL BB2(MAXSP)
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL BB3(MAXSP)
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL BB4(MAXSP)
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL & BB5(MAXSP)
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL BB6(MAXSP)
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL BB7(MAXSP)
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL BB8(MAXSP)
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL BB9(MAXSP)
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL & BB10(MAXSP)
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL BB11(MAXSP)
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL BB12(MAXSP)
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL BB13(MAXSP)
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL & PTBALT(MAXTRE)
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL PTBAA(MAXPLT)
Variables
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER & ISILFT
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER MFLMSB
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL CEPMRT
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL SLPMRT
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL TPAMRT
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL & QMDMSB
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL SLPMSB
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL CEPMSB
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL EFFMSB
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DLOMSB
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM AA
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM BB
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM IABFLG
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM B0ACCF
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM B1ACCF
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM B0BCCF
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM B1BCCF
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM B0ASTD
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM & B1BSTD
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM HTT1
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM HTT2
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM BB0
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM BB1
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM BB2
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM BB3
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM BB4
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM BB5
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM BB6
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM BB7
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM & BB8
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM BB9
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM BB10
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM BB11
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM BB12
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM BB13
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM PTBALT
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM PTBAA
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM ISTAGF
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM & MAXSDI
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM LFIXSD
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM DHIMSB
- CODE SEGMENT VARCOM C C **VARCOM COMMON DATE OF LAST PCOMX COMMON VARCHR PCOMX LOGICAL LFIXSD INTEGER IBASP REAL DHIMSB COMMON VARCOM IBASP C C DEFINITIONS OF VARIABLES IN VARCOM &VARCHR COMMON BLOCKS
- USED AND POSSIBLY CHANGED C IN **CRATET **USED IN **REGENT **C(ALSO SEE VARIABLE LHTDRG IN THE CONTRL COMMON BLOCK) C ISILFT--SILVAH FOREST TYPE OTHERWISE
- USED AND POSSIBLY CHANGED C IN **CRATET **USED IN **REGENT **C(ALSO SEE VARIABLE LHTDRG IN THE CONTRL COMMON BLOCK) C ISILFT--SILVAH FOREST TYPE THE C USER DEFINED BAMAX IS USED C IN THE IT ALSO PREVENTS C RESETTING OF BAMAX
- USED AND POSSIBLY CHANGED C IN **CRATET **USED IN **REGENT **C(ALSO SEE VARIABLE LHTDRG IN THE CONTRL COMMON BLOCK) C ISILFT--SILVAH FOREST TYPE THE C USER DEFINED BAMAX IS USED C IN THE IT ALSO PREVENTS C RESETTING OF OR SDIDEF UPON CHANGES IN FOREST TYPE C QMDMSB QMD AT WHICH THE MATURE STAND BOUNDARY GOES INTO EFFECT C USED IN SDI BASED MORTALITY MODELS C SLPMSB SLOPE OF THE MATURE STAND BOUNDARY LINE C USED IN SDI BASED MORTALITY MODELS C CEPMSB INTERCEPT OF THE MATURE STAND BOUNDARY LINE C USED IN SDI BASED MORTALITY MODELS C EFFMSB MSB MORTALITY EFFICIENCY
- WITHIN THE DBH RANGE
- file varcom_mod.f90
- file varget.f
Functions
- subroutine varget(WK3 WK3, IPNT IPNT, ILIMIT ILIMIT, REALS REALS, LOGICS LOGICS, INTS INTS)
- subroutine varchget(CBUFF CBUFF, IPNT IPNT, LNCBUF LNCBUF)
- file varput.f
Functions
- subroutine varput(WK3 WK3, IPNT IPNT, ILIMIT ILIMIT, REALS REALS, LOGICS LOGICS, INTS INTS)
- subroutine varchput(CBUFF CBUFF, IPNT IPNT, LNCBUF LNCBUF)
- file varvol.f
Functions
- subroutine varvol()
- file voleqdef.f
Functions
- subroutine voleqdef(VAR VAR, REGN REGN, FORST FORST, DIST DIST, SPEC SPEC, PROD PROD, VOLEQ VOLEQ, ERRFLAG ERRFLAG)
- subroutine getvariant(REGN REGN, FORST FORST, DIST DIST, VAR VAR)
- subroutine r1_eqn(FORST FORST, SPEC SPEC, VAR VAR, VOLEQ VOLEQ, ERRFLAG ERRFLAG)
- subroutine r2_eqn(FORST FORST, SPEC SPEC, VOLEQ VOLEQ, ERRFLAG ERRFLAG)
- subroutine r3_eqn(FORST FORST, SPEC SPEC, VOLEQ VOLEQ, ERRFLAG ERRFLAG)
- subroutine r4_eqn(FORST FORST, SPEC SPEC, VOLEQ VOLEQ, ERRFLAG ERRFLAG)
- subroutine r5_eqn(FORST FORST, SPEC SPEC, VAR VAR, VOLEQ VOLEQ, ERRFLAG ERRFLAG)
- subroutine r6_eqn(VAR VAR, FORST FORST, DIST DIST, SPEC SPEC, VOLEQ VOLEQ, ERRFLAG ERRFLAG)
- subroutine r7_eqn(FORST FORST, SPEC SPEC, VAR VAR, VOLEQ VOLEQ, ERRFLAG ERRFLAG)
- subroutine r8_beqn(FORST FORST, DIST DIST, SPEC SPEC, PROD PROD, VAR VAR, VOLEQ VOLEQ, ERRFLAG ERRFLAG)
- subroutine r8_ceqn(FORST FORST, DIST DIST, SPEC SPEC, PROD PROD, VAR VAR, VOLEQ VOLEQ, ERRFLAG ERRFLAG)
- subroutine r9_eqn(FORST FORST, SPEC SPEC, VAR VAR, VOLEQ VOLEQ, ERRFLAG ERRFLAG)
- subroutine r10_eqn(FORST FORST, SPEC SPEC, VOLEQ VOLEQ, ERRFLAG ERRFLAG)
- subroutine fiavoleqdef(VAR VAR, REGN REGN, FORST FORST, DIST DIST, SPEC SPEC, VOLEQ VOLEQ, ERRFLAG ERRFLAG)
- subroutine r5_pnweqn(FORST FORST, SPEC SPEC, VAR VAR, VOLEQ VOLEQ, ERRFLAG ERRFLAG)
- subroutine r6_pnweqn(FORST FORST, SPEC SPEC, VAR VAR, VOLEQ VOLEQ, ERRFLAG ERRFLAG)
- file volkey.f
Functions
- subroutine volkey(DEBUG DEBUG)
- file vols.f
Functions
- subroutine vols()
- file VOLSTD.F77
Functions
Variables
- CODE SEGMENT VOLSTD C C **VOLSTD DATE OF LAST VEQNNC COMMON VOLSTD LOGVOL C C DEFINITIONS OF VARIABLES IN VOLCHR COMMON BLOCK
- CODE SEGMENT VOLSTD C C **VOLSTD DATE OF LAST VEQNNC COMMON VOLSTD LOGVOL C C DEFINITIONS OF VARIABLES IN VOLCHR COMMON C SCALING DIA INSIDE BARK
- file volstd_mod.f90
- file win_ccwf.h
Defines
- e_Soi_LoaSke
- e_Soi_FinSil
- e_Soi_Fin
- e_Soi_CoaSil
- e_Soi_CoaLoa
- e_WD_Right
- e_WD_Left
- e_WD_Even
- e_WD_End
- e_WD_Center
- eC_WndTxt
Functions
- void CCW_Init(void)
- int CCW_isBatch(void)
- int CCW_Spring(void)
- int CCW_Summer(void)
- int CCW_Fall(void)
- int CCW_Winter(void)
- int CCW_SouthEast(void)
- int CCW_PacificWest(void)
- int CCW_InteriorWest(void)
- int CCW_NorthEast(void)
- int CCW_isDufAdjNFDR(void)
- int CCW_isDufNFDR(void)
- int CCW_isDufEntire(void)
- int CCW_isDufLower(void)
- char CCW_MoistCond(void)
- int CCW_isFCC(void)
- void CCW_GetWeiDis(char cr_WndTxt[])
- int CCW_Set_Season(int i_Season)
- int CCW_Set_MoistCond(int i_MoistCond)
- int CCW_Set_Region(int i_Region)
- int CCW_SetRegion(char cr_Region[])
- int CCW_Set_DufMoiMet(int i_DufMoiMet)
- int CCW_Set_FirSev(int i_FirSev)
- int CCW_Set_Soil(int i_Soil)
- int CCW_SoilMoist(float * af_Moist)
- void CCW_GetSoilType(char cr_SoiTyp[])
- void CCW_SetSoilMoist(float f_Moist)
- int CCW_isLow(void)
- file WORKCM.F77
Functions
Variables
- CODE SEGMENT WORKCM C C **WORKCM COMMON DATE OF LAST IWORK1 C C DEFINITIONS OF VARIABLES IN WORKCM COMMON BLOCK
- CODE SEGMENT WORKCM C C **WORKCM COMMON DATE OF LAST IWORK1 C C DEFINITIONS OF VARIABLES IN WORKCM COMMON **PRTRLS AND **FVSSTD **IN C AND FOR C TREES WITH NOMEASURED DG FOR PRINTING ON CYCLE C TREELIST USED IN **EVLDX **TO PROCESS THE SPMCDBH C FUNCTION WHEN COVER IS BEING COMPUTED USED IN C ** SVCMP1
- CODE SEGMENT WORKCM C C **WORKCM COMMON DATE OF LAST IWORK1 C C DEFINITIONS OF VARIABLES IN WORKCM COMMON **PRTRLS AND **FVSSTD **IN C AND FOR C TREES WITH NOMEASURED DG FOR PRINTING ON CYCLE C TREELIST USED IN **EVLDX **TO PROCESS THE SPMCDBH C FUNCTION WHEN COVER IS BEING COMPUTED USED IN C **SVCUTS AND **SVMORT **TO STORE C INFORMATION ABOUT DELETED TREE RECORDS AND HOW MANY C OBJECTS RELATED TO EACH TREE HAVE BEEN CUT OR KILLED C THESE ROUTINES ARE CALLED FROM **TREDEL ** CUTS
- file workcm_mod.f90
- dir api
- dir base
- dir base
- dir base
- dir clim
- dir common
- dir common
- dir common
- dir covr
- dir dbs
- dir econ
- dir fire
- dir fofem
- dir mistoe
- dir ni
- dir ni
- dir pg
- dir pn
- dir pn
- dir pn
- dir so
- dir src
- dir src
- dir src
- dir src
- dir src
- dir src
- dir src
- dir src
- dir src
- dir src
- dir src
- dir src
- dir src
- dir src
- dir src
- dir src
- dir src
- dir strp
- dir strp
- dir variants
- dir volume
- dir wc
- dir wc
- dir ws