indicate that this mapping should be used only for C

src/math.f90

@@ -883,7 +883,7 @@ end function math_Voigt6to33_strain
 
 
 !--------------------------------------------------------------------------------------------------
-!> @brief Convert 3x3 tensor into 6 Voigt stress vector.
+!> @brief Convert 3x3 stress tensor into 6 Voigt vector.
 !--------------------------------------------------------------------------------------------------
 pure function math_33toVoigt6_stress(sigma) result(sigma_tilde)
 
@@ -898,7 +898,7 @@ end function math_33toVoigt6_stress
 
 
 !--------------------------------------------------------------------------------------------------
-!> @brief Convert 3x3 tensor into 6 Voigt strain vector.
+!> @brief Convert 3x3 stress tensor into 6 Voigt vector.
 !--------------------------------------------------------------------------------------------------
 pure function math_33toVoigt6_strain(epsilon) result(epsilon_tilde)
 
@@ -914,48 +914,48 @@ end function math_33toVoigt6_strain
 
 
 !--------------------------------------------------------------------------------------------------
-!> @brief Convert 6x6 Voigt matrix into symmetric 3x3x3x3 matrix.
+!> @brief Convert 6x6 Voigt stiffness matrix into symmetric 3x3x3x3 tensor.
 !--------------------------------------------------------------------------------------------------
-pure function math_Voigt66to3333(m66)
+pure function math_Voigt66to3333_stiffness(C_tilde) result(C)
 
-  real(pReal), dimension(3,3,3,3) :: math_Voigt66to3333
+  real(pReal), dimension(3,3,3,3) :: C
-  real(pReal), dimension(6,6), intent(in) :: m66                                                    !< 6x6 matrix
+  real(pReal), dimension(6,6), intent(in) :: C_tilde
 
   integer :: i,j
 
 
   do i=1,6; do j=1,6
-    math_Voigt66to3333(MAPVOIGT(1,i),MAPVOIGT(2,i),MAPVOIGT(1,j),MAPVOIGT(2,j)) = m66(i,j)
+    C(MAPVOIGT(1,i),MAPVOIGT(2,i),MAPVOIGT(1,j),MAPVOIGT(2,j)) = C_tilde(i,j)
-    math_Voigt66to3333(MAPVOIGT(2,i),MAPVOIGT(1,i),MAPVOIGT(1,j),MAPVOIGT(2,j)) = m66(i,j)
+    C(MAPVOIGT(2,i),MAPVOIGT(1,i),MAPVOIGT(1,j),MAPVOIGT(2,j)) = C_tilde(i,j)
-    math_Voigt66to3333(MAPVOIGT(1,i),MAPVOIGT(2,i),MAPVOIGT(2,j),MAPVOIGT(1,j)) = m66(i,j)
+    C(MAPVOIGT(1,i),MAPVOIGT(2,i),MAPVOIGT(2,j),MAPVOIGT(1,j)) = C_tilde(i,j)
-    math_Voigt66to3333(MAPVOIGT(2,i),MAPVOIGT(1,i),MAPVOIGT(2,j),MAPVOIGT(1,j)) = m66(i,j)
+    C(MAPVOIGT(2,i),MAPVOIGT(1,i),MAPVOIGT(2,j),MAPVOIGT(1,j)) = C_tilde(i,j)
   end do; end do
 
-end function math_Voigt66to3333
+end function math_Voigt66to3333_stiffness
 
 
 !--------------------------------------------------------------------------------------------------
-!> @brief Convert symmetric 3x3x3x3 matrix into 6x6 Voigt matrix.
+!> @brief Convert 3x3x3x3 stiffness tensor into 6x6 Voigt matrix.
 !--------------------------------------------------------------------------------------------------
-pure function math_3333toVoigt66(m3333)
+pure function math_3333toVoigt66_stiffness(C) result(C_tilde)
 
-  real(pReal), dimension(6,6)                 :: math_3333toVoigt66
+  real(pReal), dimension(6,6) :: C_tilde
-  real(pReal), dimension(3,3,3,3), intent(in) :: m3333                                              !< symmetric 3x3x3x3 matrix (no internal check)
+  real(pReal), dimension(3,3,3,3), intent(in) :: C
 
   integer :: i,j
 
 
 #ifndef __INTEL_COMPILER
   do concurrent(i=1:6, j=1:6)
-    math_3333toVoigt66(i,j) = m3333(MAPVOIGT(1,i),MAPVOIGT(2,i),MAPVOIGT(1,j),MAPVOIGT(2,j))
+    C_tilde(i,j) = C(MAPVOIGT(1,i),MAPVOIGT(2,i),MAPVOIGT(1,j),MAPVOIGT(2,j))
   end do
 #else
   do i=1,6; do j=1,6
-    math_3333toVoigt66(i,j) = m3333(MAPVOIGT(1,i),MAPVOIGT(2,i),MAPVOIGT(1,j),MAPVOIGT(2,j))
+    C_tilde(i,j) = C(MAPVOIGT(1,i),MAPVOIGT(2,i),MAPVOIGT(1,j),MAPVOIGT(2,j))
   end do; end do
 #endif
 
-end function math_3333toVoigt66
+end function math_3333toVoigt66_stiffness
 
 
 !--------------------------------------------------------------------------------------------------
@@ -1344,7 +1344,7 @@ subroutine selfTest
   if (any(dNeq(math_sym3333to66(math_66toSym3333(t66)),t66,1.0e-15_pReal))) &
     error stop 'math_sym3333to66/math_66toSym3333'
 
-  if (any(dNeq(math_3333toVoigt66(math_Voigt66to3333(t66)),t66,1.0e-15_pReal))) &
+  if (any(dNeq(math_3333toVoigt66_stiffness(math_Voigt66to3333_stiffness(t66)),t66,1.0e-15_pReal))) &
     error stop 'math_3333toVoigt66/math_Voigt66to3333'
 
   call random_number(v6)

src/phase_mechanical_elastic.f90

@@ -200,7 +200,7 @@ module subroutine phase_hooke_SandItsTangents(S, dS_dFe, dS_dFi, &
 
 
   C66 = phase_damage_C66(phase_homogenizedC66(ph,en),ph,en)
-  C = math_Voigt66to3333(C66)
+  C = math_Voigt66to3333_stiffness(C66)
 
   E = 0.5_pReal*(matmul(transpose(Fe),Fe)-math_I3)                                                  !< Green-Lagrange strain in unloaded configuration
   S = math_Voigt6to33_stress(matmul(C66,math_33toVoigt6_strain(matmul(matmul(transpose(Fi),E),Fi))))!< 2PK stress in lattice configuration in work conjugate with GL strain pulled back to lattice configuration

src/rotations.f90

@@ -1503,7 +1503,8 @@ subroutine selfTest()
 
     call random_number(C)
     C = C+transpose(C)
-    if (any(dNeq(R%rotStiffness(C),math_3333toVoigt66(R%rotate(math_Voigt66to3333(C))),1.0e-12_pReal))) &
+    if (any(dNeq(R%rotStiffness(C), &
+                 math_3333toVoigt66_stiffness(R%rotate(math_Voigt66to3333_stiffness(C))),1.0e-12_pReal))) &
       error stop 'rotStiffness'
 
     call R%fromQuaternion(qu * (1.0_pReal + merge(+5.e-9_pReal,-5.e-9_pReal, mod(i,2) == 0)))       ! allow reasonable tolerance for ASCII/YAML