DAMASK with grid solvers  Revision: v2.0.3-2204-gdb1f2151
The Düsseldorf Advanced Material Simulation Kit with Grid Solvers
constitutive_plastic_none.f90
Go to the documentation of this file.
1 # 1 "/home/damask_user/GitLabCI_Pipeline_4301/DAMASK/src/constitutive_plastic_none.f90"
2 # 1 "<built-in>"
3 # 1 "<command-line>"
4 # 1 "/home/damask_user/GitLabCI_Pipeline_4301/DAMASK/src/constitutive_plastic_none.f90"
5 !--------------------------------------------------------------------------------------------------
10 !--------------------------------------------------------------------------------------------------
11 submodule(constitutive) plastic_none
12 
13 contains
14 
15 !--------------------------------------------------------------------------------------------------
18 !--------------------------------------------------------------------------------------------------
19 module subroutine plastic_none_init
20 
21  integer :: &
22  Ninstance, &
23  p, &
24  NipcMyPhase
25 
26  write(6,'(/,a)') ' <<<+- plastic_'//plasticity_none_label//' init -+>>>'; flush(6)
27 
28  ninstance = count(phase_plasticity == plasticity_none_id)
29  if (iand(debug_level(debug_constitutive),debug_levelbasic) /= 0) &
30  write(6,'(a16,1x,i5,/)') '# instances:',ninstance
31 
32  do p = 1, size(phase_plasticity)
33  if (phase_plasticity(p) /= plasticity_none_id) cycle
34 
35  nipcmyphase = count(material_phaseat == p) * discretization_nip
36  call material_allocateplasticstate(p,nipcmyphase,0,0,0)
37 
38  enddo
39 
40 end subroutine plastic_none_init
41 
42 end submodule plastic_none
constitutive
elasticity, plasticity, internal microstructure state
Definition: constitutive.f90:10