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'/)