# no need for materialpoint_results in hypela2

# homogenization updated to be compatible with abaqus interface
This commit is contained in:
Philip Eisenlohr 2009-10-12 17:01:42 +00:00
parent ca1c61bf98
commit 0a34da292e
2 changed files with 5 additions and 4 deletions

View File

@ -44,7 +44,8 @@ MODULE homogenization
materialpoint_converged materialpoint_converged
logical, dimension(:,:,:), allocatable :: materialpoint_doneAndHappy logical, dimension(:,:,:), allocatable :: materialpoint_doneAndHappy
integer(pInt) homogenization_maxSizeState, & integer(pInt) homogenization_maxSizeState, &
homogenization_maxSizePostResults homogenization_maxSizePostResults, &
materialpoint_sizeResults
CONTAINS CONTAINS
@ -131,8 +132,9 @@ subroutine homogenization_init(Temperature)
homogenization_maxSizeState = maxval(homogenization_sizeState) homogenization_maxSizeState = maxval(homogenization_sizeState)
homogenization_maxSizePostResults = maxval(homogenization_sizePostResults) homogenization_maxSizePostResults = maxval(homogenization_sizePostResults)
allocate(materialpoint_results( 1+ 1+homogenization_maxSizePostResults + & ! grain count, homogSize, homogResult materialpoint_sizeResults = 1+ 1+homogenization_maxSizePostResults + & ! grain count, homogSize, homogResult
homogenization_maxNgrains*(1+crystallite_Nresults+constitutive_maxSizePostResults), mesh_maxNips,mesh_NcpElems)) homogenization_maxNgrains*(1+crystallite_Nresults+constitutive_maxSizePostResults)
allocate(materialpoint_results( materialpoint_sizeResults, mesh_maxNips,mesh_NcpElems))
! *** Output to MARC output file *** ! *** Output to MARC output file ***

View File

@ -165,7 +165,6 @@ subroutine hypela2(&
debug_reset debug_reset
use mesh, only: mesh_FEasCP use mesh, only: mesh_FEasCP
use CPFEM, only: CPFEM_general,CPFEM_init_done use CPFEM, only: CPFEM_general,CPFEM_init_done
use homogenization, only: materialpoint_sizeResults, materialpoint_results
implicit none implicit none
! ** Start of generated type statements ** ! ** Start of generated type statements **