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

New commit (check for bugs)

This commit is contained in:
Luc Hantcherli 2007-03-28 13:51:28 +00:00
parent 99eb77b3dc
commit fab9a4f6da
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
trunk/constitutive.f90
View File

@ -243,7 +243,7 @@ CONTAINS
!* - constitutive_Parse_MaterialPart
!* - constitutive_Parse_TexturePart
!* - constitutive_Parse_MatTexDat
!* - constitutive_Assignement
!* - constitutive_Assignment
!* - constitutive_HomogenizedC
!* - constitutive_LpAndItsTangent
!* - consistutive_DotState
@ -257,7 +257,7 @@ subroutine constitutive_Init()
call constitutive_SchmidMatrices()
call constitutive_HardeningMatrices()
call constitutive_Parse_MatTexDat('mattex.mpie')
call constitutive_Assignement()
call constitutive_Assignment()
end subroutine
@ -731,7 +731,7 @@ return
end subroutine
subroutine constitutive_Assignement()
subroutine constitutive_Assignment()
!*********************************************************************
!* This subroutine assign material parameters according to ipc,ip,el *
!*********************************************************************
@ -786,7 +786,7 @@ constitutive_state_new=0.0_pReal
!* Results
allocate(constitutive_Nresults(constitutive_maxNgrains,mesh_maxNips,mesh_NcpElems))
constitutive_Nresults=0_pInt
!* Assignement
!* Assignment
do i=1,mesh_NcpElems
do j=1,FE_Nips(mesh_element(2,i))
multiplicity=texture_Ngrains(mesh_element(4,i))/(texture_NGauss(mesh_element(4,i))+texture_NFiber(mesh_element(4,i)))