From 54589a9c5617a78f6740eba37886423916bfe260 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 2 Feb 2020 20:37:05 +0100 Subject: [PATCH] crystallite does not exist any more --- src/material.f90 | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/material.f90 b/src/material.f90 index c54d2d5c8..bd289dece 100644 --- a/src/material.f90 +++ b/src/material.f90 @@ -277,10 +277,9 @@ subroutine material_init do h = 1,size(config_homogenization) write(6,'(1x,a32,1x,a16,1x,i6)') config_name_homogenization(h),homogenization_type(h),homogenization_Ngrains(h) enddo - write(6,'(/,a14,18x,1x,a11,1x,a12,1x,a13)') 'microstructure','crystallite','constituents' + write(6,'(/,a14,18x,1x,a11,1x,a12,1x,a13)') 'microstructure','constituents' do m = 1,size(config_microstructure) - write(6,'(1x,a32,1x,i12)') config_name_microstructure(m), & - microstructure_Nconstituents(m) + write(6,'(1x,a32,1x,i12)') config_name_microstructure(m), microstructure_Nconstituents(m) if (microstructure_Nconstituents(m) > 0) then do c = 1,microstructure_Nconstituents(m) write(6,'(a1,1x,a32,1x,a32)') '>',config_name_phase(microstructure_phase(c,m)),& @@ -352,7 +351,7 @@ subroutine material_init ! BEGIN DEPRECATED allocate(mappingHomogenizationConst( discretization_nIP,discretization_nElem),source=1) -! hack needed to initialize field values used during constitutive and crystallite initializations +! hack needed to initialize field values used during constitutive initialization do myHomog = 1,size(config_homogenization) thermalMapping (myHomog)%p => mappingHomogenizationConst damageMapping (myHomog)%p => mappingHomogenizationConst