2012-08-25 17:16:36 +05:30
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
|
|
|
!> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH
|
2020-01-25 13:42:09 +05:30
|
|
|
!> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
|
|
|
|
|
!> @brief global variables for flow control
|
2012-08-25 17:16:36 +05:30
|
|
|
!--------------------------------------------------------------------------------------------------
|
2012-03-09 01:55:28 +05:30
|
|
|
module FEsolving
|
2019-06-11 19:46:10 +05:30
|
|
|
use prec
|
|
|
|
|
|
|
|
|
|
implicit none
|
2019-06-15 19:18:47 +05:30
|
|
|
|
2020-01-25 13:42:09 +05:30
|
|
|
logical :: &
|
2020-01-25 13:54:42 +05:30
|
|
|
terminallyIll = .false. !< at least one material point is terminally ill
|
2012-03-20 23:31:31 +05:30
|
|
|
|
2020-01-25 13:54:42 +05:30
|
|
|
integer, dimension(2) :: &
|
|
|
|
|
FEsolving_execElem, & !< for ping-pong scheme always whole range, otherwise one specific element
|
2019-06-11 19:46:10 +05:30
|
|
|
FEsolving_execIP !< for ping-pong scheme always range to max IP, otherwise one specific IP
|
|
|
|
|
|
2019-06-15 19:18:47 +05:30
|
|
|
#if defined(Marc4DAMASK) || defined(Abaqus)
|
2020-01-25 13:42:09 +05:30
|
|
|
logical, dimension(:,:), allocatable :: &
|
2019-06-11 19:46:10 +05:30
|
|
|
calcMode !< do calculation or simply collect when using ping pong scheme
|
2019-06-15 19:18:47 +05:30
|
|
|
#endif
|
2008-03-15 03:02:57 +05:30
|
|
|
|
2012-03-09 01:55:28 +05:30
|
|
|
end module FEsolving
|
