From eb7860ba22685c8297a626dbdf82a6ad6dbba102 Mon Sep 17 00:00:00 2001 From: Sharan Roongta Date: Thu, 12 Jul 2018 18:30:30 +0200 Subject: [PATCH] Tolerances were different from original --- src/plastic_dislotwin.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/plastic_dislotwin.f90 b/src/plastic_dislotwin.f90 index 6793e0225..17394f19e 100644 --- a/src/plastic_dislotwin.f90 +++ b/src/plastic_dislotwin.f90 @@ -838,7 +838,7 @@ subroutine plastic_dislotwin_init(fileUnit) endIndex=endIndex+prm%totalNslip state(instance)%accshear_slip=>plasticState(p)%state(startIndex:endIndex,:) dotState(instance)%accshear_slip=>plasticState(p)%dotState(startIndex:endIndex,:) - plasticState(p)%aTolState(startIndex:endIndex) = 1e-6_pReal + plasticState(p)%aTolState(startIndex:endIndex) = 1e6_pReal startIndex=endIndex+1 endIndex=endIndex+prm%totalNtwin @@ -850,7 +850,7 @@ subroutine plastic_dislotwin_init(fileUnit) endIndex=endIndex+prm%totalNtwin state(instance)%accshear_twin=>plasticState(p)%state(startIndex:endIndex,:) dotState(instance)%accshear_twin=>plasticState(p)%dotState(startIndex:endIndex,:) - plasticState(p)%aTolState(startIndex:endIndex) = 1e-6_pReal + plasticState(p)%aTolState(startIndex:endIndex) = 1e6_pReal startIndex=endIndex+1 endIndex=endIndex+prm%totalNtrans