2013-05-17 22:39:42 +05:30
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
|
|
|
!> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH
|
|
|
|
|
!> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
|
2019-01-06 04:25:10 +05:30
|
|
|
!> @author Martin Diehl, Max-Planck-Institut für Eisenforschung GmbH
|
|
|
|
|
!> @brief Dummy plasticity for purely elastic material
|
2013-05-17 22:39:42 +05:30
|
|
|
!--------------------------------------------------------------------------------------------------
|
2020-07-09 04:31:08 +05:30
|
|
|
submodule(constitutive:constitutive_plastic) plastic_none
|
2013-05-17 22:39:42 +05:30
|
|
|
|
2013-07-01 11:40:42 +05:30
|
|
|
contains
|
2012-07-03 16:46:38 +05:30
|
|
|
|
2013-05-17 22:39:42 +05:30
|
|
|
!--------------------------------------------------------------------------------------------------
|
2013-07-01 11:40:42 +05:30
|
|
|
!> @brief module initialization
|
|
|
|
|
!> @details reads in material parameters, allocates arrays, and does sanity checks
|
2013-05-17 22:39:42 +05:30
|
|
|
!--------------------------------------------------------------------------------------------------
|
2020-08-15 19:32:10 +05:30
|
|
|
module function plastic_none_init() result(myPlasticity)
|
2013-12-19 14:19:47 +05:30
|
|
|
|
2020-08-15 19:32:10 +05:30
|
|
|
logical, dimension(:), allocatable :: myPlasticity
|
2020-02-01 02:07:18 +05:30
|
|
|
integer :: &
|
|
|
|
|
Ninstance, &
|
|
|
|
|
p, &
|
|
|
|
|
NipcMyPhase
|
2020-08-15 19:32:10 +05:30
|
|
|
class(tNode), pointer :: &
|
|
|
|
|
phases, &
|
|
|
|
|
phase, &
|
|
|
|
|
pl
|
|
|
|
|
|
|
|
|
|
write(6,'(/,a)') ' <<<+- plastic_none init -+>>>'
|
|
|
|
|
|
|
|
|
|
phases => material_root%get('phase')
|
|
|
|
|
allocate(myPlasticity(phases%length), source = .false. )
|
|
|
|
|
do p = 1, phases%length
|
|
|
|
|
phase => phases%get(p)
|
|
|
|
|
pl => phase%get('plasticity')
|
|
|
|
|
if(pl%get_asString('type') == 'none') myPlasticity(p) = .true.
|
|
|
|
|
enddo
|
2020-02-14 13:30:14 +05:30
|
|
|
|
2020-08-15 19:32:10 +05:30
|
|
|
Ninstance = count(myPlasticity)
|
2020-07-02 00:16:26 +05:30
|
|
|
write(6,'(a16,1x,i5,/)') '# instances:',Ninstance; flush(6)
|
2020-08-15 19:32:10 +05:30
|
|
|
if(Ninstance == 0) return
|
|
|
|
|
|
|
|
|
|
do p = 1, phases%length
|
|
|
|
|
phase => phases%get(p)
|
|
|
|
|
if(.not. myPlasticity(p)) cycle
|
2020-02-01 02:07:18 +05:30
|
|
|
NipcMyPhase = count(material_phaseAt == p) * discretization_nIP
|
2020-08-15 19:32:10 +05:30
|
|
|
call constitutive_allocateState(plasticState(p),NipcMyPhase,0,0,0)
|
2020-02-01 02:07:18 +05:30
|
|
|
enddo
|
2014-07-02 17:57:39 +05:30
|
|
|
|
2020-08-15 19:32:10 +05:30
|
|
|
end function plastic_none_init
|
|
|
|
|
|
2012-07-03 16:46:38 +05:30
|
|
|
|
2019-12-03 01:13:02 +05:30
|
|
|
end submodule plastic_none
|
