deformation.for

Go to the documentation of this file.

      SUBROUTINE deformation(F,C,B,NDI)
C>     RIGHT AND LEFT CAUCHY-GREEN DEFORMATION TENSORS
      IMPLICIT NONE
      include 'PARAM_UMAT.INC'
C
      INTEGER NDI
      DOUBLE PRECISION F(ndi,ndi),C(ndi,ndi),B(ndi,ndi) 
C     RIGHT CAUCHY-GREEN DEFORMATION TENSOR
      c=matmul(transpose(f),f)
C     LEFT CAUCHY-GREEN DEFORMATION TENSOR
      b=matmul(f,transpose(f))
      RETURN
      END SUBROUTINE deformation