!This subroutine initializes the parameters to be optimized as well as those to be used and not changed
!
      subroutine commonparameters(stargamma25,fkc25,fko25,alpha25,
     &ha_vcmax,hd_vcmax,sv_vcmax,ha_jmax,hd_jmax,sv_jmax,ha_tpu,
     &hd_tpu,sv_tpu,ha_gmeso,hd_gmeso,sv_gmeso,ha_darkresp,ha_stargamma,
     &ha_kc,ha_ko,abspt_lf_par,gascon,phifactor,thetafactor,betaPSII)
      implicit none
!-------Secondary parameters in A/Ci curve analysis----------------------
! stargamma25: the chloroplastic CO2 compensation point at 25oC
! fkc25:      the Michaelis constant for CO2 at 25oC when gmeso is not include [Pa]
! fko25:      the Michaelis constant for O2 at 25oC when gmeso is not include [Pa]
! alpha25:         The fraction of glycolate carbon not returned to the chloroplat [0-1]
      double precision stargamma25,fkc25,fko25,alpha25
!-------Parameters that define temperature responses---------------------
! ha_vcmax:  The activation energy (Ha) in Vcmax temperature response function [kJmol-1]
! hd_vcmax:  The deactivation energy (Hd) in Vcmax temperature response function [kJmol-1]
! sv_vcmax:  The entropy term (Sv) in Vcmax temperature response function [kJmol-1K-1]
! ha_jmax:  The activation energy (Ha) in jmax temperature response function [kJmol-1]
! hd_jmax:  The deactivation energy (Hd) in jmax temperature response function [kJmol-1]
! sv_jmax:  The entropy term (Sv) in jmax temperature response function [kJmol-1K-1]
! ha_tpu:  The activation energy (Ha) in tpu temperature response function [kJmol-1]
! hd_tpu:  The deactivation energy (Hd) in tpu temperature response function [kJmol-1]
! sv_tpu:  The entropy term (Sv) in tpu temperature response function [kJmol-1K-1]
! ha_gmeso:  The activation energy (Ha) in gmeso temperature response function [kJmol-1]
! hd_gmeso:  The deactivation energy (Hd) in gmeso temperature response function [kJmol-1]
! sv_gmeso:  The entropy term (Sv) in gmeso temperature response function [kJmol-1K-1]
!
! ha_darkresp: parameter in the temperature response function of dark respiration [kJmol-1]
! ha_stargamma: parameter in the temperature response function of the co2 compensation point [kJmol-1]
! ha_kc:      a CO2 Michaelis temp coefficient [kJmol-1]
! ha_ko:      a O2 Michaelis temp coefficient [kJmol-1]
! gascon: Universal gas constant J K-1 mol-1
! phifactor: modifies Bernacchi phiPSIImax
! thetafactor: modifies Bernacchi thetaPSII
! betaPSII: the fraction of absorbed light that reaches photosystem II (0.5)
      double precision ha_vcmax,hd_vcmax,sv_vcmax,ha_jmax,
     &hd_jmax,sv_jmax,ha_tpu,hd_tpu,sv_tpu,ha_gmeso,hd_gmeso,sv_gmeso,
     &ha_darkresp,ha_stargamma,ha_kc,ha_ko,phifactor,thetafactor,
     &betaPSII

!--------------Other parameters-------------------------------------------
! abspt_lf_par: leaf absorptance in PAR
      double precision abspt_lf_par,gascon
      
      gascon=8.314472d0
!
!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
!Parameters below this line will be used as inputs if not optimized from curve fitting 
!but as initial values if optimized. So they are not arbitrary values and should not be 
!changed unless there is a good reason.
!
!-------Secondary parameters---------------------------
!Considered universal but uncertain, also depend on whether mesophyll conductance is involked
!The subscript 1 is for fitting without mesophyll conductance; 2 is for fitting with mesophyll conductance
!Bernacchi et al. (2003) values
!      stargamma25=4.3d0
!      stargamma25=4.3d0
!      fkc25=41.0d0
!      fkc25=41.0d0
!      fko25=27710.0d0
!      fko25=27710.0d0
!
!S. von Caemmerer (2000) values
!      stargamma25=3.7d0
!      stargamma25=3.86d0
!      fkc25=40.4d0
!      fkc25=26.0d0
!      fko25=24800.0d0
!      fko25=17900.0d0

!Values used in Sharkey et al. (2007)
      stargamma25=3.743d0
      fkc25=27.238d0
      fko25=16582.0d0

