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

View File

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