From 393c60565d626096f8e5b6d220dfb7b7e9ca91db Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Fri, 22 Feb 2013 05:38:02 +0000 Subject: [PATCH] one line was beyond 132 characters --- code/crystallite.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/crystallite.f90 b/code/crystallite.f90 index bb491c7e1..3c8e68c04 100644 --- a/code/crystallite.f90 +++ b/code/crystallite.f90 @@ -2271,7 +2271,7 @@ subroutine crystallite_integrateStateAdaptiveEuler(gg,ii,ee) relStateResiduum(1:mySizeDotState,g,i,e) / rTol_crystalliteState write(6,*) write(6,'(a,/,(12x,12(e12.5,1x)))') '<< CRYST >> dotState', constitutive_dotState(g,i,e)%p(1:mySizeDotState) & - - 2.0_pReal * stateResiduum(1:mySizeDotState,g,i,e) / crystallite_subdt(g,i,e) ! calculate former dotstate from higher order solution and state residuum + - 2.0_pReal * stateResiduum(1:mySizeDotState,g,i,e) / crystallite_subdt(g,i,e) ! calculate former dotstate from higher order solution and state residuum write(6,*) write(6,'(a,/,(12x,12(e12.5,1x)))') '<< CRYST >> new state', constitutive_state(g,i,e)%p(1:mySizeDotState) write(6,*)