From 6347adcb659b68593ffea4f92d5ca20bfa5513d0 Mon Sep 17 00:00:00 2001 From: Pratheek Shanthraj Date: Mon, 23 Jun 2014 22:09:15 +0000 Subject: [PATCH] fixed error in previous commit --- code/crystallite.f90 | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/code/crystallite.f90 b/code/crystallite.f90 index 8e667a688..f838f0158 100644 --- a/code/crystallite.f90 +++ b/code/crystallite.f90 @@ -1425,7 +1425,7 @@ subroutine crystallite_integrateStateRK4() constitutive_dotState, & constitutive_RK4dotState, & constitutive_deltaState, & - constitutive_collectDeltaState + constitutive_collectDeltaState, & #endif constitutive_microstructure @@ -2305,7 +2305,7 @@ subroutine crystallite_integrateStateAdaptiveEuler() constitutive_state, & constitutive_sizeDotState, & constitutive_dotState, & - constitutive_aTolState + constitutive_aTolState, & #endif constitutive_maxSizeDotState @@ -2682,7 +2682,7 @@ subroutine crystallite_integrateStateEuler() constitutive_state, & constitutive_sizeDotState, & constitutive_maxSizeDotState, & - constitutive_dotState + constitutive_dotState, & #endif constitutive_microstructure @@ -2910,7 +2910,7 @@ subroutine crystallite_integrateStateFPI() constitutive_dotState, & constitutive_previousDotState, & constitutive_previousDotState2, & - constitutive_aTolState + constitutive_aTolState, & #endif constitutive_maxSizeDotState @@ -3360,7 +3360,7 @@ logical function crystallite_stateJump(g,i,e) #ifndef NEWSTATE constitutive_sizeDotState, & constitutive_state, & - constitutive_deltaState + constitutive_deltaState, & #endif constitutive_collectDeltaState