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))