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