Added construction of initial CPFEM_Fp_old
This commit is contained in:
parent
c3ab698649
commit
e5003f9d10
|
@ -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))
|
||||||
|
|
Loading…
Reference in New Issue