From 19bd2d1430583e53ff1e123bd28e0d760adffba3 Mon Sep 17 00:00:00 2001 From: Philip Eisenlohr Date: Tue, 26 Aug 2014 17:39:52 +0000 Subject: [PATCH] changed CPFEM_COLLECT to be 2^0=1 such that computation modes with collection step are always an odd number. (used to be 2^4 with no particular intrinsic meaning...) --- code/CPFEM.f90 | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/code/CPFEM.f90 b/code/CPFEM.f90 index 063521fd5..977fbf728 100644 --- a/code/CPFEM.f90 +++ b/code/CPFEM.f90 @@ -28,11 +28,11 @@ module CPFEM CPFEM_calc_done = .false. !< remember whether first ip has already calced the results integer(pInt), parameter, public :: & - CPFEM_CALCRESULTS = 2_pInt**0_pInt, & - CPFEM_AGERESULTS = 2_pInt**1_pInt, & - CPFEM_BACKUPJACOBIAN = 2_pInt**2_pInt, & - CPFEM_RESTOREJACOBIAN = 2_pInt**3_pInt, & - CPFEM_COLLECT = 2_pInt**4_pInt + CPFEM_COLLECT = 2_pInt**0_pInt, & + CPFEM_CALCRESULTS = 2_pInt**1_pInt, & + CPFEM_AGERESULTS = 2_pInt**2_pInt, & + CPFEM_BACKUPJACOBIAN = 2_pInt**3_pInt, & + CPFEM_RESTOREJACOBIAN = 2_pInt**4_pInt public :: &