From 0a34da292e5d6d7c04ae81a48a65308e7627f782 Mon Sep 17 00:00:00 2001 From: Philip Eisenlohr Date: Mon, 12 Oct 2009 17:01:42 +0000 Subject: [PATCH] # no need for materialpoint_results in hypela2 # homogenization updated to be compatible with abaqus interface --- code/homogenization.f90 | 8 +++++--- code/mpie_cpfem_marc.f90 | 1 - 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/code/homogenization.f90 b/code/homogenization.f90 index 05e47b936..297cb3894 100644 --- a/code/homogenization.f90 +++ b/code/homogenization.f90 @@ -44,7 +44,8 @@ MODULE homogenization materialpoint_converged logical, dimension(:,:,:), allocatable :: materialpoint_doneAndHappy integer(pInt) homogenization_maxSizeState, & - homogenization_maxSizePostResults + homogenization_maxSizePostResults, & + materialpoint_sizeResults CONTAINS @@ -131,8 +132,9 @@ subroutine homogenization_init(Temperature) homogenization_maxSizeState = maxval(homogenization_sizeState) homogenization_maxSizePostResults = maxval(homogenization_sizePostResults) - allocate(materialpoint_results( 1+ 1+homogenization_maxSizePostResults + & ! grain count, homogSize, homogResult - homogenization_maxNgrains*(1+crystallite_Nresults+constitutive_maxSizePostResults), mesh_maxNips,mesh_NcpElems)) + materialpoint_sizeResults = 1+ 1+homogenization_maxSizePostResults + & ! grain count, homogSize, homogResult + homogenization_maxNgrains*(1+crystallite_Nresults+constitutive_maxSizePostResults) + allocate(materialpoint_results( materialpoint_sizeResults, mesh_maxNips,mesh_NcpElems)) ! *** Output to MARC output file *** diff --git a/code/mpie_cpfem_marc.f90 b/code/mpie_cpfem_marc.f90 index 43b0f5073..d313242ce 100644 --- a/code/mpie_cpfem_marc.f90 +++ b/code/mpie_cpfem_marc.f90 @@ -165,7 +165,6 @@ subroutine hypela2(& debug_reset use mesh, only: mesh_FEasCP use CPFEM, only: CPFEM_general,CPFEM_init_done - use homogenization, only: materialpoint_sizeResults, materialpoint_results implicit none ! ** Start of generated type statements **