polishing
This commit is contained in:
parent
1851b66cb4
commit
bbb292d093
|
@ -658,7 +658,7 @@ subroutine selfTest
|
||||||
if(any([1,1,1] /= IO_stringPos('a'))) error stop 'IO_stringPos'
|
if(any([1,1,1] /= IO_stringPos('a'))) error stop 'IO_stringPos'
|
||||||
if(any([2,2,3,5,5] /= IO_stringPos(' aa b'))) error stop 'IO_stringPos'
|
if(any([2,2,3,5,5] /= IO_stringPos(' aa b'))) error stop 'IO_stringPos'
|
||||||
|
|
||||||
str=' 1.0 xxx'
|
str = ' 1.0 xxx'
|
||||||
chunkPos = IO_stringPos(str)
|
chunkPos = IO_stringPos(str)
|
||||||
if(dNeq(1.0_pReal,IO_floatValue(str,chunkPos,1))) error stop 'IO_floatValue'
|
if(dNeq(1.0_pReal,IO_floatValue(str,chunkPos,1))) error stop 'IO_floatValue'
|
||||||
|
|
||||||
|
|
|
@ -266,7 +266,7 @@ subroutine selfTest
|
||||||
if(any(dNeq(l2%get_as1dFloat(1),[2.0_pReal,3.0_pReal]))) error stop 'byIndex_as1dFloat'
|
if(any(dNeq(l2%get_as1dFloat(1),[2.0_pReal,3.0_pReal]))) error stop 'byIndex_as1dFloat'
|
||||||
call l2%append(l3)
|
call l2%append(l3)
|
||||||
x = l2%as2dFloat()
|
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.),&
|
if(any(dNeq(pack(l2%as2dFloat(),.true.),&
|
||||||
[2.0_pReal,4.0_pReal,3.0_pReal,5.0_pReal]))) error stop 'byKey_as2dFloat'
|
[2.0_pReal,4.0_pReal,3.0_pReal,5.0_pReal]))) error stop 'byKey_as2dFloat'
|
||||||
n => l2
|
n => l2
|
||||||
|
|
|
@ -39,8 +39,6 @@ module homogenization
|
||||||
thermal_type !< thermal transport model
|
thermal_type !< thermal transport model
|
||||||
integer(kind(DAMAGE_none_ID)), dimension(:), allocatable :: &
|
integer(kind(DAMAGE_none_ID)), dimension(:), allocatable :: &
|
||||||
damage_type !< nonlocal damage model
|
damage_type !< nonlocal damage model
|
||||||
integer(kind(HOMOGENIZATION_undefined_ID)), dimension(:), allocatable :: &
|
|
||||||
homogenization_type !< type of each homogenization
|
|
||||||
|
|
||||||
type, private :: tNumerics_damage
|
type, private :: tNumerics_damage
|
||||||
real(pReal) :: &
|
real(pReal) :: &
|
||||||
|
|
|
@ -71,6 +71,9 @@ submodule(homogenization) mechanical
|
||||||
|
|
||||||
end interface
|
end interface
|
||||||
|
|
||||||
|
integer(kind(HOMOGENIZATION_undefined_ID)), dimension(:), allocatable :: &
|
||||||
|
homogenization_type !< type of each homogenization
|
||||||
|
|
||||||
contains
|
contains
|
||||||
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
|
|
|
@ -332,8 +332,7 @@ contains
|
||||||
subroutine phase_init
|
subroutine phase_init
|
||||||
|
|
||||||
integer :: &
|
integer :: &
|
||||||
ph, & !< counter in phase loop
|
ph
|
||||||
so !< counter in source loop
|
|
||||||
class (tNode), pointer :: &
|
class (tNode), pointer :: &
|
||||||
debug_constitutive, &
|
debug_constitutive, &
|
||||||
materials, &
|
materials, &
|
||||||
|
@ -475,7 +474,6 @@ subroutine crystallite_init()
|
||||||
co, & !< counter in integration point component loop
|
co, & !< counter in integration point component loop
|
||||||
ip, & !< counter in integration point loop
|
ip, & !< counter in integration point loop
|
||||||
el, & !< counter in element loop
|
el, & !< counter in element loop
|
||||||
so, &
|
|
||||||
cMax, & !< maximum number of integration point components
|
cMax, & !< maximum number of integration point components
|
||||||
iMax, & !< maximum number of integration points
|
iMax, & !< maximum number of integration points
|
||||||
eMax !< maximum number of elements
|
eMax !< maximum number of elements
|
||||||
|
|
Loading…
Reference in New Issue