bug fix on commit 2424 that caused compilation errors

This commit is contained in:
Pratheek Shanthraj 2013-05-22 09:40:23 +00:00
parent e758ee32be
commit 399a0218c7
1 changed files with 2 additions and 2 deletions

View File

@ -31,7 +31,7 @@ implicit none
!* Lists of states and physical parameters !* Lists of states and physical parameters
character(len=*), parameter, public :: constitutive_dislotwin_label = 'dislotwin' character(len=*), parameter, public :: constitutive_dislotwin_label = 'dislotwin'
character(len=18), dimension(3), parameter:: constitutive_dislotwin_listBasicSlipStates = (/'rhoEdge ', & character(len=18), dimension(3), parameter:: constitutive_dislotwin_listBasicSlipStates = (/'rhoEdge ', &
'rhoEdgeDip', & 'rhoEdgeDip ', &
'accshearslip'/) 'accshearslip'/)
character(len=18), dimension(2), parameter:: constitutive_dislotwin_listBasicTwinStates = (/'twinFraction', & character(len=18), dimension(2), parameter:: constitutive_dislotwin_listBasicTwinStates = (/'twinFraction', &
'accsheartwin'/) 'accsheartwin'/)