polishing

This commit is contained in:
Martin Diehl 2021-04-07 20:39:11 +02:00
parent 1851b66cb4
commit bbb292d093
5 changed files with 7 additions and 8 deletions

View File

@ -266,7 +266,7 @@ subroutine selfTest
if(any(dNeq(l2%get_as1dFloat(1),[2.0_pReal,3.0_pReal]))) error stop 'byIndex_as1dFloat'
call l2%append(l3)
x = l2%as2dFloat()
if(x(2,1)/= 4.0_pReal) error stop 'byKey_as2dFloat'
if(dNeq(x(2,1),4.0_pReal)) error stop 'byKey_as2dFloat'
if(any(dNeq(pack(l2%as2dFloat(),.true.),&
[2.0_pReal,4.0_pReal,3.0_pReal,5.0_pReal]))) error stop 'byKey_as2dFloat'
n => l2

View File

@ -39,8 +39,6 @@ module homogenization
thermal_type !< thermal transport model
integer(kind(DAMAGE_none_ID)), dimension(:), allocatable :: &
damage_type !< nonlocal damage model
integer(kind(HOMOGENIZATION_undefined_ID)), dimension(:), allocatable :: &
homogenization_type !< type of each homogenization
type, private :: tNumerics_damage
real(pReal) :: &

View File

@ -71,6 +71,9 @@ submodule(homogenization) mechanical
end interface
integer(kind(HOMOGENIZATION_undefined_ID)), dimension(:), allocatable :: &
homogenization_type !< type of each homogenization
contains
!--------------------------------------------------------------------------------------------------

View File

@ -332,8 +332,7 @@ contains
subroutine phase_init
integer :: &
ph, & !< counter in phase loop
so !< counter in source loop
ph
class (tNode), pointer :: &
debug_constitutive, &
materials, &
@ -475,7 +474,6 @@ subroutine crystallite_init()
co, & !< counter in integration point component loop
ip, & !< counter in integration point loop
el, & !< counter in element loop
so, &
cMax, & !< maximum number of integration point components
iMax, & !< maximum number of integration points
eMax !< maximum number of elements