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

Added construction of initial CPFEM_Fp_old

This commit is contained in:
Luc Hantcherli 2007-03-29 12:16:23 +00:00
parent c3ab698649
commit e5003f9d10
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
trunk/constitutive.f90
View File

@ -820,6 +820,8 @@ do i=1,mesh_NcpElems
constitutive_phi2(l,j,i)=texture_Gauss(3,k,texID)
!* Use of sample_Gauss
constitutive_EulerAngles(:,l,j,i)=sample_Gauss(texture_Gauss(1:3,k,texID),texture_Gauss(4.k,texID))
!* Rotation matrix
CPFEM_Fp_old(l,j,i)=math_EulertoR(constitutive_EulerAngles(:,l,j,i))
enddo
enddo
!* Fiber component
@ -831,6 +833,8 @@ do i=1,mesh_NcpElems
constitutive_TexVolFrac(l,j,i)=texture_Fiber(6,k,texID)/multiplicity
!* Use of sample_Fiber
constitutive_EulerAngles(:,l,j,i)=sample_Fiber(texture_Fiber(1:4,k,texID),texture_Fiber(5,k,texID))
!* Rotation matrix
CPFEM_Fp_old(l,j,i)=math_EulertoR(constitutive_EulerAngles(:,l,j,i))
enddo
enddo
!* Random component
@ -840,14 +844,18 @@ do i=1,mesh_NcpElems
constitutive_texID(l,j,i)=texID
constitutive_MatVolFrac(l,j,i)=1.0_pReal
constitutive_TexVolFrac(l,j,i)=(1.0_pReal-texture_Gauss(5,k,texID)-texture_Fiber(6,k,texID))/multiplicity
!* Use of sample_Random
constitutive_EulerAngles(:,l,j,i)=sample_Random()
!* Rotation matrix
CPFEM_Fp_old(l,j,i)=math_EulertoR(constitutive_EulerAngles(:,l,j,i))
enddo
enddo
enddo ! End of ip
endif
enddo ! End of cp_element
! MISSING case of symmetry
! MISSING
!* Initialization of state variables
!do l=1,material_Nstatevars(k,j,i)
! constitutive_state_old(l,k,j,i)=material_s0_slip(constitutive_matID(k,j,i))