!Jordan and Ogren (1984) values
!      stargamma25=4.5146d0
!      stargamma25=4.5146d0
!      fkc25=27.422d0
!      fkc25=27.422d0
!      fko25=41829.0d0
!      fko25=41829.0d0
      
      alpha25=0.0d0
!most models have alpha=0
!-----------------------------------------------------      
!Parameters in the generic Vcmax temperature response function.
!Leuning, Harley and Bernacchi can all be expressed in the same generic form
!Bernacchi et al. (2003) function
!      ha_vcmax=65.33d0
!      hd_vcmax=0.0d0
!      sv_vcmax=0.0d0

!S. von Caemmerer (2000) values
!      ha_vcmax=58.52d0
!      hd_vcmax=0.0d0
!      sv_vcmax=0.0d0 

!Leuning (2002) function
!      ha_vcmax=73.637d0
!      hd_vcmax=149.252d0
!      sv_vcmax=0.486d0

!Harley et al. (1992) function
!      ha_vcmax=116.3d0
!      hd_vcmax=202.9d0
!      sv_vcmax=0.65d0

!Values used in Sharkey et al. (2007)
      ha_vcmax=65.33d0
      hd_vcmax=0.0d0
      sv_vcmax=0.0d0
!
!-------------------------------------------------------
!Parameters in Jmax temperature response functions. All in unit of kJmol-1
!Leuning, Harley and Bernacchi can all be expressed in the same generic form          
!Bernacchi et al. (2003) function
!      ha_jmax=43.54d0
!      hd_jmax=0.0d0
!      sv_jmax=0.0d0

!S. von Caemmerer (2000) values
!      ha_jmax=37.0d0
!      hd_jmax=0.0d0
!      sv_jmax=0.0d0

!Leuning function
!      ha_jmax=50.3d0
!      hd_jmax=152.044d0
!      sv_jmax=0.495d0

!Harley functions
!      ha_jmax=79.5d0
!      hd_jmax=201.0d0
!      sv_jmax=0.65d0

!values used in Sharkey et al. (2007)
      ha_jmax=43.54d0
      hd_jmax=0.0d0
      sv_jmax=0.0d0
 
!June et al. function. The June et al function cannot be expressed in the generic form. Need to go to the
!Jmax temperature response function subroutine to change the form if this function is used
!      ha_jmax=30.0d0+273.15d0
!      hd_jmax=11.6d0
!      sv_jmax=0.18d0

!---------------------------------------------------------        
!Parameters in TPU temperature response function in kJmol-1
!Harley function
      ha_tpu=53.1d0
      hd_tpu=201.8d0
      sv_tpu=0.65d0

!Parameters in gmeso temperature response function
!Values from the functions in Bernacchi, et al. (2002), Plant Physiology, 130, 1992-1998.
      ha_gmeso=49.6d0
      hd_gmeso=437.4d0
      sv_gmeso=1.4d0
!Values from the function in Scafaro et al. (2011), PCE 34: 1999-2008
!      ha_gmeso=(45.22d0+29.17d0+48.26d0)/3.0d0
!      hd_gmeso=-9999.0d0
!      sv_gmeso=-9999.0d0
!---------------------------------------------------------     
!Parameters in the temperature response function for leaf mitochondrial (dark) respiration (kJmol-1)
!Parameters in the temp function for the choloraplastic CO2 compensation point (kJmol-1)           
!Parameters in the temp function of Kc
!Parameters in the temp function of Ko
!Bernacchi et al. (2003) parameters
!      ha_darkresp=46.39d0
!      ha_stargamma=37.83d0
!      ha_kc=79.43d0
!      ha_ko=36.38d0

!S. von Caemmerer (2000) values
!      ha_darkresp=66.4d0
!      ha_stargamma=23.4d0
!      ha_kc=59.36d0
!      ha_ko=35.94d0

!Jordan and Ogren (1984) parameters
!      ha_darkresp=66.4d0
!      ha_stargamma=29.213d0
!      ha_kc=70.372d0
!      ha_ko=14.351d0

!Values used in Sharkey et al. (2007)
      ha_darkresp=46.39d0
      ha_stargamma=24.46d0
      ha_kc=80.99d0
      ha_ko=23.72d0
               
!----------------------------------------------------------
!Leaf absorptance parameter in PAR
      abspt_lf_par=0.85d0
!
!!3/29/2014. Bernacchi method cannot fit A/PAR curves well. phifactor and thetafactor are
!estimated and used to modify his method when A/PAR curves are present.
! phifactor: modifies Bernacchi phiPSIImax
! thetafactor: modifies Bernacchi thetaPSII
      phifactor=1.0d0
      thetafactor=1.0d0
      betaPSII=0.5d0
      return
      end