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