From 7d0a1ebea6ffc20a50f0fa4fd0a5a79537798f52 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Wed, 8 Apr 2015 18:33:08 +0000 Subject: [PATCH] math_transpose33 not used --- code/damage_anisoDuctile.f90 | 3 +-- code/damage_gurson.f90 | 1 - 2 files changed, 1 insertion(+), 3 deletions(-) diff --git a/code/damage_anisoDuctile.f90 b/code/damage_anisoDuctile.f90 index d71418d4c..959cb23e5 100644 --- 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) :: & diff --git a/code/damage_gurson.f90 b/code/damage_gurson.f90 index 0f849143f..715619b6d 100644 --- 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