introduction of logical "wantsConstitutiveResults"

This commit is contained in:
Philip Eisenlohr 2009-01-19 19:10:02 +00:00
parent 82e65648a2
commit abb2e3ef30
2 changed files with 2067 additions and 2065 deletions

View File

@ -121,6 +121,7 @@ real(pReal), dimension(:) , allocatable :: constitutive_recovery
!************************************
!* State variables *
!************************************
logical :: wantsConstitutiveResults = .false.
integer(pInt) constitutive_maxNstatevars
integer(pInt), dimension(:,:,:), allocatable :: constitutive_Nstatevars
real(pReal), dimension(:,:,:,:), allocatable :: constitutive_state_old

View File

@ -80,6 +80,7 @@ real(pReal), dimension(:,:,:) , allocatable :: constitutive_texVolFrac
!************************************
!* State variables *
!************************************
logical :: wantsConstitutiveResults = .false.
integer(pInt) constitutive_maxNstatevars
integer(pInt), dimension(:,:,:) , allocatable :: constitutive_Nstatevars
real(pReal), dimension(:,:,:,:) , allocatable :: constitutive_state_old