From 8a07ff4617ba312acd5abd53051a09ec4a682043 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 19 Mar 2019 14:17:06 +0100 Subject: [PATCH] fixed copy and paste errors --- src/plastic_dislotwin.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/plastic_dislotwin.f90 b/src/plastic_dislotwin.f90 index fc04ebc2f..7e3aa8d88 100644 --- a/src/plastic_dislotwin.f90 +++ b/src/plastic_dislotwin.f90 @@ -890,13 +890,13 @@ subroutine plastic_dislotwin_dependentState(temperature,instance,of) i real(pReal) :: & sumf_twin,SFE,sumf_trans - real(pReal), dimension(param(instance)%totalNtwin) :: & + real(pReal), dimension(param(instance)%totalNslip) :: & lambda_sl_sl_inv, & !* 1/mean free distance between 2 forest dislocations seen by a moving dislocation lambda_sl_tw_inv, & !* 1/mean free distance between 2 twin stacks from different systems seen by a moving dislocation lambda_sl_tr_inv !* 1/mean free distance between 2 martensite lamellar from different systems seen by a moving dislocation - real(pReal), dimension(param(instance)%totalNtrans) :: & + real(pReal), dimension(param(instance)%totalNtwin) :: & lambda_tw_tw_inv !* 1/mean free distance between 2 twin stacks from different systems seen by a growing twin - real(pReal), dimension(param(instance)%totalNslip) :: & + real(pReal), dimension(param(instance)%totalNtrans) :: & lambda_tr_tr_inv !* 1/mean free distance between 2 martensite stacks from different systems seen by a growing martensite (1/lambda_trans) real(pReal), dimension(:), allocatable :: &