fill local Schmid Matrices
This commit is contained in:
parent
54fe0afb16
commit
c9bb051261
|
@ -634,11 +634,14 @@ subroutine plastic_dislotwin_init(fileUnit)
|
||||||
allocate(temp1(prm%totalNslip,prm%totalNslip), source =0.0_pReal)
|
allocate(temp1(prm%totalNslip,prm%totalNslip), source =0.0_pReal)
|
||||||
allocate(temp2(prm%totalNslip,prm%totalNtwin), source =0.0_pReal)
|
allocate(temp2(prm%totalNslip,prm%totalNtwin), source =0.0_pReal)
|
||||||
allocate(temp3(prm%totalNslip,prm%totalNtrans),source =0.0_pReal)
|
allocate(temp3(prm%totalNslip,prm%totalNtrans),source =0.0_pReal)
|
||||||
|
allocate(prm%Schmid_slip(3,3,prm%totalNslip),source = 0.0_pReal)
|
||||||
|
i = 0_pInt
|
||||||
mySlipFamilies: do f = 1_pInt,size(prm%Nslip,1)
|
mySlipFamilies: do f = 1_pInt,size(prm%Nslip,1)
|
||||||
index_myFamily = sum(prm%Nslip(1:f-1_pInt))
|
index_myFamily = sum(prm%Nslip(1:f-1_pInt))
|
||||||
|
|
||||||
slipSystemsLoop: do j = 1_pInt,prm%Nslip(f)
|
slipSystemsLoop: do j = 1_pInt,prm%Nslip(f)
|
||||||
|
i = i + 1_pInt
|
||||||
|
prm%Schmid_slip(1:3,1:3,i) = lattice_Sslip(1:3,1:3,1,sum(lattice_Nslipsystem(1:f-1,p))+j,p)
|
||||||
do o = 1_pInt, size(prm%Nslip,1)
|
do o = 1_pInt, size(prm%Nslip,1)
|
||||||
index_otherFamily = sum(prm%Nslip(1:o-1_pInt))
|
index_otherFamily = sum(prm%Nslip(1:o-1_pInt))
|
||||||
do k = 1_pInt,prm%Nslip(o) ! loop over (active) systems in other family (slip)
|
do k = 1_pInt,prm%Nslip(o) ! loop over (active) systems in other family (slip)
|
||||||
|
@ -684,11 +687,15 @@ subroutine plastic_dislotwin_init(fileUnit)
|
||||||
allocate(prm%Ctwin66(6,6,prm%totalNtwin), source=0.0_pReal)
|
allocate(prm%Ctwin66(6,6,prm%totalNtwin), source=0.0_pReal)
|
||||||
if (allocated(Ctwin3333)) deallocate(Ctwin3333)
|
if (allocated(Ctwin3333)) deallocate(Ctwin3333)
|
||||||
allocate(Ctwin3333(3,3,3,3,prm%totalNtwin), source=0.0_pReal)
|
allocate(Ctwin3333(3,3,3,3,prm%totalNtwin), source=0.0_pReal)
|
||||||
|
allocate(prm%Schmid_twin(3,3,prm%totalNtwin),source = 0.0_pReal)
|
||||||
|
allocate(prm%shear_twin(prm%totalNtwin),source = 0.0_pReal)
|
||||||
|
i = 0_pInt
|
||||||
twinFamiliesLoop: do f = 1_pInt, size(prm%Ntwin,1)
|
twinFamiliesLoop: do f = 1_pInt, size(prm%Ntwin,1)
|
||||||
index_myFamily = sum(prm%Ntwin(1:f-1_pInt)) ! index in truncated twin system list
|
index_myFamily = sum(prm%Ntwin(1:f-1_pInt)) ! index in truncated twin system list
|
||||||
twinSystemsLoop: do j = 1_pInt,prm%Ntwin(f)
|
twinSystemsLoop: do j = 1_pInt,prm%Ntwin(f)
|
||||||
|
i = i + 1_pInt
|
||||||
|
prm%Schmid_twin(1:3,1:3,i) = lattice_Stwin(1:3,1:3,sum(lattice_NTwinsystem(1:f-1,p))+j,p)
|
||||||
|
prm%shear_twin(i) = lattice_shearTwin(sum(lattice_Ntwinsystem(1:f-1,p))+j,p)
|
||||||
! nucleation rate prefactor,
|
! nucleation rate prefactor,
|
||||||
! and twin size
|
! and twin size
|
||||||
!* Rotate twin elasticity matrices
|
!* Rotate twin elasticity matrices
|
||||||
|
@ -739,11 +746,13 @@ subroutine plastic_dislotwin_init(fileUnit)
|
||||||
allocate(prm%Ctrans66(6,6,prm%totalNtrans) ,source=0.0_pReal)
|
allocate(prm%Ctrans66(6,6,prm%totalNtrans) ,source=0.0_pReal)
|
||||||
if (allocated(Ctrans3333)) deallocate(Ctrans3333)
|
if (allocated(Ctrans3333)) deallocate(Ctrans3333)
|
||||||
allocate(Ctrans3333(3,3,3,3,prm%totalNtrans), source=0.0_pReal)
|
allocate(Ctrans3333(3,3,3,3,prm%totalNtrans), source=0.0_pReal)
|
||||||
|
allocate(prm%Schmid_trans(3,3,prm%totalNtrans),source = 0.0_pReal)
|
||||||
|
i = 0_pInt
|
||||||
transFamiliesLoop: do f = 1_pInt,size(prm%Ntrans,1)
|
transFamiliesLoop: do f = 1_pInt,size(prm%Ntrans,1)
|
||||||
index_myFamily = sum(prm%Ntrans(1:f-1_pInt)) ! index in truncated trans system list
|
index_myFamily = sum(prm%Ntrans(1:f-1_pInt)) ! index in truncated trans system list
|
||||||
transSystemsLoop: do j = 1_pInt,prm%Ntrans(f)
|
transSystemsLoop: do j = 1_pInt,prm%Ntrans(f)
|
||||||
|
i = i + 1_pInt
|
||||||
|
prm%Schmid_trans(1:3,1:3,i) = lattice_Strans(1:3,1:3,sum(lattice_Ntranssystem(1:f-1,p))+j,p)
|
||||||
index_otherFamily = sum(lattice_NtransSystem(1:f-1_pInt,p)) ! index in full lattice trans list
|
index_otherFamily = sum(lattice_NtransSystem(1:f-1_pInt,p)) ! index in full lattice trans list
|
||||||
do l = 1_pInt,3_pInt; do m = 1_pInt,3_pInt; do n = 1_pInt,3_pInt; do o = 1_pInt,3_pInt
|
do l = 1_pInt,3_pInt; do m = 1_pInt,3_pInt; do n = 1_pInt,3_pInt; do o = 1_pInt,3_pInt
|
||||||
do p1 = 1_pInt,3_pInt; do q = 1_pInt,3_pInt; do r = 1_pInt,3_pInt; do s = 1_pInt,3_pInt
|
do p1 = 1_pInt,3_pInt; do q = 1_pInt,3_pInt; do r = 1_pInt,3_pInt; do s = 1_pInt,3_pInt
|
||||||
|
|
Loading…
Reference in New Issue