math_transpose33 not used

2015-04-08 18:33:08 +00:00 · 2015-04-08 18:33:08 +00:00 · 7d0a1ebea6
parent db657a7a9e
commit 7d0a1ebea6
2 changed files with 1 additions and 3 deletions
--- a/code/damage_anisoDuctile.f90
+++ b/code/damage_anisoDuctile.f90
@ -397,8 +397,7 @@ subroutine damage_anisoDuctile_LdAndItsTangent(Ld, dLd_dTstar3333, Tstar_v, ipc,
   math_Mandel33to6, &
   math_tensorproduct, &
   math_det33, &
-   math_mul33x33, &
-   math_transpose33
+   math_mul33x33
 
 implicit none
 integer(pInt), intent(in) :: &
--- a/code/damage_gurson.f90
+++ b/code/damage_gurson.f90
@ -353,7 +353,6 @@ subroutine damage_gurson_microstructure(ipc, ip, el)
 use math, only: &
   math_Mandel6to33, &
   math_mul33x33, &
-   math_transpose33, &
   math_I3, &
   math_norm33