integer ifitmode,Currentiknowlimit,ilimittype,iphotolimit
      double precision vcmax,fjelect,tpu,resistwp,resistch,stargamma,
     &fkco,alpha,rdlight,pco2i_obs,anet_obs,chlflphips2,chlflfjelect,
     &pco2i_pred,anet_pred,pco2c,realizedfjelect,weitanet,weitpco2i,
     &weitphips2,weitfjelect,pco2i_pred_flu,anet_pred_flu,
     &pco2c_anet_flu,pco2c_pco2i_flu,PhiPSIImax
      common/int_pco2ianetfunc/ifitmode,Currentiknowlimit,ilimittype,
     &iphotolimit
      common/dble_pco2ianetfunc/vcmax,fjelect,tpu,resistwp,resistch,
     &stargamma,fkco,alpha,rdlight,pco2i_obs,anet_obs,chlflphips2,
     &chlflfjelect,pco2i_pred,anet_pred,pco2c,realizedfjelect,weitanet,
     &weitpco2i,weitphips2,weitfjelect,pco2i_pred_flu,anet_pred_flu,
     &pco2c_anet_flu,pco2c_pco2i_flu,PhiPSIImax