From 414faa53d3a620eb217a8b340c97bc05bbc90c84 Mon Sep 17 00:00:00 2001 From: Fengbo Han Date: Thu, 27 Jul 2017 16:31:16 +0200 Subject: [PATCH] implemented yield stop criteria --- src/DAMASK_spectral.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/DAMASK_spectral.f90 b/src/DAMASK_spectral.f90 index 877970e74..fe7bdf2b3 100755 --- a/src/DAMASK_spectral.f90 +++ b/src/DAMASK_spectral.f90 @@ -721,12 +721,12 @@ program DAMASK_spectral yieldStopSatisfied = .True. endif endif - endif yieldCheck + endif yieldCheck - if (yieldStopSatisfied) then ! when yield, write the yield stress and strain rate to file and quit the job + if (yieldStopSatisfied) then ! when yield, write the yield stress and strain rate to file and quit the job if (worldrank == 0) then open(newunit=yieldResUnit,file=trim(getSolverWorkingDirectoryName())//trim(getSolverJobName())//& - '.yield',form='FORMATTED',status='REPLACE') + '.yield',form='FORMATTED',status='REPLACE') do i = 1_pInt,3_pInt write(yieldResUnit,*) (yieldStress(i,j), j=1,3) enddo