From b834b2a00da82d370f5b1927b4dad9684a4bec49 Mon Sep 17 00:00:00 2001 From: Fengbo Han Date: Wed, 7 Feb 2018 13:37:26 +0100 Subject: [PATCH] removed unnecessary lines --- src/DAMASK_spectral.f90 | 18 ++++++++---------- 1 file changed, 8 insertions(+), 10 deletions(-) diff --git a/src/DAMASK_spectral.f90 b/src/DAMASK_spectral.f90 index d70a818a6..beae759fc 100755 --- a/src/DAMASK_spectral.f90 +++ b/src/DAMASK_spectral.f90 @@ -159,20 +159,18 @@ program DAMASK_spectral PETScFinalize !-------------------------------------------------------------------------------------------------- ! variables related to stop criterion for yielding - real(pReal) :: plasticWorkOld, plasticWorkNew, & ! plastic work - eqTotalStrainOld, eqTotalStrainNew, & ! total equivalent strain - eqPlasticStrainOld, eqPlasticStrainNew, & ! total equivalent plastic strain - eqStressOld, eqStressNew , & ! equivalent stress + real(pReal) :: plasticWorkOld, plasticWorkNew, & ! plastic work + eqTotalStrainOld, eqTotalStrainNew, & ! total equivalent strain + eqPlasticStrainOld, eqPlasticStrainNew, & ! total equivalent plastic strain + eqStressOld, eqStressNew , & ! equivalent stress yieldStopValue - real(pReal), dimension(3,3) :: yieldStress,yieldStressOld,yieldStressNew, plasticStrainOld, plasticStrainNew, plasticStrainRate + real(pReal), dimension(3,3) :: yieldStress,yieldStressOld,yieldStressNew, & + plasticStrainOld, plasticStrainNew, plasticStrainRate integer(pInt) :: yieldResUnit = 0_pInt integer(pInt) :: stressstrainUnit = 0_pInt character(len=13) :: stopFlag logical :: yieldStop, yieldStopSatisfied - ! logical :: & - ! stop_totalStrain, & !< stop criterion - ! stop_plasticStrain, & - ! stop_plasticWork + !-------------------------------------------------------------------------------------------------- ! init DAMASK (all modules) call CPFEM_initAll(el = 1_pInt, ip = 1_pInt) @@ -321,7 +319,7 @@ program DAMASK_spectral enddo; enddo close(FILEUNIT) - if(yieldStop) then ! initialize variables related to yield stop + if(yieldStop) then ! initialize variables related to yield stop yieldStressNew = 0.0_pReal plasticStrainNew = 0.0_pReal eqStressNew = 0.0_pReal