fixed bug in type definition for ‘drivingForce’

This commit is contained in:
Tias Maiti 2014-11-26 18:40:31 +00:00
parent 54de033c45
commit f8b29bdaf0
1 changed files with 2 additions and 1 deletions

View File

@ -433,7 +433,8 @@ subroutine damage_anisoBrittle_microstructure(ipc, ip, el)
instance, &
f, i, index_d, index_o, index_myFamily
real(pReal) :: &
localDamage
localDamage, &
drivingForce
phase = mappingConstitutive(2,ipc,ip,el)
constituent = mappingConstitutive(1,ipc,ip,el)