diff --git a/code/plastic_phenoplus.f90 b/code/plastic_phenoplus.f90 index 68ee5c246..6fd16a1e3 100644 --- a/code/plastic_phenoplus.f90 +++ b/code/plastic_phenoplus.f90 @@ -747,7 +747,6 @@ subroutine plastic_phenoplus_microstructure(orientation,ipc,ip,el) math_mul33x33, & math_mul3x3, & math_transpose33, & - math_qDot, & math_qRot, & indeg