calcmatb.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	calcmatb (nel, f, fp, matb)

Function/Subroutine Documentation

calcmatb()

subroutine calcmatb	(	integer	nel,
			f,
			fp,
			matb )

Definition at line 38 of file calcmatb.F.

C-----------------------------------------------
C   I M P L I C I T   T Y P E S
C-----------------------------------------------
#include "implicit_f.inc"
C----------------------------------------------------------------
C  I N P U T   A R G U M E N T S
C----------------------------------------------------------------
      INTEGER       NEL  
      my_real
     .    f(nel, 3,3),    fp(nel, 3,3)   
C----------------------------------------------------------------
C  O U T P U T   A R G U M E N T S
C----------------------------------------------------------------
      my_real
     .       matb(nel, 3,3) 
C----------------------------------------------------------------
      INTEGER    I
      my_real
     .       invfpo(nel, 3,3) , fe(nel, 3,3), fet(nel, 3,3)
C----------------------------------------------------------------
      
       !COMPUTE FP viscous GRADIENT OF DEF
       !------------------------------------   
       !F=FE*FP
       CALL kmatinv3(fp , invfpo, nel) !INVFPO = INVERSE (FP)  
       CALL prodmat  (f , invfpo, fe, nel) ! FE = F * INVFPO      
 
       CALL prodaat(fe , matb, nel) ! 
      RETURN