program data_fix

      
C      real leaf_pwr_vv
C      real leaf_d_vv
C      real leaf_gb_vv
      real stalk_pwr_vv
      real stalk_d_vv
      real stalk_gb_vv
      real grain_pwr_vv
      real grain_d_vv
      real grain_gb_vv
C      real leaf_pwr_hh
C      real leaf_d_hh
C      real leaf_gb_hh
      real stalk_pwr_hh
      real stalk_d_hh
      real stalk_gb_hh
      real grain_pwr_hh
      real grain_d_hh
      real grain_gb_hh
C      real leaf_pwr_hv
C      real leaf_d_hv
      real stalk_pwr_hv
      real stalk_d_hv   
c      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      
C      read(5,*) leaf_pwr_vv
C      read(5,*) leaf_d_vv
C      read(5,*) leaf_gb_vv
      read(5,*) stalk_pwr_vv
      read(5,*) stalk_d_vv
      read(5,*) stalk_gb_vv
      read(5,*) grain_pwr_vv
      read(5,*) grain_d_vv
      read(5,*) grain_gb_vv
      read(5,*) can_pwr_hh
      read(5,*) grn_pwr_hh 
C      read(5,*) leaf_pwr_hh
C      read(5,*) leaf_d_hh
C      read(5,*) leaf_gb_hh
      read(5,*) stalk_pwr_hh
      read(5,*) stalk_d_hh
      read(5,*) stalk_gb_hh
      read(5,*) grain_pwr_hh
      read(5,*) grain_d_hh
      read(5,*) grain_gb_hh
      read(5,*) can_pwr_hv
      read(5,*) grn_pwr_hv 
C      read(5,*) leaf_pwr_hv
C      read(5,*) leaf_d_hv
      read(5,*) stalk_pwr_hv
      read(5,*) stalk_d_hv    
      read(5,*) grain_pwr_hv
      read(5,*) grain_d_hv    

C      leaf_pwr_vv=    leaf_pwr_vv-13.69+6.0    
C      leaf_d_vv=      leaf_d_vv-13.69+6.0     
C      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
      grain_pwr_vv=   grain_pwr_vv-13.69  
      grain_d_vv=     grain_d_vv-13.69    
      grain_gb_vv=    grain_gb_vv-13.69+6.0  
C      leaf_pwr_hh=    leaf_pwr_hh-13.69+6.0   
C      leaf_d_hh=      leaf_d_hh-13.69+6.0     
C      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
      grain_pwr_hh=   grain_pwr_hh-13.69  
      grain_d_hh=     grain_d_hh-13.69    
      grain_gb_hh=    grain_gb_hh-13.69+6.0
C      leaf_pwr_hv=    leaf_pwr_hv-13.69+6.0   
C      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
      grain_pwr_hv=   grain_pwr_hv-13.69  
      grain_d_hv=     grain_d_hv-13.69

C      leaf_gb_hv=10.0*alog10(10.0**(leaf_pwr_hv/10.0)
C     &     -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))
      grain_gb_hv=10.0*alog10(10.0**(grain_pwr_hv/10.0)
     &     -10.0**(grain_d_hv/10.0))

      write(6,10)can_pwr_vv,grn_pwr_vv
C     &     leaf_pwr_vv,leaf_d_vv,leaf_gb_vv
     &     ,stalk_pwr_vv,stalk_d_vv,stalk_gb_vv
     &     ,grain_pwr_vv,grain_d_vv,grain_gb_vv
      
      write(6,10)can_pwr_hh,grn_pwr_hh
C     &     leaf_pwr_hh,leaf_d_hh,leaf_gb_hh
     &     ,stalk_pwr_hh,stalk_d_hh,stalk_gb_hh
     &     ,grain_pwr_hh,grain_d_hh,grain_gb_hh
      
      write(6,10)can_pwr_hv,grn_pwr_hv
C     &     leaf_pwr_hv,leaf_d_hv,leaf_gb_hv
     &     ,stalk_pwr_hv,stalk_d_hv,stalk_gb_hv
     &     ,grain_pwr_hv,grain_d_hv,grain_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