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

polishing 

sometimes gives segmentation fault/division by zero.
probably the usual problem of dislotwin when running without friction
coefficient B
This commit is contained in:
Martin Diehl 2018-12-11 07:22:48 +01:00
parent 1bcf41100d
commit 754e5a960b
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/plastic_dislotwin.f90
View File

@ -236,7 +236,6 @@ subroutine plastic_dislotwin_init
integer(pInt) :: sizeState, sizeDotState
integer(pInt) :: NipcMyPhase
real(pReal), allocatable, dimension(:,:) :: temp1
integer(pInt), dimension(1,200), parameter :: lattice_ntranssystem = 12 ! HACK!!
integer(pInt), dimension(0), parameter :: emptyIntArray = [integer(pInt)::]
real(pReal), dimension(0), parameter :: emptyRealArray = [real(pReal)::]
@ -607,7 +606,6 @@ subroutine plastic_dislotwin_init
! DEPRECATED BEGIN
allocate(temp1(prm%totalNslip,prm%totalNtrans),source =0.0_pReal)
allocate(prm%forestProjectionEdge(prm%totalNslip,prm%totalNslip),source = 0.0_pReal)
i = 0_pInt
mySlipFamilies: do f = 1_pInt,size(prm%Nslip,1)