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

don't rely on compiler to remove dead loops

This commit is contained in:
Martin Diehl 2021-01-26 16:55:19 +01:00
parent 546fcba93d
commit 7a4ad53b8c
1 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
src/homogenization.f90
View File

@ -313,25 +313,25 @@ subroutine materialpoint_stressAndItsTangent(dt,FEsolving_execIP,FEsolving_execE
enddo enddo
!$OMP END DO !$OMP END DO
!$OMP DO PRIVATE(ho,ph,ce) ! !$OMP DO PRIVATE(ho,ph,ce)
do el = FEsolving_execElem(1),FEsolving_execElem(2) ! do el = FEsolving_execElem(1),FEsolving_execElem(2)
if (terminallyIll) continue ! if (terminallyIll) continue
ho = material_homogenizationAt(el) ! ho = material_homogenizationAt(el)
do ip = FEsolving_execIP(1),FEsolving_execIP(2) ! do ip = FEsolving_execIP(1),FEsolving_execIP(2)
ce = (el-1)*discretization_nIPs + ip ! ce = (el-1)*discretization_nIPs + ip
! call damage_partition(ce) ! call damage_partition(ce)
! do co = 1, homogenization_Nconstituents(ho) ! do co = 1, homogenization_Nconstituents(ho)
! ph = material_phaseAt(co,el) ! ph = material_phaseAt(co,el)
! if (.not. thermal_stress(dt,ph,material_phaseMemberAt(co,ip,el))) then ! if (.not. thermal_stress(dt,ph,material_phaseMemberAt(co,ip,el))) then
! if (.not. terminallyIll) & ! so first signals terminally ill... ! if (.not. terminallyIll) & ! so first signals terminally ill...
! print*, ' Integration point ', ip,' at element ', el, ' terminally ill' ! print*, ' Integration point ', ip,' at element ', el, ' terminally ill'
! terminallyIll = .true. ! ...and kills all others ! terminallyIll = .true. ! ...and kills all others
! endif ! endif
! call thermal_homogenize(ip,el) ! call thermal_homogenize(ip,el)
! enddo ! enddo
enddo ! enddo
enddo ! enddo
!$OMP END DO ! !$OMP END DO
!$OMP DO PRIVATE(ho) !$OMP DO PRIVATE(ho)
elementLooping3: do el = FEsolving_execElem(1),FEsolving_execElem(2) elementLooping3: do el = FEsolving_execElem(1),FEsolving_execElem(2)