diff --git a/code/plastic_dislotwin.f90 b/code/plastic_dislotwin.f90 index 8f2b17bc0..987da8330 100644 --- a/code/plastic_dislotwin.f90 +++ b/code/plastic_dislotwin.f90 @@ -1641,12 +1641,10 @@ subroutine plastic_dislotwin_LpAndItsTangent(Lp,dLp_dTstar99,Tstar_v,Temperature math_spectralDecompositionSym33, & math_tensorproduct, & math_symmetric33, & - math_mul33x3, & - math_norm33 + math_mul33x3 use material, only: & material_phase, & phase_plasticityInstance, & - !plasticState, & mappingConstitutive use lattice, only: & lattice_Sslip, &