From 1caec2e6080b68a2eaece5bb0d33a7e87d92dc80 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 17 Jan 2016 14:15:38 +0000 Subject: [PATCH] calc done is used only internally --- code/CPFEM.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/code/CPFEM.f90 b/code/CPFEM.f90 index 66b8d0d22..3bd8792d8 100644 --- a/code/CPFEM.f90 +++ b/code/CPFEM.f90 @@ -37,7 +37,8 @@ module CPFEM outdatedByNewInc = .false. !< needs description logical, public, protected :: & - CPFEM_init_done = .false., & !< remember whether init has been done already + CPFEM_init_done = .false. !< remember whether init has been done already + logical, private :: & CPFEM_calc_done = .false. !< remember whether first ip has already calced the results integer(pInt), parameter, public :: &