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