introduction of logical "wantsConstitutiveResults"
This commit is contained in:
parent
82e65648a2
commit
abb2e3ef30
|
@ -121,6 +121,7 @@ real(pReal), dimension(:) , allocatable :: constitutive_recovery
|
||||||
!************************************
|
!************************************
|
||||||
!* State variables *
|
!* State variables *
|
||||||
!************************************
|
!************************************
|
||||||
|
logical :: wantsConstitutiveResults = .false.
|
||||||
integer(pInt) constitutive_maxNstatevars
|
integer(pInt) constitutive_maxNstatevars
|
||||||
integer(pInt), dimension(:,:,:), allocatable :: constitutive_Nstatevars
|
integer(pInt), dimension(:,:,:), allocatable :: constitutive_Nstatevars
|
||||||
real(pReal), dimension(:,:,:,:), allocatable :: constitutive_state_old
|
real(pReal), dimension(:,:,:,:), allocatable :: constitutive_state_old
|
||||||
|
|
|
@ -80,6 +80,7 @@ real(pReal), dimension(:,:,:) , allocatable :: constitutive_texVolFrac
|
||||||
!************************************
|
!************************************
|
||||||
!* State variables *
|
!* State variables *
|
||||||
!************************************
|
!************************************
|
||||||
|
logical :: wantsConstitutiveResults = .false.
|
||||||
integer(pInt) constitutive_maxNstatevars
|
integer(pInt) constitutive_maxNstatevars
|
||||||
integer(pInt), dimension(:,:,:) , allocatable :: constitutive_Nstatevars
|
integer(pInt), dimension(:,:,:) , allocatable :: constitutive_Nstatevars
|
||||||
real(pReal), dimension(:,:,:,:) , allocatable :: constitutive_state_old
|
real(pReal), dimension(:,:,:,:) , allocatable :: constitutive_state_old
|
||||||
|
|
Loading…
Reference in New Issue