program data_fix

      
      real leaf_pwr_vv
      real leaf_d_vv
      real leaf_gb_vv
      real stalk_pwr_vv
      real stalk_d_vv
      real stalk_gb_vv
      real leaf_pwr_hh
      real leaf_d_hh
      real leaf_gb_hh
      real stalk_pwr_hh
      real stalk_d_hh
      real stalk_gb_hh
      real leaf_pwr_hv
      real leaf_d_hv
      real stalk_pwr_hv
      real stalk_d_hv   
      real leaf_gb_hv
      real can_pwr_vv
      real grn_pwr_vv
      real can_pwr_hh
      real grn_pwr_hh
      real can_pwr_hv
      real grn_pwr_hv

      read(5,*) can_pwr_vv
      read(5,*) grn_pwr_vv      
      read(5,*) leaf_pwr_vv
      read(5,*) leaf_d_vv
      read(5,*) leaf_gb_vv
      read(5,*) stalk_pwr_vv
      read(5,*) stalk_d_vv
      read(5,*) stalk_gb_vv
      read(5,*) can_pwr_hh
      read(5,*) grn_pwr_hh 
      read(5,*) leaf_pwr_hh
      read(5,*) leaf_d_hh
      read(5,*) leaf_gb_hh
      read(5,*) stalk_pwr_hh
      read(5,*) stalk_d_hh
      read(5,*) stalk_gb_hh
      read(5,*) can_pwr_hv
      read(5,*) grn_pwr_hv 
      read(5,*) leaf_pwr_hv
      read(5,*) leaf_d_hv
      read(5,*) stalk_pwr_hv
      read(5,*) stalk_d_hv    


      leaf_pwr_vv=    leaf_pwr_vv-13.69+6.0    
      leaf_d_vv=      leaf_d_vv-13.69+6.0     
      leaf_gb_vv=     leaf_gb_vv -13.69+12.0   
      stalk_pwr_vv=   stalk_pwr_vv-13.69  
      stalk_d_vv=     stalk_d_vv-13.69    
      stalk_gb_vv=    stalk_gb_vv-13.69+6.0   
      leaf_pwr_hh=    leaf_pwr_hh-13.69+6.0   
      leaf_d_hh=      leaf_d_hh-13.69+6.0     
      leaf_gb_hh=     leaf_gb_hh-13.69+12.0    
      stalk_pwr_hh=   stalk_pwr_hh-13.69 
      stalk_d_hh=     stalk_d_hh-13.69    
      stalk_gb_hh =   stalk_gb_hh-13.69+6.0   
      leaf_pwr_hv=    leaf_pwr_hv-13.69+6.0   
      leaf_d_hv=      leaf_d_hv-13.69+6.0     
      stalk_pwr_hv=   stalk_pwr_hv-13.69  
      stalk_d_hv=     stalk_d_hv-13.69

      leaf_gb_hv=10.0*alog10(10.0**(leaf_pwr_hv/10.0)
     &     -10.0**(leaf_d_hv/10.0))
      stalk_gb_hv=10.0*alog10(10.0**(stalk_pwr_hv/10.0)
     &     -10.0**(stalk_d_hv/10.0))

      write(6,10)can_pwr_vv,grn_pwr_vv,
     &     leaf_pwr_vv,leaf_d_vv,leaf_gb_vv
     &     ,stalk_pwr_vv,stalk_d_vv,stalk_gb_vv

      write(6,10)can_pwr_hh,grn_pwr_hh,
     &     leaf_pwr_hh,leaf_d_hh,leaf_gb_hh
     &     ,stalk_pwr_hh,stalk_d_hh,stalk_gb_hh

      write(6,10)can_pwr_hv,grn_pwr_hv,
     &     leaf_pwr_hv,leaf_d_hv,leaf_gb_hv
     &     ,stalk_pwr_hv,stalk_d_hv,stalk_gb_hv


   10 format(f6.2,2x,f6.2,2x,f6.2,2x,f6.2,2x,f6.2,
     &     2x,f6.2,2x,f6.2,2x,f6.2)

      stop
      end