This function computes the equivalent viscosity at faces for a 3x3 symetric tensor.  
More...
This function computes the equivalent viscosity at faces for a 3x3 symetric tensor. 
      
        
          | subroutine symmetric_matrix_product | ( | double precision, dimension(6) | sout, | 
        
          |  |  | double precision, dimension(6) | s1, | 
        
          |  |  | double precision, dimension(6) | s2 | 
        
          |  | ) |  |  | 
      
 
- Parameters
- 
  
    | [out] | sout | sout = s1 * s2 |  | [in] | s1 | symmetric matrix |  | [in] | s2 | symmetric matrix |  
 
 
 
      
        
          | subroutine vitens | ( | double precision, dimension(6,ncelet), target | w1, | 
        
          |  |  | integer | iwarnp, | 
        
          |  |  | double precision, dimension(2,nfac) | weighf, | 
        
          |  |  | double precision, dimension(nfabor) | weighb, | 
        
          |  |  | double precision, dimension(nfac) | viscf, | 
        
          |  |  | double precision, dimension(nfabor) | viscb | 
        
          |  | ) |  |  | 
      
 
- Parameters
- 
  
    | [in] | w1 | cell viscosity symmetric tensor |  | [in] | iwarnp | verbosity |  | [out] | weighf | inner face weight between cells i and j  and   |  | [out] | weighb | boundary face weight   |  | [out] | viscf | inner face viscosity (times surface divided distance) |  | [out] | viscb | inner face viscosity (surface, must be consistent with flux BCs) |