Description: Unimodular Part of a rank 2 Tensor.
Property | Value |
---|---|
Result | Tensor-valued function |
Data Types | Tensor2 , Tensor2s |
type(Tensor2) :: C, hatC
! type(Tensor2s) :: C, hatC
hatC = unimodular(C)
print *, "proof:"
print *, (hatC - (det(C)**(-1./3.)*C))