223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

missing variable definitions

This commit is contained in:
Pratheek Shanthraj 2014-10-16 08:15:57 +00:00
parent 898aa0e9bf
commit fec71e2986
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
code/constitutive.f90
View File

@ -969,7 +969,7 @@ function constitutive_getLocalDamage(ipc, ip, el)
constitutive_getLocalDamage = constitutive_gurson_getDamage(ipc, ip, el) constitutive_getLocalDamage = constitutive_gurson_getDamage(ipc, ip, el)
case (LOCAL_DAMAGE_anisotropic_ID) case (LOCAL_DAMAGE_anisotropic_ID)
constitutive_getLocalDamage = constitutive_anisotropic_getDamage(ipc, ip, el) !constitutive_getLocalDamage = constitutive_anisotropic_getDamage(ipc, ip, el)
end select end select
end function constitutive_getLocalDamage end function constitutive_getLocalDamage
@ -1015,7 +1015,7 @@ subroutine constitutive_putLocalDamage(ipc, ip, el, localDamage)
call constitutive_gurson_putDamage(ipc, ip, el, localDamage) call constitutive_gurson_putDamage(ipc, ip, el, localDamage)
case (LOCAL_DAMAGE_anisotropic_ID) case (LOCAL_DAMAGE_anisotropic_ID)
call constitutive_anisotropic_putDamage(ipc, ip, el, localDamage) !call constitutive_anisotropic_putDamage(ipc, ip, el, localDamage)
end select end select

1
code/damage_anisotropic.f90
View File

@ -109,6 +109,7 @@ subroutine damage_anisotropic_init(fileUnit)
integer(pInt) :: maxNinstance,mySize=0_pInt,phase,instance,o integer(pInt) :: maxNinstance,mySize=0_pInt,phase,instance,o
integer(pInt) :: sizeState, sizeDotState integer(pInt) :: sizeState, sizeDotState
integer(pInt) :: NofMyPhase integer(pInt) :: NofMyPhase
integer(pInt) :: Nchunks_SlipFamilies, j
character(len=65536) :: & character(len=65536) :: &
tag = '', & tag = '', &
line = '' line = ''