#include <inca_define.h>                                                
subroutine ADJRXT( rate, inv, m)                                        
! Stacy Walters, NCAR, 1998.                                            
                                                                        
      use INCA_dim                                                      
      implicit none                                                     
                                                                        
!--------------------------------------------------------------------   
!       ... Dummy args                                                  
!--------------------------------------------------------------------   
# if NFS != 0                                                           
      real, intent(in) ::      inv(PLNPLV,NFS)                          
# else                                                                  
      real, intent(in) ::      inv(1)                                   
# endif                                                                 
      real, intent(in) ::      m(PLNPLV)                                
      real, intent(inout) ::   rate(PLNPLV,RXNCNT)                      
                                                                        
!--------------------------------------------------------------------   
!       ... Local variables                                             
!--------------------------------------------------------------------   
      real    ::  im(PLNPLV)                                            
                                                                        
      rate(:,  3) = rate(:,  3) * inv(:, 6)                             
      rate(:,  5) = rate(:,  5) * inv(:, 6)                             
      rate(:,  7) = rate(:,  7) * inv(:,10)                             
      rate(:,  8) = rate(:,  8) * inv(:,10)                             
      rate(:,  9) = rate(:,  9) * inv(:, 6)                             
      rate(:, 10) = rate(:, 10) * inv(:,10)                             
      rate(:, 11) = rate(:, 11) * inv(:,10)                             
      rate(:, 12) = rate(:, 12) * inv(:,10)                             
                                                                        
      end subroutine ADJRXT