From 399a0218c72b6b05f00781a0b08878a5ea208829 Mon Sep 17 00:00:00 2001 From: Pratheek Shanthraj Date: Wed, 22 May 2013 09:40:23 +0000 Subject: [PATCH] bug fix on commit 2424 that caused compilation errors --- code/constitutive_dislotwin.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/constitutive_dislotwin.f90 b/code/constitutive_dislotwin.f90 index f579565a2..5a2c1bed2 100644 --- a/code/constitutive_dislotwin.f90 +++ b/code/constitutive_dislotwin.f90 @@ -30,8 +30,8 @@ implicit none !* Lists of states and physical parameters character(len=*), parameter, public :: constitutive_dislotwin_label = 'dislotwin' -character(len=18), dimension(3), parameter:: constitutive_dislotwin_listBasicSlipStates = (/'rhoEdge ', & - 'rhoEdgeDip', & +character(len=18), dimension(3), parameter:: constitutive_dislotwin_listBasicSlipStates = (/'rhoEdge ', & + 'rhoEdgeDip ', & 'accshearslip'/) character(len=18), dimension(2), parameter:: constitutive_dislotwin_listBasicTwinStates = (/'twinFraction', & 'accsheartwin'/)