calc done is used only internally

This commit is contained in:
Martin Diehl 2016-01-17 14:15:38 +00:00
parent 3d2187cc07
commit 1caec2e608
1 changed files with 2 additions and 1 deletions

View File

@ -37,7 +37,8 @@ module CPFEM
outdatedByNewInc = .false. !< needs description outdatedByNewInc = .false. !< needs description
logical, public, protected :: & 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 CPFEM_calc_done = .false. !< remember whether first ip has already calced the results
integer(pInt), parameter, public :: & integer(pInt), parameter, public :: &