From 9c138c87f00fe2590e2460a54a44d58cb0cfcc9f Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Wed, 29 Jan 2020 14:52:09 +0100 Subject: [PATCH] not needed --- src/FEsolving.f90 | 4 ++-- src/config.f90 | 2 +- src/element.f90 | 1 - 3 files changed, 3 insertions(+), 4 deletions(-) diff --git a/src/FEsolving.f90 b/src/FEsolving.f90 index f81110414..fc04499fa 100644 --- a/src/FEsolving.f90 +++ b/src/FEsolving.f90 @@ -4,10 +4,10 @@ !> @brief global variables for flow control !-------------------------------------------------------------------------------------------------- module FEsolving - use prec implicit none - + public + logical :: & terminallyIll = .false. !< at least one material point is terminally ill diff --git a/src/config.f90 b/src/config.f90 index bcf9b4b3d..58b0d69a1 100644 --- a/src/config.f90 +++ b/src/config.f90 @@ -27,7 +27,7 @@ module config config_numerics, & config_debug - character(len=pStringLen), dimension(:), allocatable, public, protected :: & + character(len=pStringLen), public, protected, allocatable, dimension(:) :: & config_name_phase, & !< name of each phase config_name_homogenization, & !< name of each homogenization config_name_crystallite, & !< name of each crystallite setting diff --git a/src/element.f90 b/src/element.f90 index a38036f93..de4000700 100644 --- a/src/element.f90 +++ b/src/element.f90 @@ -3,7 +3,6 @@ !> @author Christoph Koords, Max-Planck-Institut für Eisenforschung GmbH !-------------------------------------------------------------------------------------------------- module element - use prec use IO implicit none