DAMASK_EICMD/src/FEsolving.f90

24 lines
1.2 KiB
Fortran
Raw Normal View History

!--------------------------------------------------------------------------------------------------
!> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH
!> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
!> @brief global variables for flow control
!--------------------------------------------------------------------------------------------------
module FEsolving
2019-06-11 19:46:10 +05:30
use prec
implicit none
logical :: &
terminallyIll = .false. !< at least one material point is terminally ill
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
#if defined(Marc4DAMASK) || defined(Abaqus)
logical, dimension(:,:), allocatable :: &
2019-06-11 19:46:10 +05:30
calcMode !< do calculation or simply collect when using ping pong scheme
#endif
end module FEsolving