Subject: IMPLICIT NONE (CR), Event Monitor Routine, and SO Dunning codes and
         reference and location variables.
Name: R. Havis
Date: March 24, 2008
Variants affected: CA, NC, SO and WS

Description:

1. The IMPLICIT NONE statement was added to the CR variant-specific routines.

2. makefiles - Added new event monitor routine evpred.f to the compile instructions

3. In the SO variant reference location and reference age was corrected for the following species:
   WB  whitebark pine was  Breast Height Age; Base Age 50 corrected to Total Age; Base Age 100
   WL  western larch was Total Age; Base Age 100 corrected to Breast height Age; Base Age 50
   AS quaking aspen was Total Age; Base Age 100 corrected to Breast height Age; Base Age 80

   The following species were using a 50 year Dunning transformation. All of them, except aspen
   (uses 80 year base) needed to be using a 100 year Dunning transformation. 
   SP  sugar pine;  WJ  western juniper;  AF subalpine fir;  NF noble fir;  WB  whitebark pine;
   RC western redcedar;  PY Pacific yew;  WA   white alder;  RA red alder;  BM bigleaf maple;
   CW black cottonwood;  CH  bitter cherry;  WI  willow species;  GC giant chinkapin;
   MC curl-leaf mtn. mahogany; MB birchleaf mtn. mahogany; OH other hardwoods

4. The number of inventory points was added to the EchoSum (.sum) and FVSStand (.fst) output
   file headers. 

Impact on users: Users should obtain new executables.

Files:
./ak/obj/makefile
./base/obj/makefile
./base/src/algkey.f  - Added the event monitor variable FISHERIN to track the 
                       R5 Fisher Habitat Suitability Index throughout a projection
./base/src/disply.f  - FVSSTD - added IPTINV to output file (.fst) header
./base/src/evpred.f  - **New routine designed to compute pre-defined event
                       monitor variables which require extensive computations.
./base/src/evtstv.f  - Added the event monitor variable FISHERIN to track the R5
                       Fisher Habitat Suitability Index throughout a projection
./base/src/fvsstd.f  - FVSSTD - added IPTINV to output file (.fst) header
./base/src/revise.f
./base/src/sumout.f  - added IPTINV to ECHOSUM file header, and to subroutine
                       statement arguments
./bin/makefile
./ca/obj/makefile
./cr/obj/makefile
./cr/src/badist.f
./cr/src/bfvol.f
./cr/src/blkdat.f
./cr/src/bratio.f
./cr/src/ccfcal.f
./cr/src/cratet.f
./cr/src/crdecd.f
./cr/src/crown.f
./cr/src/cubrds.f
./cr/src/cutstk.f
./cr/src/dgdriv.f
./cr/src/dgf.f
./cr/src/dubscr.f
./cr/src/estump.f
./cr/src/esuckr.f
./cr/src/fndag.f
./cr/src/forkod.f
./cr/src/gemcr.f
./cr/src/gemdg.f
./cr/src/gemht.f
./cr/src/grinit.f
./cr/src/grohed.f
./cr/src/habtyp.f
./cr/src/htgf.f
./cr/src/maical.f
./cr/src/morts.f
./cr/src/regent.f
./cr/src/sitset.f
./cr/src/varmrt.f
./cr/src/varvol.f
./cs/obj/makefile
./cs_new/obj/makefile
./ie/obj/makefile
./ls/obj/makefile
./ls_new/obj/makefile
./ne/obj/makefile
./ne_new/obj/makefile
./ppbase/src/ppmain.f       - added IPTINV to SUMOUT CALL statement
./ppbase/src/yields.f       - added IPTINV to SUMOUT CALL statement
./sn/obj/makefile
./so33/obj/makefile
./so33/src/dunn.f    - species 9, RF, was using 100 yr dunning translation --- should of
                       been 50.Corrected errors associated with the reference age and
                       ocation for WB, WL, and AS (SICHG); corrected errors with translation
                       of the Dunning code (Dunn)
./so33/src/sichg.f   -Corrected errors associated with the reference age and location for WB,
                      WL, and AS (SICHG); corrected errors with translation of the Dunning code (Dunn)
./ut/obj/makefile
./wc/obj/makefile
